From 4c82a32538aef91b95fec2606c14cb6fb900a1db Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 3 Jun 2008 12:26:53 +0000
Subject: [PATCH] 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
---
 .../Data/uDataModulePedidosProveedor.dfm      |   1 -
 .../Model/PedidosProveedor_model.dproj        |  10 +-
 .../Model/PedidosProveedor_model.res          | Bin 384 -> 4748 bytes
 .../Model/schPedidosProveedorClient_Intf.pas  |  20 +-
 .../Model/schPedidosProveedorServer_Intf.pas  |  12 +-
 .../Servidor/srvPedidosProveedor_Impl.dfm     | 374 +++++++++---------
 6 files changed, 198 insertions(+), 219 deletions(-)

diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
index 5b17d23c..4319562d 100644
--- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm	
+++ b/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
diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj
index 0e78b165..70864467 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj	
+++ b/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="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
     <DCCReference Include="Data\uIDataModulePedidosProveedor.pas" />
     <DCCReference Include="Data\uIDataModulePedidosProveedorReport.pas" />
     <DCCReference Include="schPedidosProveedorClient_Intf.pas" />
diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.res b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.res
index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644
GIT binary patch
literal 4748
zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg
zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?<w4U-ol;S2jC7
zx4(byej2@_#)0HWvg0i^wC4Xli+W*aXJ^(njceK|Kb@c3qFNX>p${kR>3GhM`oH*q
zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W
zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7
z{BT%G%irdMe*|oDJmgvJ<ltI;x5J<Oc>aA2`9B<Z5Toyra?r{a4$fnJHGXo6Pmcq8
z{JGCD500t1h4|yI?-f&xoj9;YT&Ch&JLO*X#NC3sCI0Xmc<f_vh`jn-1E!?th$%QM
znzGM|)$vl3f7;nE+9qR}|A?C$H3K&BFdq9?uxrIqHIne#5?8G@da2ybWLGKA686M2
z*LJMMMk4<U`dzFC9}HrSxLfOGll{P#??xir)$c2}C;ql+y-&Wa(LP{PgPk1E1@{uR
zIMCNz;u9;r(axhQvEx%?i#p<Vn=Z!SK%f10?4_`0@RY8lXRM3(t(nFSzJ$4kJr6&x
ze)~B%biu*TY$HDstHD=|UGxJceYiUQQa0Gu(p3og@%ZJ><6Xi*?M~Q;)@Sbfwf3uf
zVaWkbU<NjR3%=~AdoZbkXp`f@b0%GBT^$^V5e(n|#O(?P)hBbF)4n%2cw6U#adPM!
zz(!`V|Bfl{aH0)Y&w;SK7R4<z{p;Gwz1D%l86L3ZFZQ&=pB$<&esXT|OZ?=AGaWoe
z{>jU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv
zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N|
z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc
z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0
zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38=
zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W
zVvPDBKHh;i=RU4J_ta3E;)M<P+=2X7;VbzliQZ=IHV#+fr#{!(ukt%UJMS8=332qg
z7jD)rSbpCW+^j*cd6LUEe8#9n&v!NEJM(@?SHvB$=h@|)fjw|&qD?NQ5A&R>n>Y+L
zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m
z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJu<OVP
zzHjp+hnwo*3NQE$JTA(agu~silV5T`du+GJgWGi_7mAy`Nk8fLt~%GF$;XXcE-ri?
zyIglyyzA`K-);4Eem2MZm07RBza@W3UP)d`Rz=RFk-I);`s{$L%yyBNX0OTjo5Gk0
zs}g44uXg*l%xo^{`#0=kd*2?}Cz22Bv2;Gu?;3o~(D#gk1OKYQSCAb$(&vu@_pvWO
z>gbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T
z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC
zy(^m((;DnQmDQ<zX+PK(Lfu@ox#mOnbZjSDl}IBqv$qwK+2@))5$ba>Katmw!@c`|
G?EMQ&4NnpP

delta 11
ScmeBCZD5|Duvteife`=|>;pCc

diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
index 23d76b2a..779275a1 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas	
+++ b/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_Detalles = '{325616FD-4D4C-4966-ABB4-DA61F028808A}';
-  RID_PedidosProveedor_Articulos_Pendientes = '{CC923862-B303-4114-BCE9-390F29227B57}';
+  RID_PedidosProveedor = '{22AB7846-6093-4612-B61E-FD4C10DB2AE7}';
+  RID_PedidosProveedor_Detalles = '{03E6E5FB-F6A4-4BA6-B50A-2266A1B760B9}';
+  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 }
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
index c277d702..214e1f11 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas	
+++ b/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_PedidosProveedor_DetallesDelta = '{D1D10F76-2A35-46FF-84AA-50A16F7F3E53}';
-  RID_PedidosProveedor_Articulos_PendientesDelta = '{DD6B9A4F-AF66-4725-9ABE-D62CB27BAC83}';
+  RID_PedidosProveedorDelta = '{616C488F-BFD3-45A8-A204-879873D85CF0}';
+  RID_PedidosProveedor_DetallesDelta = '{C93B2E5B-CC8C-47D8-B4F1-9E6B677EF39A}';
+  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;
diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
index 19a1a2e8..a9922c7f 100644
--- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm	
+++ b/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>'
-                SQLOrigin = 'REFERENCIA'
+                TableField = 'REFERENCIA'
               end
               item
                 DatasetField = 'REFERENCIA_PROVEEDOR'
-                TableField = '<unknown>'
-                SQLOrigin = 'REFERENCIA_PROVEEDOR'
-              end
-              item
-                DatasetField = 'UNIDAD_MEDIDA'
-                TableField = 'UNIDAD_MEDIDA'
+                TableField = 'REFERENCIA_PROVEEDOR'
               end
               item
                 DatasetField = 'REFERENCIA_FABRICANTE'
-                TableField = '<unknown>'
-                SQLOrigin = 'REFERENCIA_FABRICANTE'
+                TableField = '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'