Cambios menores de uso en tienda

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

Cliente/FactuGES.dof

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

FactuGES.inc

@@ -1 +1 @@
-{DEFINE TIENDA}
+{$DEFINE TIENDA}

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranCliente.dfm

@@ -159,6 +159,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
     end
   end
   inherited EditorActionList: TActionList [5]
+    inherited actEliminar: TAction
+      Enabled = False
+    end
   end
   inherited SmallImages: TPngImageList [6]
   end

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranCliente.pas

@@ -30,6 +30,7 @@ type
     procedure FormShow(Sender: TObject); override;
     procedure frViewDatosYSeleccionContacto1edtlNombrePropertiesChange(
       Sender: TObject);
+    procedure actEliminarUpdate(Sender: TObject);
   private
     FAlbaranCliente: IBizAlbaranesCliente;
     FViewAlbaranCliente: IViewAlbaranCliente;
@@ -158,6 +159,11 @@ begin
   Caption := JvNavPanelHeader.Caption;
 end;
 
+procedure TfEditorAlbaranCliente.actEliminarUpdate(Sender: TObject);
+begin
+//  inherited;
+end;
+
 initialization
   RegisterEditor(IBizAlbaranesCliente, ShowEditorAlbaranCliente, etItem);
 

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranesCliente.dfm

@@ -98,35 +98,78 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
     end
   end
   inherited EditorActionList: TActionList [4]
-    State = asSuspended
     inherited actNuevo: TAction
+      Enabled = False
       ImageIndex = 22
       OnExecute = actNuevoExecute
     end
-    inherited actGuardarCerrar: TAction
+    inherited actModificar: TAction
-      Enabled = True
+      Enabled = False
     end
-    inherited actGuardar: TAction
+    inherited actEliminar: TAction
-      Enabled = True
+      Enabled = False
     end
-    inherited actCerrar: TAction
+    inherited actConfPagina: TAction
-      Enabled = True
+      Enabled = False
     end
-    inherited actAnterior: TAction
+    inherited actPrevisualizar: TAction
-      Enabled = True
+      Enabled = False
     end
-    inherited actSiguiente: TAction
+    inherited actPrevisualizarDocumento: TAction
-      Enabled = True
+      Enabled = False
     end
-    inherited actCancelarCambios: TAction
+    inherited actImprimir: TAction
-      Enabled = True
+      Enabled = False
+    end
+    inherited actDeshacer: TEditUndo
+      Enabled = False
+    end
+    inherited actCortar: TEditCut
+      Enabled = False
+    end
+    inherited actImprimirDocumento: TAction
+      Enabled = False
+    end
+    inherited actCopiar: TEditCopy
+      Enabled = False
+    end
+    inherited actPegar: TEditPaste
+      Enabled = False
+    end
+    inherited actSeleccionarTodo: TEditSelectAll
+      Enabled = False
+    end
+    inherited actLimpiar: TEditDelete
+      Enabled = False
+    end
+    inherited actRefrescar: TAction
+      Enabled = False
+    end
+    inherited actAcercaDe: TAction
+      Enabled = False
+    end
+    inherited actBuscar: TAction
+      Enabled = False
+    end
+    inherited actQuitarFiltro: TAction
+      Enabled = False
     end
     object actPagar: TAction [24]
       Category = 'Archivo'
       Caption = 'Generar cobro'
+      Enabled = False
       ImageIndex = 23
       OnExecute = actPagarExecute
     end
+    inherited actDuplicar: TAction
+      Enabled = False
+    end
+    inherited actAnchoAuto: TAction
+      Enabled = False
+    end
+    inherited actFiltrar: TAction
+      Enabled = False
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

Modulos/Albaranes de cliente/Cliente/uEditorAlbaranesCliente.pas

@@ -36,6 +36,7 @@ type
     procedure edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
     procedure FormShow(Sender: TObject);
+    procedure actEliminarUpdate(Sender: TObject);
 
   private
     FAlbaranesCliente: IBizAlbaranesCliente;
@@ -237,6 +238,11 @@ begin
       aAux.SelectedRows.Clear;
 end;
 
+procedure TfEditorAlbaranesCliente.actEliminarUpdate(Sender: TObject);
+begin
+//  inherited;
+end;
+
 initialization
   RegisterEditor(IBizAlbaranesCliente, ShowEditorAlbaranesCliente, etItems);
   RegisterEditor(IBizAlbaranesCliente, ShowSelectEditorAlbaranesCliente, etSelectItems);

Modulos/Albaranes de cliente/Reglas/uBizAlbaranesCliente.pas

@@ -134,6 +134,9 @@ var
 
 procedure ValidarAlbaranCliente (const AAlbaranCliente : IBizAlbaranesCliente);
 begin
+//No se podrán modificar los albaranes ya que van a desaparecer
+  raise Exception.Create('No puede modificar albaranes, solo podrá consultarlos');
+
   if (FloatToStr(AAlbaranCliente.FECHAALBARAN) = '0') then
     raise Exception.Create('Debe indicar la fecha de este albarán');
 

Servidor/FactuGES_Server.dof

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