Poder adjuntar documentos y fotos en un presupuesto de armario

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES/trunk@6 3f40d355-893c-4141-8e64-b1d9be72e7e7

Clientes/PresupuestoCliente.dfm

@@ -670,7 +670,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
         Top = 0
         Width = 996
         Height = 398
-        ActivePage = pagContenido
+        ActivePage = pagDocumentos
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clBlack
@@ -2294,8 +2294,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
           object Panel8: TPanel
             Left = 0
             Top = 0
-            Width = 945
-            Height = 352
+            Width = 988
+            Height = 370
             Align = alClient
             BevelOuter = bvNone
             ParentColor = True
@@ -2304,7 +2304,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
               Left = 0
               Top = 0
               Width = 125
-              Height = 352
+              Height = 370
               Align = alLeft
               BevelOuter = bvNone
               Caption = ' '
@@ -2314,8 +2314,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
             object Panel10: TPanel
               Left = 125
               Top = 0
-              Width = 820
-              Height = 352
+              Width = 863
+              Height = 370
               Align = alClient
               BevelOuter = bvNone
               BorderWidth = 10
@@ -2325,8 +2325,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
               object Panel11: TPanel
                 Left = 10
                 Top = 39
-                Width = 800
-                Height = 303
+                Width = 843
+                Height = 321
                 Align = alClient
                 BevelOuter = bvNone
                 BorderWidth = 5
@@ -2336,8 +2336,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                 object explo: TcxShellListView
                   Left = 5
                   Top = 5
-                  Width = 790
-                  Height = 293
+                  Width = 833
+                  Height = 311
                   Align = alClient
                   DragDropSettings.DefaultDropEffect = deCopy
                   DragDropSettings.DropEffect = []
@@ -2359,7 +2359,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
               object pnlBarraDocumentos: TPanel
                 Left = 10
                 Top = 10
-                Width = 800
+                Width = 843
                 Height = 29
                 Align = alTop
                 AutoSize = True

Clientes/PresupuestoCliente.pas

@@ -549,7 +549,7 @@ begin
 
 
     //Documentos asociados al presupuesto
-    if Entidad = entPresupuestoCocina then
+    if (Entidad in [entPresupuestoCocina, entPresupuestoArmarios]) then
     begin
       pnlBarraDocumentos.Visible := True;
       FDirectorio := '\' + ExtractFileName(darFicheroTemporal);
@@ -618,7 +618,7 @@ begin
     Visible := True;
 
     //Documentos asociados al presupuesto
-    if Entidad = entPresupuestoCocina then
+    if (Entidad in [entPresupuestoCocina, entPresupuestoArmarios]) then
     begin
       pnlBarraDocumentos.Visible := False;
       FDirectorio :=  PathDelim + StringReplace(CodigoPresupuesto,'/','',[rfReplaceAll]);
@@ -694,7 +694,7 @@ begin
     Visible := True;
 
     //Documentos asociados al presupuesto
-    if Entidad = entPresupuestoCocina then
+    if (Entidad in [entPresupuestoCocina, entPresupuestoArmarios]) then
     begin
       pnlBarraDocumentos.Visible := False;
       FDirectorio :=  PathDelim + StringReplace(CodigoPresupuesto,'/','',[rfReplaceAll]);
@@ -777,7 +777,7 @@ begin
     Visible := True;
 
     //Documentos asociados al presupuesto
-    if Entidad = entPresupuestoCocina then
+    if (Entidad in [entPresupuestoCocina, entPresupuestoArmarios]) then
     begin
       pnlBarraDocumentos.Visible := True;
       FDirectorio := '\' + StringReplace(CodigoPresupuesto,'/','',[rfReplaceAll]);
@@ -1011,7 +1011,7 @@ begin
     TablaPropiedadesMem.Cancel;
     RollBack;
 
-    if Entidad = entPresupuestoCocina then
+    if (Entidad in [entPresupuestoCocina, entPresupuestoArmarios]) then
     begin
       EliminarDirDocumentos;
       EliminarDirPlanos;
@@ -1269,7 +1269,7 @@ begin
     Commit;
 
 
-    if Entidad = entPresupuestoCocina then
+    if (Entidad in [entPresupuestoCocina, entPresupuestoArmarios]) then
     begin
       EliminarDirDocumentos;
       EliminarDirPlanos;
@@ -2354,21 +2354,28 @@ end;
 
 procedure TfrPresupuestoCliente.ConfigurarPantallaDocumento;
 begin
+  if (Entidad in [entPresupuestoCocina, entPresupuestoArmarios]) then
+  begin
+    pagDocumentos.TabVisible := True;
+    pagPlanos.TabVisible := True;
+  end
+  else
+  begin
+    pagDocumentos.TabVisible := False;
+    pagPlanos.TabVisible := False;
+  end;
+
   if (Entidad = entPresupuestoCocina) then
   begin
     pagContenido.TabVisible := False;
     pagDesgloses.TabVisible := True;
     pagAumento.TabVisible := True;
-    pagDocumentos.TabVisible := True;
-    pagPlanos.TabVisible := True;
   end
   else
   begin
     pagContenido.TabVisible := True;
     pagDesgloses.TabVisible := False;
     pagAumento.TabVisible := False;
-    pagDocumentos.TabVisible := False;
-    pagPlanos.TabVisible := False;
   end;
 
   case Entidad of
@@ -2798,7 +2805,7 @@ procedure TfrPresupuestoCliente.ComprobarEstadoDirDocumentos;
 var
   RutaTemp, RutaFinal: String;
 begin
-  if Entidad = entPresupuestoCocina then
+  if (Entidad in [entPresupuestoCocina, entPresupuestoArmarios]) then
   begin
     DeshabilitarDocumentos;
     Application.ProcessMessages;
@@ -2874,7 +2881,7 @@ procedure TfrPresupuestoCliente.ComprobarEstadoDirPlanos;
 var
   RutaTemp, RutaFinal: String;
 begin
-  if Entidad = entPresupuestoCocina then
+  if (Entidad in [entPresupuestoCocina, entPresupuestoArmarios]) then
   begin
     DeshabilitarPlanos;
     Application.ProcessMessages;

Factuges.dof

@@ -96,7 +96,7 @@ PackageDLLOutputDir=.\Temp
 PackageDCPOutputDir=.\Temp
 SearchPath=$(DELPHI)\Lib\Debug;.\Frames;C:\Archivos de programa\Developer Express Inc\ExpressScheduler\Sources;D:\Proyectos\Librerias;D:\Proyectos\Componentes\Colores
 Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;dxEdtrD7;dxComnD7;EQTLD7;ECQDBCD7;EQDBTLD7;EQGridD7;dxGrEdD7;dxExELD7;dxELibD7;cxLibraryVCLD7;cxEditorsVCLD7;cxGridVCLD7;dxThemeD7;cxDataD7;cxGridUtilsVCLD7;PNGImageD7;TMSD7;FRIBX7;FR7;fsIBX7;fs7;frx7;frxADO7;frxBDE7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxExtEditorsVCLD7;cxExportVCLD7;cxSchedulerVCLD7;cxIntlSchedulerD7;dxPSCoreD7;cxIntlPrintSys3D7;CEToolsPkgd7
-Conditionals=EUREKALOG;EUREKALOG_VER5
+Conditionals=
 DebugSourceDirs=D:\Proyectos\Componentes\FastReport\Source\;D:\Proyectos\FactuGES 2000 v2 (Acana)\Codigo\Frames\;T:\Componentes\CETools\
 UsePackages=0
 [Parameters]
@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=3
 MinorVer=0
-Release=8
+Release=9
 Build=0
 Debug=0
 PreRelease=0
@@ -126,7 +126,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=3.0.8.0
+FileVersion=3.0.9.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
@@ -207,7 +207,7 @@ Item1=D:\Proyectos\FactuGES 2000 v2 (Acana)\Codigo\Temp
 Item2=D:\Rodax Software\Proyectos\FactuGES 2000 v2 (Acana)\Codigo\Temp
 [Exception Log]
 EurekaLog Version=519
-Activate=1
+Activate=0
 Activate Handle=1
 Save Log File=1
 Foreground Tab=0

Factuges.dpr

@@ -26,7 +26,6 @@ program FactuGES;
 {$I COMPILE.INC}
 
 uses
-  ExceptionLog,
   Forms,
   Windows,
   Mensajes,