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