Se habilita el duplicar factura, y poder imprimir factura en editorFactura

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@180 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm

@@ -122,7 +122,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
             ExplicitWidth = 314
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 314
-              ExplicitWidth = 314
               inherited edtlNombre: TcxDBTextEdit
                 DataBinding.DataSource = frViewFacturaCliente1.DADataSource
                 ExplicitWidth = 224
@@ -219,40 +218,40 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
             ExplicitWidth = 57
           end
           inherited UpDown1: TUpDown
-            Left = 218
+            Left = 202
-            ExplicitLeft = 218
+            ExplicitLeft = 202
           end
           inherited ToolButton13: TToolButton
-            Left = 235
+            Left = 219
-            ExplicitLeft = 235
+            ExplicitLeft = 219
           end
           inherited ToolButton6: TToolButton
-            Left = 243
+            Left = 227
-            ExplicitLeft = 243
+            ExplicitLeft = 227
           end
           inherited ToolButton7: TToolButton
-            Left = 277
+            Left = 261
-            ExplicitLeft = 277
+            ExplicitLeft = 261
           end
           inherited ToolButton8: TToolButton
-            Left = 311
+            Left = 295
-            ExplicitLeft = 311
+            ExplicitLeft = 295
           end
           inherited ToolButton12: TToolButton
-            Left = 345
+            Left = 329
-            ExplicitLeft = 345
+            ExplicitLeft = 329
           end
           inherited ToolButton9: TToolButton
-            Left = 353
+            Left = 337
-            ExplicitLeft = 353
+            ExplicitLeft = 337
           end
           inherited ToolButton10: TToolButton
-            Left = 387
+            Left = 371
-            ExplicitLeft = 387
+            ExplicitLeft = 371
           end
           inherited ToolButton11: TToolButton
-            Left = 421
+            Left = 405
-            ExplicitLeft = 421
+            ExplicitLeft = 405
           end
         end
         inherited cxGrid: TcxGrid

Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas

@@ -294,11 +294,8 @@ end;
 
 procedure TfEditorFacturaCliente.ImprimirInterno;
 begin
-AppFactuGES.ShowCapado;
-{
   inherited;
   FController.Print(FFactura);
-}
 end;
 
 procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject);
@@ -374,11 +371,8 @@ end;
 
 procedure TfEditorFacturaCliente.PrevisualizarInterno;
 begin
-AppFactuGES.ShowCapado;
-{
   inherited;
   FController.Preview(FFactura);
-}
 end;
 
 procedure TfEditorFacturaCliente.RecalcularPortePorUnidad;

Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm

@@ -3,7 +3,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
   ClientHeight = 666
   ClientWidth = 640
   ExplicitWidth = 648
-  ExplicitHeight = 693
+  ExplicitHeight = 700
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -141,8 +141,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
             Width = 240
           end
           inherited edtFechaFinFiltro: TcxDateEdit
-            Left = 351
+            Left = 367
-            ExplicitLeft = 351
+            ExplicitLeft = 367
+            ExplicitWidth = 244
+            Width = 244
           end
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel

Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas

@@ -129,11 +129,9 @@ begin
 end;
 
 procedure TfEditorFacturasCliente.DuplicarInterno;
-{var
+var
-  AFactura : IBizFacturaCliente;}
+  AFactura : IBizFacturaCliente;
 begin
-  AppFactuGES.ShowCapado;
-{
   inherited;
   AFactura := FController.Duplicar(FFacturas);
   try
@@ -141,7 +139,6 @@ begin
   finally
     actRefrescar.Execute;
   end;
-}
 end;
 
 procedure TfEditorFacturasCliente.EliminarInterno;

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "martes, 25 de marzo de 2008 9:34\0"
+              VALUE "CompileDate", "martes, 25 de marzo de 2008 19:25\0"
          END
     END
     BLOCK "VarFileInfo"