Arreglo refresco datos albaranes de proveedor

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

Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm

@@ -49,6 +49,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
         DataType = datString
         Size = 255
         DisplayLabel = 'Proveedor'
+        ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesProveedor_NOMBRE'
       end
       item
@@ -88,6 +89,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
         DataType = datString
         Size = 255
         DisplayLabel = 'Almac'#233'n'
+        ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesProveedor_NOMBRE_ALMACEN'
       end
       item
@@ -100,6 +102,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
         DataType = datString
         Size = 255
         DisplayLabel = 'Ped. proveedor'
+        ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesProveedor_REF_PED_PROVEEDOR'
       end
       item
@@ -119,6 +122,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
         DataType = datString
         Size = 255
         DisplayLabel = 'Ref. factura prov'
+        ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV'
       end
       item
@@ -204,6 +208,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
         DataType = datFloat
         DisplayFormat = ',0.00 %;-,0.00 %'
         Alignment = taRightJustify
+        ServerAutoRefresh = True
         DictionaryEntry = 'AlbaranesProveedor_IVA'
       end
       item

Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas

@@ -3,14 +3,14 @@ unit schAlbaranesProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_AlbaranesProveedor = '{9D3B6136-5028-420C-9E17-EA1818B7411C}';
+  RID_AlbaranesProveedor = '{DC4BC11F-D327-4E71-BD98-E2221D403DCD}';
-  RID_AlbaranesProveedor_Detalles = '{1D79C6CB-2A51-466F-A598-25DC32A87422}';
+  RID_AlbaranesProveedor_Detalles = '{7E3C0C28-6CDC-44EC-B9B3-FA0D6E04B704}';
 
   { Data table names }
   nme_AlbaranesProveedor = 'AlbaranesProveedor';
@@ -129,7 +129,7 @@ const
 type
   { IAlbaranesProveedor }
   IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
-  ['{5D42B721-F52B-45FB-B58C-0D40EE691467}']
+  ['{4A11793E-3535-4087-BAF4-4A6D47B4FB51}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -351,7 +351,7 @@ type
   end;
 
   { TAlbaranesProveedorDataTableRules }
-  TAlbaranesProveedorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor)
+  TAlbaranesProveedorDataTableRules = class(TDADataTableRules, IAlbaranesProveedor)
   private
     f_OBSERVACIONES: IROStrings;
     f_INCIDENCIAS: IROStrings;
@@ -584,7 +584,7 @@ type
 
   { IAlbaranesProveedor_Detalles }
   IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{DE37354A-12D5-4AA5-ACB5-02F30BE8C537}']
+  ['{F72E89B1-361B-44F9-A166-02D428B67E07}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -682,7 +682,7 @@ type
   end;
 
   { TAlbaranesProveedor_DetallesDataTableRules }
-  TAlbaranesProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Detalles)
+  TAlbaranesProveedor_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesProveedor_Detalles)
   private
   protected
     { Property getters and setters }

Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas

@@ -9,13 +9,13 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_AlbaranesProveedorDelta = '{6144F95B-9D3E-4D8A-983B-515B64FC9E55}';
+  RID_AlbaranesProveedorDelta = '{3E80524F-4D76-4027-AD93-F08F2B616B77}';
-  RID_AlbaranesProveedor_DetallesDelta = '{26F798F2-F1D8-4FB0-9302-1AEDC4F8D7A0}';
+  RID_AlbaranesProveedor_DetallesDelta = '{BCE53CF1-BA9D-4944-8EB8-529E2AE826B9}';
 
 type
   { IAlbaranesProveedorDelta }
   IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
-  ['{6144F95B-9D3E-4D8A-983B-515B64FC9E55}']
+  ['{3E80524F-4D76-4027-AD93-F08F2B616B77}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -471,7 +471,7 @@ type
 
   { IAlbaranesProveedor_DetallesDelta }
   IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
-  ['{26F798F2-F1D8-4FB0-9302-1AEDC4F8D7A0}']
+  ['{BCE53CF1-BA9D-4944-8EB8-529E2AE826B9}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;

Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm

@@ -191,6 +191,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
             Name = 'NOMBRE'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesProveedor_NOMBRE'
           end
           item
@@ -225,6 +226,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
             Name = 'NOMBRE_ALMACEN'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesProveedor_NOMBRE_ALMACEN'
           end
           item
@@ -236,6 +238,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
             Name = 'REF_PED_PROVEEDOR'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesProveedor_REF_PED_PROVEEDOR'
           end
           item
@@ -253,6 +256,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
             Name = 'REF_FACTURA_PROV'
             DataType = datString
             Size = 255
+            ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV'
           end
           item
@@ -319,6 +323,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
           item
             Name = 'IVA'
             DataType = datFloat
+            ServerAutoRefresh = True
             DictionaryEntry = 'AlbaranesProveedor_IVA'
           end
           item
@@ -1109,9 +1114,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
     InsertCommandName = 'Insert_AlbaranesProveedor'
     DeleteCommandName = 'Delete_AlbaranesProveedor'
     UpdateCommandName = 'Update_AlbaranesProveedor'
-    RefreshDatasetName = 'AlbaranesProveedor_Refresh'
     ReferencedDataset = 'AlbaranesProveedor'
-    ProcessorOptions = [poPrepareCommands]
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 208
     Top = 24

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.4.0\0"
               VALUE "ProductVersion", "1.0.4.0\0"
-              VALUE "CompileDate", "martes, 03 de junio de 2008 14:27\0"
+              VALUE "CompileDate", "martes, 03 de junio de 2008 16:14\0"
          END
     END
     BLOCK "VarFileInfo"