david
f3f230e414
- Limpieza de código para NO usar skins de DevExpress. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@541 0c75b7a4-871f-7646-8a2f-f78d34cc349f
58 lines
1.4 KiB
ObjectPascal
58 lines
1.4 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;
|
|
|
|
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.
|