Arreglo de pedidos a proveedor que fallaba al insertar un pedido nuevo

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

Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm

@@ -57,7 +57,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
         Name = 'REFERENCIA'
         DataType = datString
         Size = 255
-        ServerAutoRefresh = True
         DictionaryEntry = 'PedidosProveedor_REFERENCIA'
       end
       item

Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj

@@ -43,12 +43,6 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
       <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">PedidosProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -58,8 +52,8 @@
     <DelphiCompile Include="PedidosProveedor_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
     <DCCReference Include="Data\uIDataModulePedidosProveedor.pas" />
     <DCCReference Include="Data\uIDataModulePedidosProveedorReport.pas" />
     <DCCReference Include="schPedidosProveedorClient_Intf.pas" />

Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas

@@ -3,15 +3,15 @@ unit schPedidosProveedorClient_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_PedidosProveedor = '{BF69E780-7218-4D16-8D06-93922A90C263}';
+  RID_PedidosProveedor = '{22AB7846-6093-4612-B61E-FD4C10DB2AE7}';
-  RID_PedidosProveedor_Detalles = '{325616FD-4D4C-4966-ABB4-DA61F028808A}';
+  RID_PedidosProveedor_Detalles = '{03E6E5FB-F6A4-4BA6-B50A-2266A1B760B9}';
-  RID_PedidosProveedor_Articulos_Pendientes = '{CC923862-B303-4114-BCE9-390F29227B57}';
+  RID_PedidosProveedor_Articulos_Pendientes = '{DE3CC08E-E770-4883-B5A9-DAAC783FEECD}';
 
   { Data table names }
   nme_PedidosProveedor = 'PedidosProveedor';
@@ -151,7 +151,7 @@ const
 type
   { IPedidosProveedor }
   IPedidosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{86B0C6FE-F4C2-4D08-B550-9B28424DC65F}']
+  ['{D50CD449-67BE-478F-AC2A-D10FF3915156}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -379,7 +379,7 @@ type
   end;
 
   { TPedidosProveedorDataTableRules }
-  TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
+  TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
   private
     f_OBSERVACIONES: IROStrings;
     f_INCIDENCIAS: IROStrings;
@@ -618,7 +618,7 @@ type
 
   { IPedidosProveedor_Detalles }
   IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{F6C135F0-A6F6-4575-B95A-6C09F48B8AF7}']
+  ['{16378B3A-6A16-45AB-A2F8-8C50E9ECB4FA}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -722,7 +722,7 @@ type
   end;
 
   { TPedidosProveedor_DetallesDataTableRules }
-  TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles)
+  TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
   private
   protected
     { Property getters and setters }
@@ -833,7 +833,7 @@ type
 
   { IPedidosProveedor_Articulos_Pendientes }
   IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
-  ['{6B40F639-92F1-4D42-A5F7-FEEEDAA1990A}']
+  ['{5122E04E-672C-45EF-A1C4-82D194A1DBF3}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -877,7 +877,7 @@ type
   end;
 
   { TPedidosProveedor_Articulos_PendientesDataTableRules }
-  TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
+  TPedidosProveedor_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
   private
   protected
     { Property getters and setters }

Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas

@@ -9,14 +9,14 @@ 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_PedidosProveedorDelta = '{22716888-D480-4353-8839-68A6CF4AC29C}';
+  RID_PedidosProveedorDelta = '{616C488F-BFD3-45A8-A204-879873D85CF0}';
-  RID_PedidosProveedor_DetallesDelta = '{D1D10F76-2A35-46FF-84AA-50A16F7F3E53}';
+  RID_PedidosProveedor_DetallesDelta = '{C93B2E5B-CC8C-47D8-B4F1-9E6B677EF39A}';
-  RID_PedidosProveedor_Articulos_PendientesDelta = '{DD6B9A4F-AF66-4725-9ABE-D62CB27BAC83}';
+  RID_PedidosProveedor_Articulos_PendientesDelta = '{5EE863CB-706E-46E9-A9F0-743A71E89B4A}';
 
 type
   { IPedidosProveedorDelta }
   IPedidosProveedorDelta = interface(IPedidosProveedor)
-  ['{22716888-D480-4353-8839-68A6CF4AC29C}']
+  ['{616C488F-BFD3-45A8-A204-879873D85CF0}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -484,7 +484,7 @@ type
 
   { IPedidosProveedor_DetallesDelta }
   IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
-  ['{D1D10F76-2A35-46FF-84AA-50A16F7F3E53}']
+  ['{C93B2E5B-CC8C-47D8-B4F1-9E6B677EF39A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
@@ -698,7 +698,7 @@ type
 
   { IPedidosProveedor_Articulos_PendientesDelta }
   IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
-  ['{DD6B9A4F-AF66-4725-9ABE-D62CB27BAC83}']
+  ['{5EE863CB-706E-46E9-A9F0-743A71E89B4A}']
     { Property getters and setters }
     function GetOldID_PEDIDOValue : Integer;
     function GetOldREFERENCIAValue : String;

Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm

@@ -1,7 +1,6 @@
 object srvPedidosProveedor: TsrvPedidosProveedor
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
   SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schPedidosProveedor
@@ -70,6 +69,14 @@ object srvPedidosProveedor: TsrvPedidosProveedor
                 DatasetField = 'NOMBRE_ALMACEN'
                 TableField = 'NOMBRE_ALMACEN'
               end
+              item
+                DatasetField = 'ID_OBRA'
+                TableField = 'ID_OBRA'
+              end
+              item
+                DatasetField = 'NOMBRE_OBRA'
+                TableField = 'NOMBRE_OBRA'
+              end
               item
                 DatasetField = 'OBSERVACIONES'
                 TableField = 'OBSERVACIONES'
@@ -161,14 +168,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
               item
                 DatasetField = 'ID_FORMA_PAGO'
                 TableField = 'ID_FORMA_PAGO'
-              end
-              item
-                DatasetField = 'ID_OBRA'
-                TableField = 'ID_OBRA'
-              end
-              item
-                DatasetField = 'NOMBRE_OBRA'
-                TableField = 'NOMBRE_OBRA'
               end>
           end>
         Name = 'PedidosProveedor'
@@ -201,7 +200,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
             Name = 'REFERENCIA'
             DataType = datString
             Size = 255
-            ServerAutoRefresh = True
             DictionaryEntry = 'PedidosProveedor_REFERENCIA'
           end
           item
@@ -384,7 +382,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
         Statements = <
           item
             Connection = 'IBX'
-            TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
             SQL = 
               'SELECT'#10'    PEDIDOS_PROVEEDOR_DETALLES.ID, PEDIDOS_PROVEEDOR_DETA' +
               'LLES.ID_PEDIDO,'#10'    PEDIDOS_PROVEEDOR_DETALLES.POSICION, PEDIDOS' +
@@ -425,6 +422,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
                 DatasetField = 'CANTIDAD'
                 TableField = 'CANTIDAD'
               end
+              item
+                DatasetField = 'UNIDAD_MEDIDA'
+                TableField = 'UNIDAD_MEDIDA'
+              end
               item
                 DatasetField = 'IMPORTE_UNIDAD'
                 TableField = 'IMPORTE_UNIDAD'
@@ -451,22 +452,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
               end
               item
                 DatasetField = 'REFERENCIA'
-                TableField = '<unknown>'
+                TableField = 'REFERENCIA'
-                SQLOrigin = 'REFERENCIA'
               end
               item
                 DatasetField = 'REFERENCIA_PROVEEDOR'
-                TableField = '<unknown>'
+                TableField = 'REFERENCIA_PROVEEDOR'
-                SQLOrigin = 'REFERENCIA_PROVEEDOR'
-              end
-              item
-                DatasetField = 'UNIDAD_MEDIDA'
-                TableField = 'UNIDAD_MEDIDA'
               end
               item
                 DatasetField = 'REFERENCIA_FABRICANTE'
-                TableField = '<unknown>'
+                TableField = 'REFERENCIA_FABRICANTE'
-                SQLOrigin = 'REFERENCIA_FABRICANTE'
               end>
           end>
         Name = 'PedidosProveedor_Detalles'
@@ -571,7 +565,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
         Statements = <
           item
             Connection = 'IBX'
-            TargetTable = 'V_PED_PROV_ARTICULOS'
             SQL = 
               'select V_PED_PROV_ARTICULOS.ID_PEDIDO,'#10'       ARTICULOS.REFERENC' +
               'IA,'#10'       V_PED_PROV_ARTICULOS.ID_ARTICULO,'#10'       ARTICULOS.DE' +
@@ -663,173 +656,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
           end>
         Name = 'Delete_PedidosProveedor'
       end
-      item
-        Params = <
-          item
-            Name = 'CANTIDAD'
-            Value = ''
-          end
-          item
-            Name = 'POSICION'
-            Value = ''
-          end
-          item
-            Name = 'UNIDAD_MEDIDA'
-            Value = ''
-          end
-          item
-            Name = 'ID'
-            DataType = datAutoInc
-            GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
-            Value = ''
-          end
-          item
-            Name = 'TIPO_DETALLE'
-            Value = ''
-          end
-          item
-            Name = 'CONCEPTO'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_UNIDAD'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_TOTAL'
-            Value = ''
-          end
-          item
-            Name = 'VISIBLE'
-            Value = ''
-          end
-          item
-            Name = 'ID_PEDIDO'
-            Value = ''
-          end
-          item
-            Name = 'ID_ARTICULO'
-            Value = ''
-          end
-          item
-            Name = 'DESCUENTO'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_PORTE'
-            Value = ''
-          end>
-        Statements = <
-          item
-            Connection = 'IBX'
-            TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
-            SQL = 
-              'INSERT'#10'  INTO PEDIDOS_PROVEEDOR_DETALLES'#10'    (CANTIDAD, POSICION' +
-              ', ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10'     IMPORTE_TOTA' +
-              'L, VISIBLE, ID_PEDIDO, UNIDAD_MEDIDA,'#10'     ID_ARTICULO, DESCUENT' +
-              'O, IMPORTE_PORTE)'#10'  VALUES'#10'    (:CANTIDAD, :POSICION, :ID, :TIPO' +
-              '_DETALLE, :CONCEPTO, '#10'     :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VIS' +
-              'IBLE, :ID_PEDIDO, :UNIDAD_MEDIDA,'#10'     :ID_ARTICULO, :DESCUENTO,' +
-              ' :IMPORTE_PORTE)'#10
-            StatementType = stSQL
-            ColumnMappings = <>
-          end>
-        Name = 'Insert_PedidosProveedor_Detalles'
-      end
-      item
-        Params = <
-          item
-            Name = 'OLD_ID'
-            Value = ''
-          end>
-        Statements = <
-          item
-            Connection = 'IBX'
-            TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
-            SQL = 
-              'DELETE '#10'  FROM'#10'    PEDIDOS_PROVEEDOR_DETALLES'#10'  WHERE'#10'    (ID = ' +
-              ':OLD_ID)'
-            StatementType = stSQL
-            ColumnMappings = <>
-          end>
-        Name = 'Delete_PedidosProveedor_Detalles'
-      end
-      item
-        Params = <
-          item
-            Name = 'UNIDAD_MEDIDA'
-            Value = ''
-          end
-          item
-            Name = 'CANTIDAD'
-            Value = ''
-          end
-          item
-            Name = 'POSICION'
-            Value = ''
-          end
-          item
-            Name = 'ID'
-            Value = ''
-          end
-          item
-            Name = 'TIPO_DETALLE'
-            Value = ''
-          end
-          item
-            Name = 'CONCEPTO'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_UNIDAD'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_TOTAL'
-            Value = ''
-          end
-          item
-            Name = 'VISIBLE'
-            Value = ''
-          end
-          item
-            Name = 'ID_PEDIDO'
-            Value = ''
-          end
-          item
-            Name = 'ID_ARTICULO'
-            Value = ''
-          end
-          item
-            Name = 'DESCUENTO'
-            Value = ''
-          end
-          item
-            Name = 'IMPORTE_PORTE'
-            Value = ''
-          end
-          item
-            Name = 'OLD_ID'
-            Value = ''
-          end>
-        Statements = <
-          item
-            Connection = 'IBX'
-            TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
-            SQL = 
-              'UPDATE PEDIDOS_PROVEEDOR_DETALLES'#10'  SET '#10'    CANTIDAD = :CANTIDA' +
-              'D, '#10'    UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10'    POSICION = :POSICION' +
-              ', '#10'    ID = :ID, '#10'    TIPO_DETALLE = :TIPO_DETALLE, '#10'    CONCEPT' +
-              'O = :CONCEPTO, '#10'    IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10'    IMPOR' +
-              'TE_TOTAL = :IMPORTE_TOTAL, '#10'    VISIBLE = :VISIBLE, '#10'    ID_PEDI' +
-              'DO = :ID_PEDIDO, '#10'    ID_ARTICULO = :ID_ARTICULO,'#10'    DESCUENTO ' +
-              '= :DESCUENTO,'#10'    IMPORTE_PORTE = :IMPORTE_PORTE'#10'  WHERE'#10'    (ID' +
-              ' = :OLD_ID)'#10
-            StatementType = stSQL
-            ColumnMappings = <>
-          end>
-        Name = 'Update_PedidosProveedor_Detalles'
-      end
       item
         Params = <
           item
@@ -1149,13 +975,176 @@ object srvPedidosProveedor: TsrvPedidosProveedor
             ColumnMappings = <>
           end>
         Name = 'Update_PedidosProveedor'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
+            Value = ''
+          end
+          item
+            Name = 'ID_PEDIDO'
+            Value = ''
+          end
+          item
+            Name = 'POSICION'
+            Value = ''
+          end
+          item
+            Name = 'TIPO_DETALLE'
+            Value = ''
+          end
+          item
+            Name = 'ID_ARTICULO'
+            Value = ''
+          end
+          item
+            Name = 'CONCEPTO'
+            Value = ''
+          end
+          item
+            Name = 'CANTIDAD'
+            Value = ''
+          end
+          item
+            Name = 'UNIDAD_MEDIDA'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_UNIDAD'
+            Value = ''
+          end
+          item
+            Name = 'DESCUENTO'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_PORTE'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_TOTAL'
+            Value = ''
+          end
+          item
+            Name = 'VISIBLE'
+            Value = ''
+          end>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
+            SQL = 
+              'INSERT'#10'  INTO PEDIDOS_PROVEEDOR_DETALLES'#10'    (ID, ID_PEDIDO, POS' +
+              'ICION, TIPO_DETALLE, ID_ARTICULO, '#10'     CONCEPTO, CANTIDAD, UNID' +
+              'AD_MEDIDA, IMPORTE_UNIDAD, '#10'     DESCUENTO, IMPORTE_PORTE, IMPOR' +
+              'TE_TOTAL, VISIBLE, FECHA_ALTA)'#10'  VALUES'#10'    (:ID, :ID_PEDIDO, :P' +
+              'OSICION, :TIPO_DETALLE, :ID_ARTICULO, '#10'     :CONCEPTO, :CANTIDAD' +
+              ', :UNIDAD_MEDIDA, :IMPORTE_UNIDAD, '#10'     :DESCUENTO, :IMPORTE_PO' +
+              'RTE, :IMPORTE_TOTAL, :VISIBLE, '#10'     current_timestamp)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_PedidosProveedor_Detalles'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID'
+            DataType = datInteger
+            Value = '0'
+          end>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
+            SQL = 
+              'DELETE '#10'  FROM'#10'    PEDIDOS_PROVEEDOR_DETALLES'#10'  WHERE'#10'    (ID = ' +
+              ':OLD_ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_PedidosProveedor_Detalles'
+      end
+      item
+        Params = <
+          item
+            Name = 'POSICION'
+            Value = ''
+          end
+          item
+            Name = 'TIPO_DETALLE'
+            Value = ''
+          end
+          item
+            Name = 'ID_ARTICULO'
+            Value = ''
+          end
+          item
+            Name = 'CONCEPTO'
+            Value = ''
+          end
+          item
+            Name = 'CANTIDAD'
+            Value = ''
+          end
+          item
+            Name = 'UNIDAD_MEDIDA'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_UNIDAD'
+            Value = ''
+          end
+          item
+            Name = 'DESCUENTO'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_PORTE'
+            Value = ''
+          end
+          item
+            Name = 'IMPORTE_TOTAL'
+            Value = ''
+          end
+          item
+            Name = 'VISIBLE'
+            Value = ''
+          end
+          item
+            Name = 'ID'
+            Value = ''
+          end>
+        Statements = <
+          item
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
+            SQL = 
+              'UPDATE PEDIDOS_PROVEEDOR_DETALLES'#10'  SET '#10'    POSICION = :POSICIO' +
+              'N,'#10'    TIPO_DETALLE = :TIPO_DETALLE, '#10'    ID_ARTICULO = :ID_ARTI' +
+              'CULO, '#10'    CONCEPTO = :CONCEPTO, '#10'    CANTIDAD = :CANTIDAD, '#10'   ' +
+              ' UNIDAD_MEDIDA = :UNIDAD_MEDIDA, '#10'    IMPORTE_UNIDAD = :IMPORTE_' +
+              'UNIDAD, '#10'    DESCUENTO = :DESCUENTO, '#10'    IMPORTE_PORTE = :IMPOR' +
+              'TE_PORTE, '#10'    IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10'    VISIBLE = :V' +
+              'ISIBLE, '#10'    FECHA_MODIFICACION = current_timestamp'#10'  WHERE'#10'    ' +
+              '(ID = :ID)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_PedidosProveedor_Detalles'
       end>
     RelationShips = <
       item
         Name = 'FK_PedidosProveedor_Detalles'
         MasterDatasetName = 'PedidosProveedor'
         MasterFields = 'ID'
-        DetailDatasetName = 'PedidosProveedor_Detalles'
+        DetailDatasetName = 'Copy of PedidosProveedor_Detalles'
         DetailFields = 'ID_PEDIDO'
         RelationshipType = rtForeignKey
       end>
@@ -1211,9 +1200,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
     InsertCommandName = 'Insert_PedidosProveedor'
     DeleteCommandName = 'Delete_PedidosProveedor'
     UpdateCommandName = 'Update_PedidosProveedor'
-    RefreshDatasetName = 'PedidosProveedor_Refresh'
     ReferencedDataset = 'PedidosProveedor'
-    ProcessorOptions = [poPrepareCommands]
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 240
     Top = 24
@@ -1223,7 +1211,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
     InsertCommandName = 'Insert_PedidosProveedor_Detalles'
     DeleteCommandName = 'Delete_PedidosProveedor_Detalles'
     UpdateCommandName = 'Update_PedidosProveedor_Detalles'
-    RefreshDatasetName = 'PedidosProveedor_Detalles_Refresh'
     ReferencedDataset = 'PedidosProveedor_Detalles'
     ProcessorOptions = [poPrepareCommands]
     UpdateMode = updWhereKeyOnly
@@ -1493,7 +1480,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
         DataType = datString
         Size = 255
         DisplayLabel = 'REFERENCIA'
-        ServerAutoRefresh = True
       end
       item
         Name = 'PedidosProveedor_FECHA_ENVIO'