david
72e18c7cdf
- Añadir selección de persona que recibirá el pedido a partir de los empleados o personal de la subcontrata. - Adaptación de los informes. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@353 0c75b7a4-871f-7646-8a2f-f78d34cc349f
84 lines
2.4 KiB
ObjectPascal
84 lines
2.4 KiB
ObjectPascal
unit uEditorDireccionEntregaPedidoProveedor;
|
|
|
|
interface
|
|
|
|
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
|
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
|
|
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
|
uIEditorDireccionEntregaPedidoProveedor, uBizPedidosProveedor, uDAInterfaces;
|
|
|
|
type
|
|
TfEditorDireccionEntregaPedidoProveedor = class(TForm, IEditorDireccionEntregaPedidoProveedor)
|
|
OKBtn: TButton;
|
|
CancelBtn: TButton;
|
|
Bevel1: TBevel;
|
|
eDireccion: TDBEdit;
|
|
ePoblacion: TDBEdit;
|
|
eProvincia: TDBEdit;
|
|
eCodigoPostal: TDBEdit;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
dsDireccion: TDADataSource;
|
|
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
|
private
|
|
pDireccion: String;
|
|
pPoblacion: String;
|
|
pProvincia: String;
|
|
pCodigoPostal: String;
|
|
|
|
FPedido : IBizPedidoProveedor;
|
|
function GetPedido: IBizPedidoProveedor;
|
|
procedure SetPedido(const Value: IBizPedidoProveedor);
|
|
public
|
|
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
|
|
{ TfEditorDireccionEntrega }
|
|
|
|
procedure TfEditorDireccionEntregaPedidoProveedor.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
//En el caso de cancelar se recuperan los valores iniciales
|
|
if (Self.ModalResult <> mrOk) and (dsDireccion.DataTable.State in dsEditModes) then
|
|
begin
|
|
eDireccion.Field.Value := pDireccion;
|
|
ePoblacion.Field.Value := pPoblacion;
|
|
eProvincia.Field.Value := pProvincia;
|
|
eCodigoPostal.Field.Value := pCodigoPostal;
|
|
end;
|
|
end;
|
|
|
|
procedure TfEditorDireccionEntregaPedidoProveedor.FormShow(Sender: TObject);
|
|
begin
|
|
//Guardamos los valores iniciales por si al final el usuario cancela
|
|
pDireccion := eDireccion.Text;
|
|
pPoblacion := ePoblacion.Text;
|
|
pProvincia := eProvincia.Text;
|
|
pCodigoPostal := eCodigoPostal.Text;
|
|
end;
|
|
|
|
function TfEditorDireccionEntregaPedidoProveedor.GetPedido: IBizPedidoProveedor;
|
|
begin
|
|
Result := FPedido;
|
|
end;
|
|
|
|
procedure TfEditorDireccionEntregaPedidoProveedor.SetPedido(
|
|
const Value: IBizPedidoProveedor);
|
|
begin
|
|
FPedido := Value;
|
|
if Assigned(FPedido) then
|
|
dsDireccion.DataTable := FPedido.DataTable
|
|
else
|
|
dsDireccion.DataTable := NIL;
|
|
end;
|
|
|
|
end.
|