From cd4f73a8bec02f5e357cc6d28c0c731b51d67241 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 15 Oct 2008 18:51:06 +0000 Subject: [PATCH] Modulo nuevo para los informes estadisticos e informes que ya tenian anteriormente git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@688 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Views/FacturasCliente_view.dpk | Bin 1736 -> 2093 bytes .../Views/FacturasCliente_view.dproj | 58 ++++++++++-------- .../Views/uEditorFacturasCliente.dfm | 12 ++++ .../Views/uEditorFacturasCliente.pas | 17 ++++- 4 files changed, 59 insertions(+), 28 deletions(-) diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk index e93941aa4546f53b521b1e97b381190683abbe44..2b645e21ad89bf694b29348f0b557ee6062f8473 100644 GIT binary patch delta 355 zcmYL_!Ait16h&nm1PcMzuIfqz8LZ&SWk(0QkTL^qOVhlT(KIP9&rnyhoDZ12e;^3{ zgnNI;m^S0;9$wzPxyd*CIQiU8HkT}lV_QkDNQ35&i(;N!`B|=-RJWa0pvZ)wGn5r6 zUMdj+dJn{}UkWi=iT8WXY^o9FNwN$E!5wYlSnzPIOMUJdf1ZtvoIVA#t2aZ??lUsG zB9RhGS8I&TY+g3-*Y|%`W1l2Gv^D{-hXGIH1sKx!plXdRn4;2(P)iB;wVm8dckhQs r$9G~qtn7ZKXBTeu-aY;mOOwjA`xRJ1r;%n|Y0ht1#3E2)#-f8?4~t}5 delta 25 gcmZ20aDsP3JJaU*%%&_n*1TN2T&Z~}dc0f=0A{oXO8@`> diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj index 4234aba7..d1e6c386 100644 --- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj +++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj @@ -1,4 +1,5 @@ - + + {9e558626-cf49-4cff-a178-e12c186758ac} FacturasCliente_view.dpk @@ -48,21 +49,34 @@ MainSource - - - - - - - - -
fEditorElegirArticulosFacturaCliente
- TForm - - -
fEditorElegirFacturasCliente
- TfEditorElegirFacturasCliente - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorFacturaCliente
TfEditorFacturaCliente @@ -71,18 +85,8 @@
fEditorFacturasCliente
TfEditorFacturasCliente - -
fEditorFacturasClientePreview
- - -
frViewDetallesFacturaCliente
- TFrame - - -
frViewElegirArticulosFacturasCliente
- TFrame - +
frViewFacturaCliente
TFrame diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm index d013f1df..832e4992 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm @@ -64,6 +64,13 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente inherited tbxMenu: TTBXToolbar ExplicitWidth = 842 end + inherited TBXTMain2: TTBXToolbar + Visible = True + ExplicitWidth = 66 + object TBXItem41: TTBXItem + Action = actInformes + end + end end inherited StatusBar: TJvStatusBar Top = 647 @@ -244,6 +251,11 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente OnExecute = actEnviarEMailExecute OnUpdate = actEnviarEMailUpdate end + object actInformes: TAction + Category = 'Acciones' + Caption = 'Informes' + OnExecute = actInformesExecute + end end inherited SmallImages: TPngImageList [5] PngImages = < diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas index a86450e5..bddacdc4 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas @@ -38,12 +38,15 @@ type actEnviarEMail: TAction; TBXItem40: TTBXItem; Enviarporemail1: TMenuItem; + actInformes: TAction; + TBXItem41: TTBXItem; procedure FormShow(Sender: TObject); procedure actEliminarUpdate(Sender: TObject); procedure actNuevaFacturaExecute(Sender: TObject); procedure actNuevoAbonoExecute(Sender: TObject); procedure actEnviarEMailUpdate(Sender: TObject); procedure actEnviarEMailExecute(Sender: TObject); + procedure actInformesExecute(Sender: TObject); private FFacturas: IBizFacturaCliente; FController : IFacturasClienteController; @@ -73,7 +76,7 @@ implementation uses uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App, uGenerarFacturasCliAlbCliUtils, uGenerarFacturasCliPreCliUtils, - uBizAlbaranesCliente, + uBizAlbaranesCliente, uGestorInformesController, uEditorBase, uGridStatusUtils, uDBSelectionListUtils, udialogUtils; {$R *.dfm} @@ -104,6 +107,18 @@ begin (Sender as TAction).Enabled := False; 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); begin actNuevo.Execute;