AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@30 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
David Arranz 2016-09-20 11:50:55 +00:00
parent 9736a2f458
commit 343f190658
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Cliente/FactuGES.dof
View File

@ -114,7 +114,7 @@ IncludeVerInfo=1
AutoIncBuild=0 AutoIncBuild=0
MajorVer=1 MajorVer=1
MinorVer=5 MinorVer=5
Release=5 Release=6
Build=0 Build=0
Debug=0 Debug=0
PreRelease=0 PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys] [Version Info Keys]
CompanyName=Rodax Software S.L. CompanyName=Rodax Software S.L.
FileDescription= FileDescription=
FileVersion=1.5.5.0 FileVersion=1.5.6.0
InternalName=FactuGES InternalName=FactuGES
LegalCopyright= LegalCopyright=
LegalTrademarks= LegalTrademarks=
OriginalFilename= OriginalFilename=
ProductName=FactuGES ProductName=FactuGES
ProductVersion=1.5.5.0 ProductVersion=1.5.6.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc. C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

BIN
Cliente/FactuGES.res
View File

Binary file not shown.

7
Modulos/Montajes/Cliente/uEditorMontaje.pas
View File

@ -41,6 +41,7 @@ type
procedure frViewPedidosMontajeactRecibirPedidoExecute(Sender: TObject); procedure frViewPedidosMontajeactRecibirPedidoExecute(Sender: TObject);
procedure frViewPedidosMontajeactRecibirPedidoUpdate(Sender: TObject); procedure frViewPedidosMontajeactRecibirPedidoUpdate(Sender: TObject);
procedure actEtiquetasExecute(Sender: TObject); procedure actEtiquetasExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
private private
FMontaje: IBizMontaje; FMontaje: IBizMontaje;
FViewMontaje : IViewMontaje; FViewMontaje : IViewMontaje;
@ -228,6 +229,12 @@ begin
VerAsistenteEtiquetasMontajes(FMontaje); VerAsistenteEtiquetasMontajes(FMontaje);
end; end;
procedure TfEditorMontaje.actEliminarExecute(Sender: TObject);
begin
if (Application.MessageBox('¿Desea borrar este montaje?', 'Atención', MB_YESNO) = IDYES) then
inherited;
end;
initialization initialization
RegisterEditor(IBizMontaje, ShowEditorMontaje, etItem); RegisterEditor(IBizMontaje, ShowEditorMontaje, etItem);