david
68ec970246
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@4 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
64 lines
2.0 KiB
ObjectPascal
64 lines
2.0 KiB
ObjectPascal
unit uEditorFacturaObra;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uEditorFacturaCliente, dxLayoutLookAndFeels, JvAppStorage,
|
|
JvAppRegistryStorage, DB, uDADataTable, JvComponentBase, JvFormPlacement,
|
|
ImgList, PngImageList, StdActns, ActnList, uViewTotales, ComCtrls,
|
|
uViewContenido, uViewDetallesFamilias, uViewDetallesFacturaCliente,
|
|
dxLayoutControl, uCustomView, uViewBase, uViewFacturaCliente, TBX,
|
|
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls,
|
|
JvComponent, JvNavigationPane, uViewObraRelacionada, uBizFacturasCliente;
|
|
|
|
type
|
|
IEditorFacturaObra = interface(IEditorFacturaCliente)
|
|
['{E22C6D3D-0AD0-453D-B795-BFD2F638AE7B}']
|
|
end;
|
|
|
|
TfEditorFacturaObra = class(TfEditorFacturaCliente, IEditorFacturaObra)
|
|
frViewObraRelacionada1: TfrViewObraRelacionada;
|
|
private
|
|
procedure OnObraChanged(Sender : TObject);
|
|
protected
|
|
procedure SetFacturaCliente(const Value: IBizFacturasCliente); override;
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
uses uDataTableUtils, uEditorUtils, LiteralesObrasFinal, uBizObraFinal;
|
|
|
|
function ShowEditorFacturaObra (ABizObject : TDADataTableRules) : TModalResult;
|
|
var
|
|
AEditor: TfEditorFacturaObra;
|
|
begin
|
|
AEditor := TfEditorFacturaObra.Create(Application);
|
|
try
|
|
AEditor.FacturaCliente := (ABizObject as IBizFacturasObras);
|
|
Result := AEditor.ShowModal;
|
|
finally
|
|
AEditor.Release;
|
|
end;
|
|
end;
|
|
|
|
{ TfEditorFacturaObra }
|
|
|
|
procedure TfEditorFacturaObra.OnObraChanged(Sender: TObject);
|
|
begin
|
|
(FacturaCliente as IBizFacturasObras).Obra := frViewObraRelacionada1.Obra;
|
|
end;
|
|
|
|
procedure TfEditorFacturaObra.SetFacturaCliente(const Value: IBizFacturasCliente);
|
|
begin
|
|
inherited;
|
|
frViewObraRelacionada1.Obra := (FacturaCliente as IBizFacturasObras).Obra;
|
|
frViewObraRelacionada1.OnObraChanged := OnObraChanged;
|
|
end;
|
|
|
|
initialization
|
|
RegisterEditor(IBizFacturasObras, ShowEditorFacturaObra, etItem);
|
|
|
|
end.
|