From ac9fb21efcee4a50a55995a2c69f902bf72e3fa3 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 9 Dec 2011 10:37:44 +0000 Subject: [PATCH] =?UTF-8?q?-=20Quitar=20el=20n=C2=BA=20de=20m=C3=B3vil=20d?= =?UTF-8?q?e=20la=20etiqueta=20impresa.=20-=20Fallo=20al=20a=C3=B1adir=20u?= =?UTF-8?q?na=20medicaci=C3=B3n=20nueva.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.FarmaciaPH_Etiquetas/trunk@18 7b0b1a58-4aa1-b946-8089-8453ede31e50 --- Source/Informes/EtiquetasBlister.fr3 | 4 ++-- Source/Modulos/Medicaciones/Views/uEditorMedicaciones.pas | 8 ++++++++ 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/Source/Informes/EtiquetasBlister.fr3 b/Source/Informes/EtiquetasBlister.fr3 index fc0cbbd..66d66b6 100644 --- a/Source/Informes/EtiquetasBlister.fr3 +++ b/Source/Informes/EtiquetasBlister.fr3 @@ -1,10 +1,10 @@ - + - + diff --git a/Source/Modulos/Medicaciones/Views/uEditorMedicaciones.pas b/Source/Modulos/Medicaciones/Views/uEditorMedicaciones.pas index b7d4a5c..2259b48 100644 --- a/Source/Modulos/Medicaciones/Views/uEditorMedicaciones.pas +++ b/Source/Modulos/Medicaciones/Views/uEditorMedicaciones.pas @@ -44,6 +44,7 @@ type procedure ImprimirInterno; override; procedure PrevisualizarInterno; override; procedure RefrescarInterno; override; + procedure NuevoInterno; override; //Si queremos crear otra vista para el editor heredado solo tendriamos que //sobreescribir este método @@ -258,6 +259,13 @@ begin FController.Ver(Medicaciones); end; +procedure TfEditorMedicaciones.NuevoInterno; +begin + inherited; + FController.Anadir(Medicaciones); + FController.Ver(Medicaciones); +end; + procedure TfEditorMedicaciones.PonerTitulos(const ATitulo: string); var FTitulo : String;