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,
uBizEmpresasTiendas;
const
CTE_PERFIL_ADMINISTRADOR = 3;
CTE_PERFIL_VENDEDOR = 7;
type
TAppFactuGES_Event = procedure;

103
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,55 +65,55 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</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="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">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">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><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('FacturasCliente_plugin.bpl');
// LoadModule('Comisiones_plugin.bpl');
LoadModule('Comisiones_plugin.bpl');
{$IFDEF PEDIDOSPROVEEDOR}
LoadModule('PedidosProveedor_plugin.bpl');

4
Source/Cliente/uPantallaPrincipal.pas
View File

@ -195,7 +195,7 @@ end;
procedure TfPantallaPrincipal.FormShow(Sender: TObject);
begin
//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
Informes1.Enabled := False;
Informes1.Visible := False;
@ -208,7 +208,7 @@ begin
InicializarUI;
//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
// Perfiles1.Visible := False;
Administracin1.Visible := False;

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.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\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\vclx.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\Base.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\frx11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\frxe11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\fs11.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\rtl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vcl.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vcldb.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Gestor de informes\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</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
Category = 'Contabilidad'
Caption = 'Cuentas'
Enabled = False
ImageIndex = 2
Visible = False
OnExecute = actCuentasExecute
OnUpdate = actCuentasUpdate
end
@ -658,9 +656,7 @@ object PluginContabilidad: TPluginContabilidad
object actDiario: TAction
Category = 'Contabilidad'
Caption = 'Libro de diario'
Enabled = False
ImageIndex = 0
Visible = False
OnExecute = actDiarioExecute
OnUpdate = actDiarioUpdate
end

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

@ -267,7 +267,7 @@ begin
FECHA_FACTURA := DateOf(Now);
// FECHA_VENCIMIENTO := DateOf(Now);
TIPO := CTE_TIPO_FACTURA;
SITUACION := 'PENDIENTE';
SITUACION := CTE_PENDIENTE;
ID_CLIENTE := ID_NULO;
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 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 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;
implementation
@ -78,7 +78,7 @@ implementation
uses
uRORemoteDataModule, uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf,
uDataModuleServer, schFacturasClienteClient_Intf;
uDataModuleServer, schFacturasClienteClient_Intf, schRecibosClienteClient_Intf;
const
rptFacturaCliente = 'InfFacturaCliente.fr3';
@ -331,11 +331,12 @@ end;
function TRptFacturasCliente.GenerarInformeListadoFacturasRecibos(
const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean): Binary;
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"
@ -356,10 +357,35 @@ begin
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_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
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_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
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">
<MainSource>MainSource</MainSource>
</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="uContratosFacturaProveedorController.pas" />
<DCCReference Include="uDetallesFacturaProveedorController.pas" />
<DCCReference Include="uFacturasProveedorController.pas" />
<DCCReference Include="uFacturasProveedorReportController.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\AlbaranesProveedor_controller.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\uIEditorFacturaProveedor.pas" />
<DCCReference Include="View\uIEditorFacturasProveedor.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>
</Project>
<!-- 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\Model\Contactos_model.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="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" />
<Projects Include="Data\FacturasProveedor_data.dproj" />
<Projects Include="Model\FacturasProveedor_model.dproj" />
@ -131,15 +133,6 @@
<Target Name="FacturasProveedor_data:Make">
<MSBuild Projects="Data\FacturasProveedor_data.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_controller">
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="" />
</Target>
@ -149,6 +142,15 @@
<Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_plugin">
<MSBuild Projects="Plugin\FacturasProveedor_plugin.dproj" Targets="" />
</Target>
@ -221,14 +223,32 @@
<Target Name="Contactos_data:Make">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
</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">
<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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -136,6 +136,109 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datCurrency
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
Params = <>
Statements = <
@ -621,7 +724,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 40947.762142453710000000
ReportOptions.LastChange = 43661.771358321760000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@ -796,4 +899,76 @@ object RptFacturasProveedor: TRptFacturasProveedor
Left = 648
Top = 304
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

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

@ -32,6 +32,9 @@ type
tbl_InformeListadoFacturasTipoResumen: TDAMemDataTable;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
tbl_InformeListadoRecibos: TDAMemDataTable;
DADSInformeListadoRecibos: TDADataSource;
frxDBInformeListadoRecibos: TfrxDBDataset;
procedure DataModuleCreate(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 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 GenerarInformeListadoFacturasRecibos(const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
end;
implementation
@ -65,7 +69,7 @@ implementation
uses
uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf,
uDataModuleServer, schFacturasProveedorClient_Intf;
uDataModuleServer, schFacturasProveedorClient_Intf, schRecibosProveedorClient_Intf;
const
rptFacturaProveedor = 'InfFacturaProveedor.fr3';
@ -76,7 +80,10 @@ const
rptInformeListadoFactuasProveedorPendiente = 'InformeListadoFacturasProveedorPendientes.fr3';
rptInformeListadoFactuasProveedorPendienteDesglosado = 'InformeListadoFacturasProveedorPendientesDesglosado.fr3';
ds_InformeListadoFacturasResumen = 'ListadoFacturasProveedorResumen';
ds_InformeListadoFacturasTipoResumen = 'ListadoFacturasProveedorTipoResumen';
ds_InformeListadoFacturasTipoResumen = 'ListadoFacturasProveedorTipoResumen';
rptInformeListadoFacturasRecibosProveedor = 'InformeListadoFacturasRecibosProveedor.fr3';
rptInformeListadoFacturasRecibosProveedorDesglosado = 'InformeListadoFacturasRecibosProveedorDesglosado.fr3';
{ TRptFacturasProveedor }
@ -317,6 +324,84 @@ begin
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;
var
ATextos : TStringList;
@ -410,7 +495,7 @@ begin
end;
// Filtrar el informe por fechas de vencimiento
if not VarIsNull(FFechaVenInicio)
{ if not VarIsNull(FFechaVenInicio)
and not VarIsNull(FFechaVenFin) then
begin
with ATabla.DynamicWhere do
@ -424,6 +509,7 @@ begin
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
}
// Filtrar el informe por proveedor
if Assigned(FListaIDProveedores) then

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

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

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

@ -114,6 +114,9 @@ begin
300 : begin // Listado de facturas de cliente
AGestorInformesController.VerInformeListadoFacturasProv;
end;
400 : begin // Listado de facturas de cliente
AGestorInformesController.VerInformeListadoFacturasRecibosProv(Facturas.ID_PROVEEDOR);
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',
uIEditorInformeFacturasRecibosClienteReport in 'View\uIEditorInformeFacturasRecibosClienteReport.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.

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

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

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

@ -11,9 +11,14 @@ type
function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean;
function getViewFiltroCliente: IViewFiltroClientes;
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property viewFiltroCliente: IViewFiltroClientes read getViewFiltroCliente;
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
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
procedure VerInformeListadoRecibosProvPendientes;
procedure VerInformeListadoRecibosProveedor;
procedure VerInformeListadoFacturasRecibosProv(const ID_PROVEEDOR: Integer);
end;
TGestorInformesController = class(TControllerBase, IGestorInformesController)
@ -79,6 +80,7 @@ type
procedure VerInformeIVAProveedores;
procedure VerInformeListadoFacturasProv;
procedure VerInformeListadoFacturasProvPendientes;
procedure VerInformeListadoFacturasRecibosProv(const ID_PROVEEDOR: Integer);
//MODULO RECIBOS DE PROVEEDOR
procedure VerInformeListadoRecibosProvPendientes;
@ -100,7 +102,8 @@ uses
uIEditorInformeIVAProveedoresReport, uIEditorInformeFacturasProveedorReport,
uIEditorInformeFacturasProveedorPendientesReport, uIEditorInformeRecibosProveedorReport,
uIEditorInformeRecibosProvPendientesReport,
uIEditorInformePedidosReport, uIEditorInformeFacturasRecibosClienteReport;
uIEditorInformePedidosReport, uIEditorInformeFacturasRecibosClienteReport,
uIEditorInformeFacturasRecibosProveedorReport;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -427,7 +430,31 @@ begin
AEditor.Title := 'Listado de facturas/recibos de cliente';
AEditor.viewFiltroCliente.IdCliente := ID_CLIENTE;
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.Preview;
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 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 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
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 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 GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//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;
@ -130,10 +131,20 @@ end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasRecibosCli(
const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean): Binary;
const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
begin
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
end;
end;

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

@ -10,6 +10,7 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.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="Data\GestorInformes_data.dproj" />
<Projects Include="Model\GestorInformes_model.dproj" />
@ -121,14 +122,23 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_view:Clean">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_view:Make">
<MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</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 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 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
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 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 GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//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;

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 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 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
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 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 GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
//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;
@ -249,15 +252,29 @@ begin
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(
const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray;
const Desglosado: Boolean): Binary;
const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
Result := AReportGenerator.GenerarInformeListadoFacturasRecibos(IdEmpresa, ListadoIDClientes, Desglosado);
Result := AReportGenerator.GenerarInformeListadoFacturasRecibos(IdEmpresa, ListadoIDClientes, Desglosado, FechaInicio, FechaFin);
finally
FreeAndNIL(AReportGenerator);
end;

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

@ -83,6 +83,7 @@ contains
uEditorInformeFacturasProveedorPendientesReport in 'uEditorInformeFacturasProveedorPendientesReport.pas' {fEditorInformeFacturasProveedorPendientesReport: TForm},
uEditorInformeFacturasProveedorReport in 'uEditorInformeFacturasProveedorReport.pas' {fEditorInformeFacturasProveedorReport: 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.

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

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

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

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

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

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

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

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

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

@ -11,7 +11,7 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas,
uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIViewFiltroClientes,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasRecibosClienteReport;
@ -23,6 +23,7 @@ type
frViewFiltroImportes1: TfrViewFiltroImportes;
frViewFiltroClientes1: TfrViewFiltroClientes;
procedure actRefrescarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
FListaIDClientes: TIntegerArray;
function GetFechaFin: Variant;
@ -73,6 +74,13 @@ begin
inherited;
end;
procedure TfEditorInformeFacturasRecibosClienteReport.FormShow(Sender: TObject);
begin
inherited;
frViewPeriodoFechas1.EsteAno(TFecha);
RefrescarInforme;
end;
function TfEditorInformeFacturasRecibosClienteReport.GetDesglosadoCliente: Boolean;
begin
if frViewFiltroImportes1.cbxDesglosado.Enabled then
@ -126,7 +134,9 @@ begin
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoFacturasRecibosCli(
AppFactuGES.EmpresaActiva.ID,
ListaIDClientes,
DesglosadoCliente);
DesglosadoCliente,
FechaInicio,
FechaFin);
LoadFromStream(AStream);
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,
uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport,
uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport;
uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport, uEditorInformeFacturasRecibosProveedorReport;
procedure RegisterViews;
begin
@ -32,6 +32,7 @@ begin
EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorPendientesReport, 'EditorInformeFacturasProveedorPendientesReport');
EditorRegistry.RegisterClass(TfEditorInformeRecibosProveedorReport, 'EditorInformeRecibosProveedorReport');
EditorRegistry.RegisterClass(TfEditorInformeRecibosProvPendientesReport, 'EditorInformeRecibosProvPendientesReport');
EditorRegistry.RegisterClass(TfEditorInformeFacturasRecibosProveedorReport, 'EditorInformeFacturasRecibosProveedorReport');
end;
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,
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
uProveedoresController, uIViewParametrosInforme;
uProveedoresController, uIViewParametrosInforme, uIViewFiltroProveedores;
type
IViewFiltroProveedores = interface(IViewParametrosInforme)
['{129906DA-8E64-4312-8095-A04F8007CF7F}']
end;
TfrViewFiltroProveedores = class(TfrViewParametrosInforme, IViewFiltroProveedores)
TBXLabel2: TTBXLabel;
rbTodosProveedores: TRadioButton;
@ -27,8 +24,11 @@ type
procedure CustomViewDestroy(Sender: TObject);
private
FProveedor : IBizProveedor;
FProveedoresController : IProveedoresController;
FProveedoresController : IProveedoresController;
function getIdProveedor: Integer;
procedure setIdProveedor(const IdProveedor:Integer);
public
property IdProveedor : Integer read getIdProveedor write setIdProveedor;
property Proveedor : IBizProveedor read FProveedor;
end;
@ -68,6 +68,11 @@ begin
FProveedoresController := NIL;
end;
function TfrViewFiltroProveedores.getIdProveedor: Integer;
begin
Result := FProveedor.ID;
end;
procedure TfrViewFiltroProveedores.rbTodosProveedoresClick(Sender: TObject);
begin
if rbTodosProveedores.Checked then
@ -92,4 +97,17 @@ begin
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.

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

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

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

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

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

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

20
Source/Servicios/FactuGES.RODL
View File

@ -749,6 +749,10 @@
</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>
<Operation Name="GenerarInformeListadoFacturasProv" UID="{65AC9CE1-960E-4427-A70F-BE55AA4A8F96}">
@ -919,6 +923,22 @@
</Parameter>
</Parameters>
</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>
</Interface>
</Interfaces>

37
Source/Servicios/FactuGES_Intf.pas
View File

@ -802,7 +802,8 @@ type
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: 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;
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 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;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: 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;
end;
{ CosrvGestorInformes }
@ -837,7 +840,8 @@ type
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: 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;
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 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;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: 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;
end;
{ IsrvContratosCliente }
@ -2561,7 +2567,8 @@ begin
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
try
result := nil;
@ -2569,6 +2576,8 @@ begin
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -2776,6 +2785,28 @@ begin
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 }
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_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_GenerarInformeListadoFacturasRecibosProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvContratosCliente_Invoker = class(TDataAbstractService_Invoker)
@ -1882,11 +1883,14 @@ begin
end;
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
IdEmpresa: Integer;
ListadoIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean;
FechaInicio: Variant;
FechaFin: Variant;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1896,8 +1900,10 @@ begin
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__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.Write('Result', TypeInfo(Binary), lResult, []);
@ -2267,6 +2273,45 @@ begin
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 }
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.ProjectType/>
<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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.