david
67aeac2920
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@448 0c75b7a4-871f-7646-8a2f-f78d34cc349f
64 lines
1.8 KiB
ObjectPascal
64 lines
1.8 KiB
ObjectPascal
unit uViewSubcontrataObra;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB,
|
|
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
|
|
cxEdit, cxTextEdit, cxDBEdit, cxControls, dxSkinsCore, dxSkinBlue,
|
|
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
|
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
|
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
|
|
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
|
|
dxSkinsdxLCPainter;
|
|
|
|
type
|
|
TfrViewSubcontrataObra = class(TfrViewDatosYSeleccionProveedor)
|
|
dxLayoutControl1Item10: TdxLayoutItem;
|
|
edtPersonaContacto: TcxDBTextEdit;
|
|
dxLayoutControl1Item11: TdxLayoutItem;
|
|
edtReferenciaAsignada: TcxDBTextEdit;
|
|
dxLayoutControl1Item13: TdxLayoutItem;
|
|
edtTlf: TcxDBTextEdit;
|
|
dxLayoutControl1Group4: TdxLayoutGroup;
|
|
protected
|
|
procedure ElegirProveedorInternal; override;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
uBizContactos;
|
|
|
|
{ TfrViewSubcontrataObra }
|
|
|
|
procedure TfrViewSubcontrataObra.ElegirProveedorInternal;
|
|
var
|
|
AProveedor : IBizProveedor;
|
|
begin
|
|
// inherited; <- No llamar al padre
|
|
MsgElegirProveedor := ' ';
|
|
AProveedor := (Controller.ElegirContacto(Controller.BuscarSubcontratas,
|
|
MsgElegirProveedor, False) as IBizProveedor);
|
|
|
|
if Assigned(AProveedor) then
|
|
begin
|
|
Self.Update;
|
|
ShowHourglassCursor;
|
|
try
|
|
Proveedor := AProveedor;
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|