Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@691 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-10-17 09:36:39 +00:00
parent b82450d674
commit d25dfa9073
6 changed files with 49 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

Binary file not shown.

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

@ -31,47 +31,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">False</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">GestorInformes_controller.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
@ -90,12 +50,12 @@
<DCCReference Include="View\GestorInformes_data.dcp" /> <DCCReference Include="View\GestorInformes_data.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" /> <DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" /> <DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorGestorInformesReport.pas" /> <DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
<DCCReference Include="View\uIEditorInformeReportBase.pas" />
<DCCReference Include="View\vcl.dcp" /> <DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" /> <DCCReference Include="View\vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6011 EurekaLog Version=6011

BIN
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.res
View File

Binary file not shown.

16
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeIVAClientesReport.pas Normal file
View File

@ -0,0 +1,16 @@
unit uIEditorInformeIVAClientesReport;
interface
uses
FactuGES_Intf, uIEditorInformeReportBase;
type
IEditorInformeIVAClientesReport = interface(IEditorInformeReportBase)
['{5C334CFF-D952-4332-8689-D82ECCC726C1}']
end;
implementation
end.

26
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeReportBase.pas Normal file
View File

@ -0,0 +1,26 @@
unit uIEditorInformeReportBase;
interface
uses
FactuGES_Intf, uEditorPreview;
type
IEditorInformeReportBase = interface(IEditorPreview)
['{22B97B8E-04B8-4439-965B-D4AF8216DCEA}']
function GetFechaFin: TDateTime;
function GetFechaInicio: TDateTime;
function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean;
function GetImporteMinimo: Currency;
property FechaInicio: TDateTime read GetFechaInicio;
property FechaFin: TDateTime read GetFechaFin;
property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property ImporteMinimo: Currency read getImporteMinimo;
end;
implementation
end.

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

@ -50,7 +50,7 @@ uses
Windows, Controls, cxControls, DB, uEditorRegistryUtils, uFactuGES_App, Windows, Controls, cxControls, DB, uEditorRegistryUtils, uFactuGES_App,
uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
uROTypes, DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes, uROTypes, DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes,
uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs, uIEditorGestorInformesReport; uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs, uIEditorInformeIVAClientesReport;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente; {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -224,13 +224,13 @@ end;
procedure TGestorInformesController.GetInformeIVAClientes; procedure TGestorInformesController.GetInformeIVAClientes;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorGestorInformesReport; AEditor : IEditorInformeIVAClientesReport;
begin begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
try try
CreateEditor('EditorGestorInformesReport', IEditorGestorInformesReport, AEditor); CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin