david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
109 lines
3.0 KiB
ObjectPascal
109 lines
3.0 KiB
ObjectPascal
unit uViewObraPedido;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, uViewBase, ExtCtrls, StdCtrls, cxControls, cxContainer, cxEdit,
|
||
cxTextEdit, cxDBEdit, ComCtrls, ToolWin, ImgList, PngImageList, ActnList,
|
||
DB, uDADataTable, uBizPedidosProveedor, uBizPresupuestosCliente;
|
||
|
||
type
|
||
IViewObraPedido = interface(IViewBase)
|
||
['{127631C5-DDC6-44D4-B96F-70795357B2CF}']
|
||
function GetPedido: IBizPedidosProveedor;
|
||
procedure SetPedido(const Value: IBizPedidosProveedor);
|
||
property Pedido: IBizPedidosProveedor read GetPedido
|
||
write SetPedido;
|
||
end;
|
||
|
||
TfrViewObraPedido = class(TfrViewBase, IViewObraPedido)
|
||
Label5: TLabel;
|
||
Bevel1: TBevel;
|
||
ActionList1: TActionList;
|
||
actElegirObra: TAction;
|
||
actVerObra: TAction;
|
||
PngImageList: TPngImageList;
|
||
ToolBar1: TToolBar;
|
||
ToolButton1: TToolButton;
|
||
ToolButton3: TToolButton;
|
||
ToolButton2: TToolButton;
|
||
lblNombre: TLabel;
|
||
edtlReferencia: TcxTextEdit;
|
||
procedure actElegirObraExecute(Sender: TObject);
|
||
procedure actVerObraExecute(Sender: TObject);
|
||
procedure actVerObraUpdate(Sender: TObject);
|
||
private
|
||
FPedido: IBizPedidosProveedor;
|
||
function GetPedido: IBizPedidosProveedor;
|
||
procedure SetPedido(const Value: IBizPedidosProveedor);
|
||
public
|
||
property Pedido: IBizPedidosProveedor read GetPedido
|
||
write SetPedido;
|
||
end;
|
||
|
||
var
|
||
frViewObraPedido: TfrViewObraPedido;
|
||
|
||
implementation
|
||
|
||
uses uDataModulePresupuestos, schPresupuestosClient_Intf;
|
||
|
||
{$R *.dfm}
|
||
|
||
{ TfrViewPresupuestoAlbaran }
|
||
|
||
function TfrViewObraPedido.GetPedido: IBizPedidosProveedor;
|
||
begin
|
||
Result := FPedido;
|
||
end;
|
||
|
||
procedure TfrViewObraPedido.SetPedido(const Value: IBizPedidosProveedor);
|
||
begin
|
||
FPedido := Value;
|
||
if Assigned(FPedido) and (IntToStr(FPedido.CODIGOOBRA) <> '') then
|
||
edtlReferencia.Text := dmPresupuestos.GetReferencia(FPedido.CODIGOOBRA);
|
||
end;
|
||
|
||
procedure TfrViewObraPedido.actElegirObraExecute(Sender: TObject);
|
||
var
|
||
AObra : IBizPresupuestos;
|
||
begin
|
||
inherited;
|
||
|
||
if Length(edtlReferencia.Text) > 0 then
|
||
if (MessageBox(0, 'Este pedido ya tiene asociado una obra. '+#13+#10+
|
||
'<27>Desea continuar?', 'Confirmaci<63>n', MB_ICONQUESTION or MB_YESNO) = idNo) then
|
||
Exit;
|
||
|
||
AObra := dmPresupuestos.GetPresupuestosSinAlbaran;
|
||
try
|
||
if AObra.ShowForSelect = mrOK then
|
||
begin
|
||
if not (FPedido.DataTable.State in dsEditModes) then
|
||
FPedido.Edit;
|
||
// FObra.CopyFrom(APresupuesto);
|
||
FPedido.CODIGOOBRA := AObra.CODIGO;
|
||
edtlReferencia.Text := AObra.REFERENCIA;
|
||
end;
|
||
finally
|
||
AObra := NIL;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrViewObraPedido.actVerObraExecute(Sender: TObject);
|
||
var
|
||
AObra : IBizPresupuestos;
|
||
begin
|
||
AObra := dmPresupuestos.GetPresupuesto(FPedido.CODIGOOBRA);
|
||
AObra.Show;
|
||
end;
|
||
|
||
procedure TfrViewObraPedido.actVerObraUpdate(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
(Sender as TAction).Enabled := (Length(edtlReferencia.Text) > 0)
|
||
end;
|
||
|
||
end.
|