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@688 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-10-15 18:51:06 +00:00
parent d2a4cfb144
commit cd4f73a8be
4 changed files with 59 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
View File

Binary file not shown.

58
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid> <ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
<MainSource>FacturasCliente_view.dpk</MainSource> <MainSource>FacturasCliente_view.dpk</MainSource>
@ -48,21 +49,34 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\Articulos_view.dcp" />
<DCCReference Include="..\Contactos_view.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\Contactos_view.dcp" />
<DCCReference Include="..\FacturasCliente_controller.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\dbrtl.dcp" />
<DCCReference Include="..\FacturasCliente_model.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\FacturasCliente_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\FacturasCliente_model.dcp" />
<DCCReference Include="..\PreCli_FacCli_relation.dcp" /> <DCCReference Include="..\..\Gestor de informes\Views\frx11.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas"> <DCCReference Include="..\..\Gestor de informes\Views\frxe11.dcp" />
<Form>fEditorElegirArticulosFacturaCliente</Form> <DCCReference Include="..\..\Gestor de informes\Views\fs11.dcp" />
<DesignClass>TForm</DesignClass> <DCCReference Include="..\..\Gestor de informes\Views\GestorInformes_controller.dcp" />
</DCCReference> <DCCReference Include="..\..\Gestor de informes\Views\GUIBase.dcp" />
<DCCReference Include="uEditorElegirFacturasCliente.pas"> <DCCReference Include="..\..\Gestor de informes\Views\Jcl.dcp" />
<Form>fEditorElegirFacturasCliente</Form> <DCCReference Include="..\..\Gestor de informes\Views\JclVcl.dcp" />
<DesignClass>TfEditorElegirFacturasCliente</DesignClass> <DCCReference Include="..\..\Gestor de informes\Views\JvCoreD11R.dcp" />
</DCCReference> <DCCReference Include="..\..\Gestor de informes\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\PNG_D10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\PreCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\rtl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\tb2k_d10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\tbx_d10.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vcl.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vcldb.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vcljpg.dcp" />
<DCCReference Include="..\..\Gestor de informes\Views\vclx.dcp" />
<DCCReference Include="uEditorFacturaCliente.pas"> <DCCReference Include="uEditorFacturaCliente.pas">
<Form>fEditorFacturaCliente</Form> <Form>fEditorFacturaCliente</Form>
<DesignClass>TfEditorFacturaCliente</DesignClass> <DesignClass>TfEditorFacturaCliente</DesignClass>
@ -71,18 +85,8 @@
<Form>fEditorFacturasCliente</Form> <Form>fEditorFacturasCliente</Form>
<DesignClass>TfEditorFacturasCliente</DesignClass> <DesignClass>TfEditorFacturasCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorFacturasClienteReport.pas">
<Form>fEditorFacturasClientePreview</Form>
</DCCReference>
<DCCReference Include="uFacturasClienteViewRegister.pas" /> <DCCReference Include="uFacturasClienteViewRegister.pas" />
<DCCReference Include="uViewDetallesFacturaCliente.pas"> <DCCReference Include="uViewDetallesFacturaCliente.pas" />
<Form>frViewDetallesFacturaCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewElegirArticulosFacturasCliente.pas">
<Form>frViewElegirArticulosFacturasCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewFacturaCliente.pas"> <DCCReference Include="uViewFacturaCliente.pas">
<Form>frViewFacturaCliente</Form> <Form>frViewFacturaCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>

12
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -64,6 +64,13 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 842 ExplicitWidth = 842
end end
inherited TBXTMain2: TTBXToolbar
Visible = True
ExplicitWidth = 66
object TBXItem41: TTBXItem
Action = actInformes
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 647 Top = 647
@ -244,6 +251,11 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
OnExecute = actEnviarEMailExecute OnExecute = actEnviarEMailExecute
OnUpdate = actEnviarEMailUpdate OnUpdate = actEnviarEMailUpdate
end end
object actInformes: TAction
Category = 'Acciones'
Caption = 'Informes'
OnExecute = actInformesExecute
end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
PngImages = < PngImages = <

17
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -38,12 +38,15 @@ type
actEnviarEMail: TAction; actEnviarEMail: TAction;
TBXItem40: TTBXItem; TBXItem40: TTBXItem;
Enviarporemail1: TMenuItem; Enviarporemail1: TMenuItem;
actInformes: TAction;
TBXItem41: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actNuevaFacturaExecute(Sender: TObject); procedure actNuevaFacturaExecute(Sender: TObject);
procedure actNuevoAbonoExecute(Sender: TObject); procedure actNuevoAbonoExecute(Sender: TObject);
procedure actEnviarEMailUpdate(Sender: TObject); procedure actEnviarEMailUpdate(Sender: TObject);
procedure actEnviarEMailExecute(Sender: TObject); procedure actEnviarEMailExecute(Sender: TObject);
procedure actInformesExecute(Sender: TObject);
private private
FFacturas: IBizFacturaCliente; FFacturas: IBizFacturaCliente;
FController : IFacturasClienteController; FController : IFacturasClienteController;
@ -73,7 +76,7 @@ implementation
uses uses
uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App, uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
uGenerarFacturasCliAlbCliUtils, uGenerarFacturasCliPreCliUtils, uGenerarFacturasCliAlbCliUtils, uGenerarFacturasCliPreCliUtils,
uBizAlbaranesCliente, uBizAlbaranesCliente, uGestorInformesController,
uEditorBase, uGridStatusUtils, uDBSelectionListUtils, udialogUtils; uEditorBase, uGridStatusUtils, uDBSelectionListUtils, udialogUtils;
{$R *.dfm} {$R *.dfm}
@ -104,6 +107,18 @@ begin
(Sender as TAction).Enabled := False; (Sender as TAction).Enabled := False;
end; end;
procedure TfEditorFacturasCliente.actInformesExecute(Sender: TObject);
var
AGestorInformesController : IGestorInformesController;
begin
AGestorInformesController := TGestorInformesController.Create;
try
AGestorInformesController.GetInformeIVAClientes;
finally
AGestorInformesController := NIL;
end;
end;
procedure TfEditorFacturasCliente.actNuevaFacturaExecute(Sender: TObject); procedure TfEditorFacturasCliente.actNuevaFacturaExecute(Sender: TObject);
begin begin
actNuevo.Execute; actNuevo.Execute;