Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Limpieza de código

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@952 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-06-02 16:21:23 +00:00
parent 9258ece3fd
commit 6573f39dba
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Source/Modulos/Facturas de cliente/Views/uViewDatosYSeleccionClienteFacturaCliente.pas
View File

@ -81,9 +81,6 @@ type
private private
FOnClienteChanged : TNotifyEvent; FOnClienteChanged : TNotifyEvent;
FMsgElegirCliente: String; FMsgElegirCliente: String;
function GetMsgElegirCliente: String;
procedure SetMsgElegirCliente(const Value: String);
protected protected
FClientesController : IClientesController; FClientesController : IClientesController;
FDireccionesController : IDireccionesContactoController; FDireccionesController : IDireccionesContactoController;
@ -277,11 +274,6 @@ begin
Result := FCliente.ID; Result := FCliente.ID;
end; end;
function TfrViewDatosYSeleccionClienteFacturaCliente.GetMsgElegirCliente: String;
begin
//
end;
procedure TfrViewDatosYSeleccionClienteFacturaCliente.SetCliente(Value: IBizCliente); procedure TfrViewDatosYSeleccionClienteFacturaCliente.SetCliente(Value: IBizCliente);
begin begin
FCliente := Value; FCliente := Value;
@ -312,12 +304,6 @@ begin
Self.Cliente := IBizCliente(FClientesController.Buscar(Value)); Self.Cliente := IBizCliente(FClientesController.Buscar(Value));
end; end;
procedure TfrViewDatosYSeleccionClienteFacturaCliente.SetMsgElegirCliente(
const Value: String);
begin
//
end;
function TfrViewDatosYSeleccionClienteFacturaCliente.GetOnClienteChanged: TNotifyEvent; function TfrViewDatosYSeleccionClienteFacturaCliente.GetOnClienteChanged: TNotifyEvent;
begin begin
Result := FOnClienteChanged; Result := FOnClienteChanged;