david
e918358544
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@286 c93665c3-c93d-084d-9b98-7d5f4a9c3376
79 lines
2.7 KiB
ObjectPascal
79 lines
2.7 KiB
ObjectPascal
unit uViewProveedor;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewContacto, dxLayoutLookAndFeels, DB, uDADataTable,
|
|
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
|
|
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
|
|
Buttons, PngSpeedButton, StdCtrls, cxCheckBox;
|
|
|
|
type
|
|
IViewProveedor = interface(IViewContacto)
|
|
['{D251B289-767A-489A-A862-BE564C79EFE6}']
|
|
end;
|
|
|
|
TfrViewProveedor = class(TfrViewContacto, IViewProveedor)
|
|
dxLayoutControlContactoGroup10: TdxLayoutGroup;
|
|
dxLayoutControlContactoItem16: TdxLayoutItem;
|
|
Label1: TLabel;
|
|
dxLayoutControlContactoItem19: TdxLayoutItem;
|
|
cxDBCheckBox1: TcxDBCheckBox;
|
|
dxLayoutControlContactoItem20: TdxLayoutItem;
|
|
Label2: TLabel;
|
|
dxLayoutControlContactoItem21: TdxLayoutItem;
|
|
eMailAdministracion: TcxDBHyperLinkEdit;
|
|
dxLayoutControlContactoItem22: TdxLayoutItem;
|
|
PngSpeedButton4: TPngSpeedButton;
|
|
dxLayoutControlContactoGroup14: TdxLayoutGroup;
|
|
dxLayoutControlContactoGroup15: TdxLayoutGroup;
|
|
actMandarCorreoAdministrativo: TAction;
|
|
procedure actMandarCorreoAdministrativoExecute(Sender: TObject);
|
|
procedure actMandarCorreoAdministrativoUpdate(Sender: TObject);
|
|
procedure eMailAdministracionPropertiesEditValueChanged(Sender: TObject);
|
|
procedure eMailAdministracionPropertiesValidate(Sender: TObject;
|
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
type
|
|
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
|
|
|
|
procedure TfrViewProveedor.actMandarCorreoAdministrativoExecute(
|
|
Sender: TObject);
|
|
begin
|
|
inherited;
|
|
THackcxDBHyperLinkEdit(eMailTrabajo).DoStart;
|
|
end;
|
|
|
|
procedure TfrViewProveedor.actMandarCorreoAdministrativoUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := (Length(eMailAdministracion.Text) > 0)
|
|
end;
|
|
|
|
procedure TfrViewProveedor.eMailAdministracionPropertiesEditValueChanged(
|
|
Sender: TObject);
|
|
begin
|
|
if not VarIsNull((Sender as TcxDBHyperLinkEdit).EditValue) then
|
|
(Sender as TcxDBHyperLinkEdit).EditValue := StringReplace((Sender as TcxDBHyperLinkEdit).EditValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
|
|
end;
|
|
|
|
procedure TfrViewProveedor.eMailAdministracionPropertiesValidate(
|
|
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
|
var Error: Boolean);
|
|
begin
|
|
if not VarIsNull(DisplayValue) then
|
|
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
|
|
end;
|
|
|
|
end.
|