From 186af5e1c5383fe289aa545bb3c384a27dbf5035 Mon Sep 17 00:00:00 2001 From: david Date: Mon, 2 Jun 2008 10:30:02 +0000 Subject: [PATCH] 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 --- .../Data/uDataModuleAlbaranesCliente.dfm | 5 +++++ .../Servidor/srvAlbaranesCliente_Impl.dfm | 14 ++++++++------ .../Views/uViewAlbaranesCliente.dfm | 3 ++- 3 files changed, 15 insertions(+), 7 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm index f9bdf00d..b6852514 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm +++ b/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 diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index b1579ea0..8dca466b 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/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 = '' - SQLOrigin = 'REFERENCIA' + TableField = 'REFERENCIA' end item DatasetField = 'REFERENCIA_PROVEEDOR' - TableField = '' - 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 diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm index f41d057e..6a1aefa8 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm +++ b/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