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 d5bcb78..d7d11ff 100644 Binary files a/Cliente/FactuGES.res and b/Cliente/FactuGES.res differ 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);