132 lines
3.7 KiB
ObjectPascal
132 lines
3.7 KiB
ObjectPascal
unit uViewDireccionEntregaAlbaranCliente;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, uBizAlbaranesCliente, cxGraphics, dxLayoutControl, cxMemo,
|
|
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
|
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
|
|
ActnList, uAlbaranesClienteController,
|
|
Buttons, cxDBEdit, uDAInterfaces;
|
|
|
|
type
|
|
IViewDireccionEntregaAlbaranCliente = interface(IViewBase)
|
|
['{C23A361A-98CA-450C-9F29-2DA7877601EE}']
|
|
function GetAlbaranCliente: IBizAlbaranCliente;
|
|
procedure SetAlbaranCliente(const Value: IBizAlbaranCliente);
|
|
property AlbaranCliente: IBizAlbaranCliente read GetAlbaranCliente write SetAlbaranCliente;
|
|
end;
|
|
|
|
TfrViewDireccionEntregaAlbaranCliente = class(TfrViewBase, IViewDireccionEntregaAlbaranCliente)
|
|
dxLayoutControl1: TdxLayoutControl;
|
|
dxLayoutGroup1: TdxLayoutGroup;
|
|
dsAlbaran: TDADataSource;
|
|
dsAlmacenes: TDADataSource;
|
|
dxLayoutControl1Item2: TdxLayoutItem;
|
|
ePoblacion: TcxDBTextEdit;
|
|
dxLayoutControl1Item3: TdxLayoutItem;
|
|
eProvincia: TcxDBTextEdit;
|
|
dxLayoutControl1Item4: TdxLayoutItem;
|
|
eCodigoPostal: TcxDBTextEdit;
|
|
dxLayoutControl1Item5: TdxLayoutItem;
|
|
eTlfTrabajo: TcxDBTextEdit;
|
|
dxLayoutControl1Item6: TdxLayoutItem;
|
|
ePersonaContacto: TcxDBTextEdit;
|
|
dxLayoutControl1Group3: TdxLayoutGroup;
|
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
|
dxLayoutControl1Group5: TdxLayoutGroup;
|
|
dxLayoutControl1Group4: TdxLayoutGroup;
|
|
dxLayoutControl1Item7: TdxLayoutItem;
|
|
eCalle: TcxDBMemo;
|
|
dxLayoutControl1Item1: TdxLayoutItem;
|
|
cbPais: TcxDBComboBox;
|
|
procedure cbPaisPropertiesInitPopup(Sender: TObject);
|
|
|
|
private
|
|
FPaises : TStringList;
|
|
procedure CargarPaises;
|
|
|
|
protected
|
|
FAlbaran : IBizAlbaranCliente;
|
|
FController : IAlbaranesClienteController;
|
|
function GetAlbaranCliente: IBizAlbaranCliente;
|
|
procedure SetAlbaranCliente(const Value: IBizAlbaranCliente);
|
|
|
|
public
|
|
property AlbaranCliente: IBizAlbaranCliente read GetAlbaranCliente write SetAlbaranCliente;
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
uEditorRegistryUtils, uProvinciasPoblacionesController;
|
|
|
|
procedure TfrViewDireccionEntregaAlbaranCliente.CargarPaises;
|
|
var
|
|
i : integer;
|
|
begin
|
|
with TProvinciasPoblacionesController.Create do
|
|
try
|
|
FPaises := DarListaPaises;
|
|
|
|
with cbPais.Properties.Items do
|
|
begin
|
|
BeginUpdate;
|
|
try
|
|
Clear;
|
|
for i := 0 to FPaises.Count - 1 do
|
|
Add(FPaises.Names[i]);
|
|
finally
|
|
EndUpdate;
|
|
end;
|
|
end;
|
|
finally
|
|
Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewDireccionEntregaAlbaranCliente.cbPaisPropertiesInitPopup(
|
|
Sender: TObject);
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
if not Assigned(FPaises) then
|
|
CargarPaises;
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
constructor TfrViewDireccionEntregaAlbaranCliente.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FAlbaran := NIL;
|
|
end;
|
|
|
|
destructor TfrViewDireccionEntregaAlbaranCliente.Destroy;
|
|
begin
|
|
FAlbaran := NIL;
|
|
inherited;
|
|
end;
|
|
|
|
function TfrViewDireccionEntregaAlbaranCliente.GetAlbaranCliente: IBizAlbaranCliente;
|
|
begin
|
|
Result := FAlbaran;
|
|
end;
|
|
|
|
procedure TfrViewDireccionEntregaAlbaranCliente.SetAlbaranCliente(const Value: IBizAlbaranCliente);
|
|
begin
|
|
FAlbaran := Value;
|
|
if Assigned(FAlbaran) then
|
|
dsAlbaran.DataTable := FAlbaran.DataTable
|
|
else
|
|
dsAlbaran.DataTable := NIL;
|
|
end;
|
|
|
|
end.
|