From 343f190658d3d669be0aaab0dd396ca98ca889e7 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 20 Sep 2016 11:50:55 +0000
Subject: [PATCH] =?UTF-8?q?-=20Arreglado=20fallo=20al=20eliminar=20un=20mo?=
 =?UTF-8?q?ntaje=20desde=20su=20ficha.=20No=20se=20ped=C3=ADa=20confirmaci?=
 =?UTF-8?q?=C3=B3n=20y=20lo=20borraba=20directamente.?=
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.AlonsoYSal_FactuGES/trunk@30 9a1d36f3-7752-2d40-8ccb-50eb49674c68
---
 Cliente/FactuGES.dof                        |   6 +++---
 Cliente/FactuGES.res                        | Bin 172184 -> 172184 bytes
 Modulos/Montajes/Cliente/uEditorMontaje.pas |   7 +++++++
 3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/Cliente/FactuGES.dof b/Cliente/FactuGES.dof
index 8758d92..4ffcfa7 100644
--- a/Cliente/FactuGES.dof
+++ b/Cliente/FactuGES.dof
@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
 MinorVer=5
-Release=5
+Release=6
 Build=0
 Debug=0
 PreRelease=0
@@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.5.5.0
+FileVersion=1.5.6.0
 InternalName=FactuGES
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES
-ProductVersion=1.5.5.0
+ProductVersion=1.5.6.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
diff --git a/Cliente/FactuGES.res b/Cliente/FactuGES.res
index d5bcb78c64101b9819ea96c02cccef48cb8e8038..d7d11ffccbbd751f1b59cb006c644c45e5f8698b 100644
GIT binary patch
delta 43
zcmbPnkZZ<4u7(!IElgtbIN2Cj85kKD7}%!E&tv+^XtrH+K9e*fquF%B1x)Dx4CD)B

delta 43
zcmbPnkZZ<4u7(!IElgtbI9VB385kKD7+9yv&tv+^Xu4f=K9e*fqv>?R1x)Dx44w;M

diff --git a/Modulos/Montajes/Cliente/uEditorMontaje.pas b/Modulos/Montajes/Cliente/uEditorMontaje.pas
index a7dddb7..1d17858 100644
--- a/Modulos/Montajes/Cliente/uEditorMontaje.pas
+++ b/Modulos/Montajes/Cliente/uEditorMontaje.pas
@@ -41,6 +41,7 @@ type
     procedure frViewPedidosMontajeactRecibirPedidoExecute(Sender: TObject);
     procedure frViewPedidosMontajeactRecibirPedidoUpdate(Sender: TObject);
     procedure actEtiquetasExecute(Sender: TObject);
+    procedure actEliminarExecute(Sender: TObject);
   private
     FMontaje: IBizMontaje;
     FViewMontaje : IViewMontaje;
@@ -228,6 +229,12 @@ begin
   VerAsistenteEtiquetasMontajes(FMontaje);
 end;
 
+procedure TfEditorMontaje.actEliminarExecute(Sender: TObject);
+begin
+  if (Application.MessageBox('¿Desea borrar este montaje?', 'Atención', MB_YESNO) = IDYES) then
+    inherited;
+end;
+
 initialization
   RegisterEditor(IBizMontaje, ShowEditorMontaje, etItem);