- Arreglado fallo al eliminar un montaje desde su ficha. No se pedía confirmación y lo borraba directamente.

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@30 9a1d36f3-7752-2d40-8ccb-50eb49674c68

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.

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);