Auto-refresco para algunas columnas en el grid.

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

Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm

@@ -50,6 +50,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'Nombre del cliente'
+        ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesCliente_NOMBRE'
       end
       item
@@ -71,6 +72,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'AlbaranesCliente_REFERENCIA_CLIENTE'
+        ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesCliente_REFERENCIA_CLIENTE'
       end
       item
@@ -97,6 +99,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'Almac'#233'n'
+        ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesCliente_NOMBRE_ALMACEN'
       end
       item
@@ -109,6 +112,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'Ref. pedido cliente'
+        ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
       end
       item
@@ -121,6 +125,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         DataType = datString
         Size = 255
         DisplayLabel = 'Ref. factura cliente'
+        ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesCliente_REF_FACTURA'
       end
       item

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -203,6 +203,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Name = 'NOMBRE'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesCliente_NOMBRE'
           end
           item
@@ -221,6 +222,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Name = 'REFERENCIA_CLIENTE'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesCliente_REFERENCIA_CLIENTE'
           end
           item
@@ -244,6 +246,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Name = 'NOMBRE_ALMACEN'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesCliente_NOMBRE_ALMACEN'
           end
           item
@@ -255,6 +258,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Name = 'REF_PEDIDO'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
           end
           item
@@ -266,6 +270,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Name = 'REF_FACTURA'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesCliente_REF_FACTURA'
           end
           item
@@ -401,7 +406,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
         Statements = <
           item
             Connection = 'IBX'
-            TargetTable = 'ALBARANES_CLIENTE_DETALLES'
             SQL = 
               'SELECT'#10'    ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETA' +
               'LLES.ID_ALBARAN,'#10'    ALBARANES_CLIENTE_DETALLES.POSICION, ALBARA' +
@@ -467,13 +471,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               end
               item
                 DatasetField = 'REFERENCIA'
-                TableField = '<unknown>'
-                SQLOrigin = 'REFERENCIA'
+                TableField = 'REFERENCIA'
               end
               item
                 DatasetField = 'REFERENCIA_PROVEEDOR'
-                TableField = '<unknown>'
-                SQLOrigin = 'REFERENCIA_PROVEEDOR'
+                TableField = 'REFERENCIA_PROVEEDOR'
               end
               item
                 DatasetField = 'ID_PEDIDO'
@@ -1150,7 +1152,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
     DeleteCommandName = 'Delete_AlbaranesCliente'
     UpdateCommandName = 'Update_AlbaranesCliente'
     ReferencedDataset = 'AlbaranesCliente'
-    ProcessorOptions = [poPrepareCommands]
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 200
     Top = 24

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm

@@ -8,7 +8,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
     Height = 362
     RootLevelOptions.DetailTabsPosition = dtpTop
     OnActiveTabChanged = cxGridActiveTabChanged
-    ExplicitTop = 102
     ExplicitWidth = 802
     ExplicitHeight = 362
     inherited cxGridView: TcxGridDBTableView
@@ -87,7 +86,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
       end
       object cxGridViewREF_PEDIDO: TcxGridDBColumn
         DataBinding.FieldName = 'REF_PEDIDO'
+        Visible = False
         BestFitMaxWidth = 45
+        VisibleForCustomization = False
         Width = 39
       end
       object cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn