Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso de clientes

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@71 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-01-27 15:43:32 +00:00
parent be1e6b4c2e
commit 9540b9e48b
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Source/Modulos/Contactos/Views/uEditorClientes.pas
View File

@ -50,7 +50,7 @@ type
procedure actDocumentosRecibosExecute(Sender: TObject); procedure actDocumentosRecibosExecute(Sender: TObject);
protected protected
procedure ImprimirInterno; override; procedure ImprimirInterno; override;
procedure PrevisualizarInterno; override; procedure PrevisualizarInterno; override;
procedure EliminarInterno; override; procedure EliminarInterno; override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -178,6 +178,9 @@ var
AClientes: IBizCliente; AClientes: IBizCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
inherited;
{
AClientes := Nil; AClientes := Nil;
AllItems := False; AllItems := False;
@ -217,6 +220,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorClientes.PonerTitulos(const ATitulo: string); procedure TfEditorClientes.PonerTitulos(const ATitulo: string);
@ -233,6 +237,10 @@ var
AClientes: IBizCliente; AClientes: IBizCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
inherited;
//Se desactiva las opciones de impresion
{
AClientes := Nil; AClientes := Nil;
AllItems := False; AllItems := False;
@ -272,6 +280,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
end. end.