roberto
943ba6484b
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
71 lines
1.7 KiB
ObjectPascal
71 lines
1.7 KiB
ObjectPascal
unit uEditorElegirTarifa;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
|
|
cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorElegirTarifa,
|
|
cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit, uTarifasController,
|
|
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uBizTarifas;
|
|
|
|
type
|
|
TfEditorElegirTarifa = class(TfEditorBasico, IEditorElegirTarifa)
|
|
Label1: TLabel;
|
|
bAceptar: TButton;
|
|
bCancelar: TButton;
|
|
combo: TLabel;
|
|
Panel1: TPanel;
|
|
cbTarifa: TcxLookupComboBox;
|
|
dsTarifa: TDADataSource;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
|
|
private
|
|
FController: ITarifasController;
|
|
FListaTarifas : IBizTarifa;
|
|
FTarifa: String;
|
|
function GetTarifa: String;
|
|
procedure SetTarifa(const Value: String);
|
|
|
|
public
|
|
property Tarifa: String Read GetTarifa write SetTarifa;
|
|
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
uses uFactuGES_App;
|
|
|
|
procedure TfEditorElegirTarifa.FormDestroy(Sender: TObject);
|
|
begin
|
|
FController := Nil;
|
|
FListaTarifas := Nil;
|
|
end;
|
|
|
|
procedure TfEditorElegirTarifa.FormShow(Sender: TObject);
|
|
var
|
|
|
|
i : integer;
|
|
|
|
begin
|
|
FController := TTarifasController.Create;
|
|
FListaTarifas := FController.BuscarTodos;
|
|
FListaTarifas.DataTable.Active := True;
|
|
dsTarifa.DataTable := FListaTarifas.DataTable;
|
|
cbTarifa.ItemIndex := 0;
|
|
end;
|
|
|
|
function TfEditorElegirTarifa.GetTarifa: String;
|
|
begin
|
|
Result := FListaTarifas.DESCRIPCION;
|
|
end;
|
|
|
|
procedure TfEditorElegirTarifa.SetTarifa(const Value: String);
|
|
begin
|
|
// cbTarifa.ItemIndex := cbTarifa.Properties.Items.IndexOfName(Value);
|
|
end;
|
|
|
|
end.
|