roberto
46bb97ed57
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@280 c93665c3-c93d-084d-9b98-7d5f4a9c3376
97 lines
2.8 KiB
ObjectPascal
97 lines
2.8 KiB
ObjectPascal
unit uViewAlbaranDevCliente;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewAlbaranCliente, cxGraphics, ActnList, DB, uDADataTable,
|
|
dxLayoutControl, StdCtrls, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
|
|
cxDBLookupComboBox, cxTextEdit, Buttons, uCustomView, uViewBase,
|
|
uViewDatosYSeleccionCliente, cxDBEdit, cxMemo, cxContainer, cxEdit,
|
|
cxMaskEdit, cxCalendar, cxControls, uBizAlbaranesCliente;
|
|
|
|
type
|
|
TfrViewAlbaranDevCliente = class(TfrViewAlbaranCliente)
|
|
dxLayoutControl1Item17: TdxLayoutItem;
|
|
eReferenciaAlbaranCli: TcxTextEdit;
|
|
dxLayoutControl1Item25: TdxLayoutItem;
|
|
Button2: TButton;
|
|
dxLayoutControl1Group16: TdxLayoutGroup;
|
|
actVerAlbaranCli: TAction;
|
|
procedure actVerAlbaranCliExecute(Sender: TObject);
|
|
procedure CustomViewCreate(Sender: TObject);
|
|
procedure CustomViewDestroy(Sender: TObject);
|
|
procedure actVerAlbaranCliUpdate(Sender: TObject);
|
|
procedure frViewClienteAlbaranactElegirContactoUpdate(Sender: TObject);
|
|
protected
|
|
FAlbaranAsociado : IBizAlbaranCliente;
|
|
procedure SetAlbaran(const Value: IBizAlbaranCliente); override;
|
|
end;
|
|
|
|
var
|
|
frViewAlbaranDevCliente: TfrViewAlbaranDevCliente;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrViewAlbaranDevCliente.actVerAlbaranCliExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
Controller.Ver(FAlbaranAsociado);
|
|
end;
|
|
|
|
procedure TfrViewAlbaranDevCliente.actVerAlbaranCliUpdate(Sender: TObject);
|
|
begin
|
|
if (Sender as TAction).Enabled then
|
|
(Sender as TAction).Enabled := Assigned(FAlbaranAsociado);
|
|
end;
|
|
|
|
procedure TfrViewAlbaranDevCliente.CustomViewCreate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FAlbaranAsociado := NIL;
|
|
end;
|
|
|
|
procedure TfrViewAlbaranDevCliente.CustomViewDestroy(Sender: TObject);
|
|
begin
|
|
FAlbaranAsociado := NIL;
|
|
inherited;
|
|
end;
|
|
|
|
procedure TfrViewAlbaranDevCliente.frViewClienteAlbaranactElegirContactoUpdate(
|
|
Sender: TObject);
|
|
begin
|
|
inherited;
|
|
if (Sender as TAction).Enabled then
|
|
(Sender as TAction).Enabled := not Assigned(FAlbaranAsociado);
|
|
end;
|
|
|
|
procedure TfrViewAlbaranDevCliente.SetAlbaran(const Value: IBizAlbaranCliente);
|
|
begin
|
|
inherited;
|
|
|
|
if Assigned(FAlbaran) then
|
|
begin
|
|
FAlbaranAsociado := NIL;
|
|
if (FAlbaran.ID_ALBARAN_DEV > 0) then
|
|
begin
|
|
FAlbaranAsociado := Controller.Buscar(FAlbaran.ID_ALBARAN_DEV);
|
|
if Assigned(FAlbaranAsociado) then
|
|
begin
|
|
FAlbaranAsociado.DataTable.Active := True;
|
|
eReferenciaAlbaranCli.Text := FAlbaranAsociado.REFERENCIA
|
|
end
|
|
else
|
|
eReferenciaAlbaranCli.Text := '';
|
|
end
|
|
else
|
|
eReferenciaAlbaranCli.Text := 'No hay pedido asociado';
|
|
end
|
|
else begin
|
|
FAlbaranAsociado := NIL;
|
|
end;
|
|
end;
|
|
|
|
end.
|