diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk index e93941aa..2b645e21 100644 Binary files a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk and b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk differ 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;