Facturas de proveedor: la referencia la asigna el servidor y el usuario no puede escribirla.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@289 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm

@@ -7,7 +7,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
   Position = poScreenCenter
   OnClose = CustomEditorClose
   ExplicitWidth = 796
-  ExplicitHeight = 607
+  ExplicitHeight = 600
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -101,6 +101,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
           ExplicitWidth = 774
           ExplicitHeight = 281
           inherited eReferencia: TcxDBTextEdit
+            Properties.ReadOnly = True
             ExplicitWidth = 159
             Width = 159
           end
@@ -197,15 +198,16 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
           inherited ToolButton3: TToolButton
             Wrap = False
           end
-          inherited ToolButton4: TToolButton [3]
+          inherited ToolButton4: TToolButton
             Left = 278
             Top = 0
             ExplicitLeft = 278
             ExplicitTop = 0
           end
-          inherited ToolButton14: TToolButton [4]
+          inherited ToolButton14: TToolButton
             Left = 334
             Top = 0
+            Wrap = False
             ExplicitLeft = 334
             ExplicitTop = 0
           end
@@ -215,61 +217,69 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
             ExplicitLeft = 399
             ExplicitTop = 0
           end
-          inherited FontSize: TEdit [6]
+          inherited FontSize: TEdit
             Left = 544
             Top = 0
-            Width = 57
+            Width = 72
             ExplicitLeft = 544
             ExplicitTop = 0
-            ExplicitWidth = 57
+            ExplicitWidth = 72
           end
-          inherited UpDown1: TUpDown [7]
-            Left = 601
-            Top = 0
-            ExplicitLeft = 601
-            ExplicitTop = 0
-          end
-          inherited ToolButton13: TToolButton [8]
-          end
-          inherited ToolButton6: TToolButton [9]
+          inherited ToolButton13: TToolButton [7]
             Left = 0
+            Top = 0
+            Wrap = True
             ExplicitLeft = 0
+            ExplicitTop = 0
+            ExplicitHeight = 27
           end
-          inherited ToolButton7: TToolButton [10]
-            Left = 66
-            Top = 30
-            ExplicitLeft = 66
-            ExplicitTop = 30
+          inherited UpDown1: TUpDown [8]
+            Left = 0
+            Top = 27
+            ExplicitLeft = 0
+            ExplicitTop = 27
           end
-          inherited ToolButton8: TToolButton [11]
-            Left = 133
-            Top = 30
-            ExplicitLeft = 133
-            ExplicitTop = 30
+          inherited ToolButton6: TToolButton
+            Left = 17
+            Top = 27
+            ExplicitLeft = 17
+            ExplicitTop = 27
           end
-          inherited ToolButton12: TToolButton [12]
-            Left = 216
-            Top = 30
-            ExplicitLeft = 216
-            ExplicitTop = 30
+          inherited ToolButton7: TToolButton
+            Left = 83
+            Top = 27
+            ExplicitLeft = 83
+            ExplicitTop = 27
+          end
+          inherited ToolButton8: TToolButton
+            Left = 150
+            Top = 27
+            ExplicitLeft = 150
+            ExplicitTop = 27
+          end
+          inherited ToolButton12: TToolButton
+            Left = 233
+            Top = 27
+            ExplicitLeft = 233
+            ExplicitTop = 27
           end
           inherited ToolButton9: TToolButton
-            Left = 224
-            Top = 30
-            ExplicitLeft = 224
-            ExplicitTop = 30
+            Left = 241
+            Top = 27
+            ExplicitLeft = 241
+            ExplicitTop = 27
           end
-          inherited ToolButton10: TToolButton [14]
-            Left = 369
-            Top = 30
-            ExplicitLeft = 369
-            ExplicitTop = 30
+          inherited ToolButton10: TToolButton
+            Left = 386
+            Top = 27
+            ExplicitLeft = 386
+            ExplicitTop = 27
           end
-          inherited ToolButton11: TToolButton [15]
-            Left = 494
-            Top = 30
-            ExplicitLeft = 494
-            ExplicitTop = 30
+          inherited ToolButton11: TToolButton
+            Left = 511
+            Top = 27
+            ExplicitLeft = 511
+            ExplicitTop = 27
           end
         end
         inherited cxGrid: TcxGrid
@@ -283,9 +293,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
         inherited TBXDock1: TTBXDock
           Top = 51
           Width = 774
-          ExplicitWidth = 780
+          ExplicitTop = 51
+          ExplicitWidth = 774
           inherited TBXToolbar1: TTBXToolbar
-            ExplicitWidth = 626
+            ExplicitWidth = 702
           end
         end
       end

Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm

@@ -1,6 +1,6 @@
 inherited frViewFacturaProveedor: TfrViewFacturaProveedor
-  Width = 743
-  Height = 303
+  Width = 451
+  Height = 304
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,18 +9,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 743
-    Height = 303
+    Width = 451
+    Height = 304
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 451
-    ExplicitHeight = 304
     DesignSize = (
-      743
-      303)
+      451
+      304)
     object eReferencia: TcxDBTextEdit
       Left = 136
       Top = 30
@@ -86,7 +84,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Top = 111
       DataBinding.DataField = 'ID_FORMA_PAGO'
       DataBinding.DataSource = DADataSource
-      Properties.ListOptions.SyncMode = True
       Properties.ImmediatePost = True
       Properties.KeyFieldNames = 'ID'
       Properties.ListColumns = <
@@ -95,7 +92,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
         end>
       Properties.ListOptions.GridLines = glNone
       Properties.ListOptions.ShowHeader = False
-      Properties.ListOptions.SyncMode = True	  
+      Properties.ListOptions.SyncMode = True
       Properties.ListSource = dsFormaPago
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
@@ -114,7 +111,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Width = 78
     end
     object bFormasPago: TButton
-      Left = 216
+      Left = 162
       Top = 111
       Width = 132
       Height = 23
@@ -143,7 +140,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Width = 158
     end
     inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
-      Left = 376
+      Left = 322
       Top = 30
       Width = 350
       Height = 202
@@ -155,7 +152,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       ParentFont = False
       TabOrder = 6
       ReadOnly = False
-      ExplicitLeft = 376
+      ExplicitLeft = 322
       ExplicitTop = 30
       inherited dxLayoutControl1: TdxLayoutControl
         inherited edtNIFCIF: TcxDBTextEdit
@@ -175,12 +172,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
           Width = 327
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 253
-          ExplicitLeft = 253
+          Left = 203
+          ExplicitLeft = 203
         end
         inherited Button3: TBitBtn
-          Left = 137
-          ExplicitLeft = 137
+          Left = 87
+          ExplicitLeft = 87
         end
       end
     end

Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas

@@ -132,9 +132,6 @@ begin
     dsFormaPago.DataTable := FFormasPago.DataTable;
     dsFormaPago.DataTable.Active := True;
 
-    //Solo se deshabilita al insertar, luego la referencia será modificable
-    eReferencia.Enabled := (FFactura.DataTable.State = dsInsert);
-
     if FFactura.TIPO = CTE_TIPO_ABONO then
     begin
       dxLayoutControl1Item2.Caption := 'Fecha del abono:';