Ticket #137 -> Al insertar y actualizar un presupuesto, no se guarda la fecha de inserción y de actualización.

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

Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm

@@ -76,6 +76,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DataType = datInteger
         DictionaryEntry = 'PresupuestosCliente_ID_CLIENTE'
       end
+      item
+        Name = 'ID_DIRECCION'
+        DataType = datInteger
+      end
       item
         Name = 'NIF_CIF'
         DataType = datString
@@ -92,10 +96,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         ServerAutoRefresh = True
         DictionaryEntry = 'PresupuestosCliente_NOMBRE'
       end
-      item
-        Name = 'ID_DIRECCION'
-        DataType = datInteger
-      end
       item
         Name = 'REFERENCIA_CLIENTE'
         DataType = datString

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas

@@ -9,8 +9,8 @@ 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_PresupuestosCliente = '{A0C46F24-09A9-4D39-B820-60B5E53322DC}';
+  RID_PresupuestosCliente = '{853B1352-8912-4CFB-BB4D-CE8837BCB54A}';
-  RID_PresupuestosCliente_Detalles = '{6BDA3BE4-1300-42EA-B8C1-F26A414F492B}';
+  RID_PresupuestosCliente_Detalles = '{E5A90E27-F23F-4302-A58A-DF95BF1CEC8C}';
 
   { Data table names }
   nme_PresupuestosCliente = 'PresupuestosCliente';
@@ -25,9 +25,9 @@ const
   fld_PresupuestosClienteREFERENCIA_AUX = 'REFERENCIA_AUX';
   fld_PresupuestosClienteSITUACION = 'SITUACION';
   fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE';
+  fld_PresupuestosClienteID_DIRECCION = 'ID_DIRECCION';
   fld_PresupuestosClienteNIF_CIF = 'NIF_CIF';
   fld_PresupuestosClienteNOMBRE = 'NOMBRE';
-  fld_PresupuestosClienteID_DIRECCION = 'ID_DIRECCION';
   fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
   fld_PresupuestosClienteCLIENTE_FINAL = 'CLIENTE_FINAL';
   fld_PresupuestosClientePORTADA = 'PORTADA';
@@ -60,9 +60,9 @@ const
   idx_PresupuestosClienteREFERENCIA_AUX = 5;
   idx_PresupuestosClienteSITUACION = 6;
   idx_PresupuestosClienteID_CLIENTE = 7;
-  idx_PresupuestosClienteNIF_CIF = 8;
+  idx_PresupuestosClienteID_DIRECCION = 8;
-  idx_PresupuestosClienteNOMBRE = 9;
+  idx_PresupuestosClienteNIF_CIF = 9;
-  idx_PresupuestosClienteID_DIRECCION = 10;
+  idx_PresupuestosClienteNOMBRE = 10;
   idx_PresupuestosClienteREFERENCIA_CLIENTE = 11;
   idx_PresupuestosClienteCLIENTE_FINAL = 12;
   idx_PresupuestosClientePORTADA = 13;
@@ -123,7 +123,7 @@ const
 type
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{BED574C7-BB23-4AF4-99E8-A57512A34442}']
+  ['{B6DA7C30-16B2-407A-BDF4-E8DC9F734A75}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -157,6 +157,10 @@ type
     procedure SetID_CLIENTEValue(const aValue: Integer);
     function GetID_CLIENTEIsNull: Boolean;
     procedure SetID_CLIENTEIsNull(const aValue: Boolean);
+    function GetID_DIRECCIONValue: Integer;
+    procedure SetID_DIRECCIONValue(const aValue: Integer);
+    function GetID_DIRECCIONIsNull: Boolean;
+    procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
     function GetNIF_CIFValue: String;
     procedure SetNIF_CIFValue(const aValue: String);
     function GetNIF_CIFIsNull: Boolean;
@@ -165,10 +169,6 @@ type
     procedure SetNOMBREValue(const aValue: String);
     function GetNOMBREIsNull: Boolean;
     procedure SetNOMBREIsNull(const aValue: Boolean);
-    function GetID_DIRECCIONValue: Integer;
-    procedure SetID_DIRECCIONValue(const aValue: Integer);
-    function GetID_DIRECCIONIsNull: Boolean;
-    procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
     function GetREFERENCIA_CLIENTEValue: String;
     procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
     function GetREFERENCIA_CLIENTEIsNull: Boolean;
@@ -272,12 +272,12 @@ type
     property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
     property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+    property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+    property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
     property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
     property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
     property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
     property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
-    property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
-    property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
     property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
     property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
     property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue;
@@ -369,6 +369,10 @@ type
     procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
     function GetID_CLIENTEIsNull: Boolean; virtual;
     procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetID_DIRECCIONValue: Integer; virtual;
+    procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
+    function GetID_DIRECCIONIsNull: Boolean; virtual;
+    procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
     function GetNIF_CIFValue: String; virtual;
     procedure SetNIF_CIFValue(const aValue: String); virtual;
     function GetNIF_CIFIsNull: Boolean; virtual;
@@ -377,10 +381,6 @@ type
     procedure SetNOMBREValue(const aValue: String); virtual;
     function GetNOMBREIsNull: Boolean; virtual;
     procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
-    function GetID_DIRECCIONValue: Integer; virtual;
-    procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
-    function GetID_DIRECCIONIsNull: Boolean; virtual;
-    procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
     function GetREFERENCIA_CLIENTEValue: String; virtual;
     procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
     function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
@@ -483,12 +483,12 @@ type
     property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
     property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
     property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+    property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+    property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
     property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
     property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
     property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
     property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
-    property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
-    property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
     property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
     property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
     property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue;
@@ -542,7 +542,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{9B9C28F6-E2A6-49BB-A539-82586ADEB234}']
+  ['{5ADC3764-FB8C-42A8-8750-8CD02EDDEB75}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -964,6 +964,27 @@ begin
     DataTable.Fields[idx_PresupuestosClienteID_CLIENTE].AsVariant := Null;
 end;
 
+function TPresupuestosClienteDataTableRules.GetID_DIRECCIONValue: Integer;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetID_DIRECCIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsVariant := Null;
+end;
+
 function TPresupuestosClienteDataTableRules.GetNIF_CIFValue: String;
 begin
   result := DataTable.Fields[idx_PresupuestosClienteNIF_CIF].AsString;
@@ -1006,27 +1027,6 @@ begin
     DataTable.Fields[idx_PresupuestosClienteNOMBRE].AsVariant := Null;
 end;
 
-function TPresupuestosClienteDataTableRules.GetID_DIRECCIONValue: Integer;
-begin
-  result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger;
-end;
-
-procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
-begin
-  DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger := aValue;
-end;
-
-function TPresupuestosClienteDataTableRules.GetID_DIRECCIONIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].IsNull;
-end;
-
-procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsVariant := Null;
-end;
-
 function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
 begin
   result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString;

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_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_PresupuestosClienteDelta = '{C9E347B5-FCED-413B-AD2F-A17871A5FF7C}';
+  RID_PresupuestosClienteDelta = '{96398599-ED77-4ED9-B88E-F52E17B3D835}';
-  RID_PresupuestosCliente_DetallesDelta = '{10BCC39C-D3B8-4B20-85AF-78E1739C9BB7}';
+  RID_PresupuestosCliente_DetallesDelta = '{D8D82042-F4DD-4056-B2D4-946CDF61FF5B}';
 
 type
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{C9E347B5-FCED-413B-AD2F-A17871A5FF7C}']
+  ['{96398599-ED77-4ED9-B88E-F52E17B3D835}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -25,9 +25,9 @@ type
     function GetOldREFERENCIA_AUXValue : String;
     function GetOldSITUACIONValue : String;
     function GetOldID_CLIENTEValue : Integer;
+    function GetOldID_DIRECCIONValue : Integer;
     function GetOldNIF_CIFValue : String;
     function GetOldNOMBREValue : String;
-    function GetOldID_DIRECCIONValue : Integer;
     function GetOldREFERENCIA_CLIENTEValue : String;
     function GetOldCLIENTE_FINALValue : String;
     function GetOldPORTADAValue : IROStrings;
@@ -60,9 +60,9 @@ type
     property OldREFERENCIA_AUX : String read GetOldREFERENCIA_AUXValue;
     property OldSITUACION : String read GetOldSITUACIONValue;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
+    property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
     property OldNIF_CIF : String read GetOldNIF_CIFValue;
     property OldNOMBRE : String read GetOldNOMBREValue;
-    property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
     property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
     property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue;
     property OldPORTADA : IROStrings read GetOldPORTADAValue;
@@ -148,6 +148,12 @@ type
     function GetOldID_CLIENTEIsNull: Boolean; virtual;
     procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
     procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+    function GetID_DIRECCIONValue: Integer; virtual;
+    function GetID_DIRECCIONIsNull: Boolean; virtual;
+    function GetOldID_DIRECCIONValue: Integer; virtual;
+    function GetOldID_DIRECCIONIsNull: Boolean; virtual;
+    procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
+    procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
     function GetNIF_CIFValue: String; virtual;
     function GetNIF_CIFIsNull: Boolean; virtual;
     function GetOldNIF_CIFValue: String; virtual;
@@ -160,12 +166,6 @@ type
     function GetOldNOMBREIsNull: Boolean; virtual;
     procedure SetNOMBREValue(const aValue: String); virtual;
     procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
-    function GetID_DIRECCIONValue: Integer; virtual;
-    function GetID_DIRECCIONIsNull: Boolean; virtual;
-    function GetOldID_DIRECCIONValue: Integer; virtual;
-    function GetOldID_DIRECCIONIsNull: Boolean; virtual;
-    procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
-    procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
     function GetREFERENCIA_CLIENTEValue: String; virtual;
     function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
     function GetOldREFERENCIA_CLIENTEValue: String; virtual;
@@ -328,6 +328,10 @@ type
     property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
     property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
     property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
+    property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
+    property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
+    property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
+    property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
     property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
     property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
     property OldNIF_CIF : String read GetOldNIF_CIFValue;
@@ -336,10 +340,6 @@ type
     property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
     property OldNOMBRE : String read GetOldNOMBREValue;
     property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
-    property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
-    property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
-    property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
-    property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
     property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
     property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
     property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
@@ -437,7 +437,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{10BCC39C-D3B8-4B20-85AF-78E1739C9BB7}']
+  ['{D8D82042-F4DD-4056-B2D4-946CDF61FF5B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
@@ -939,6 +939,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_CLIENTE] := Null;
 end;
 
+function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := Null;
+end;
+
 function TPresupuestosClienteBusinessProcessorRules.GetNIF_CIFValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNIF_CIF];
@@ -1001,37 +1032,6 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE] := Null;
 end;
 
-function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
-begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION];
-end;
-
-function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION]);
-end;
-
-function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
-begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION];
-end;
-
-function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION]);
-end;
-
-procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
-begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := aValue;
-end;
-
-procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := Null;
-end;
-
 function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE];

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm

@@ -201,6 +201,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             DataType = datInteger
             DictionaryEntry = 'PresupuestosCliente_ID_CLIENTE'
           end
+          item
+            Name = 'ID_DIRECCION'
+            DataType = datInteger
+          end
           item
             Name = 'NIF_CIF'
             DataType = datString
@@ -215,10 +219,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             ServerAutoRefresh = True
             DictionaryEntry = 'PresupuestosCliente_NOMBRE'
           end
-          item
-            Name = 'ID_DIRECCION'
-            DataType = datInteger
-          end
           item
             Name = 'REFERENCIA_CLIENTE'
             DataType = datString
@@ -547,6 +547,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'ID_CLIENTE'
             Value = ''
           end
+          item
+            Name = 'ID_DIRECCION'
+            Value = ''
+          end
           item
             Name = 'REFERENCIA_CLIENTE'
             Value = ''
@@ -575,14 +579,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'INCIDENCIAS_ACTIVAS'
             Value = ''
           end
-          item
-            Name = 'FECHA_ALTA'
-            Value = ''
-          end
-          item
-            Name = 'FECHA_MODIFICACION'
-            Value = ''
-          end
           item
             Name = 'USUARIO'
             Value = ''
@@ -641,18 +637,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10'     REFERENCIA_AUX, SITU' +
               'ACION, ID_CLIENTE, ID_DIRECCION, REFERENCIA_CLIENTE,'#10'     CLIENT' +
               'E_FINAL, PORTADA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10'     INC' +
-              'IDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10'     USUARIO,' +
+              'IDENCIAS_ACTIVAS, FECHA_ALTA,'#10'     USUARIO, IMPORTE_NETO, IMPORT' +
-              ' IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10'   ' +
+              'E_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10'     BASE_IMPONIBLE, IVA' +
-              '  BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO' +
+              ', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA,'#10'     PE' +
-              ', ID_FACTURA,'#10'     PERSONA_CONTACTO)'#10'  VALUES'#10'    (:ID, :ID_EMPR' +
+              'RSONA_CONTACTO)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :FECHA_PRESUPUES' +
-              'ESA, :FECHA_PRESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10'     :REF' +
+              'TO, :FECHA_DECISION, :REFERENCIA,'#10'     :REFERENCIA_AUX, :SITUACI' +
-              'ERENCIA_AUX, :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA' +
+              'ON, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10'     :CLIEN' +
-              '_CLIENTE,'#10'     :CLIENTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONE' +
+              'TE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10'     :INCIDENCIAS' +
-              'S, '#10'     :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA' +
+              ', :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10'     :USUARIO, :IMPOR' +
-              '_MODIFICACION, '#10'     :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :D' +
+              'TE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10'     :IMPORTE_DESCUENTO, :' +
-              'ESCUENTO, '#10'     :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, :IMPO' +
+              'BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TOTAL, :ID_FO' +
-              'RTE_IVA, '#10'     :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_FACTURA, :PER' +
+              'RMA_PAGO, :ID_FACTURA, :PERSONA_CONTACTO)'#10
-              'SONA_CONTACTO)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -712,6 +707,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'ID_CLIENTE'
             Value = ''
           end
+          item
+            Name = 'ID_DIRECCION'
+            Value = ''
+          end
           item
             Name = 'REFERENCIA_CLIENTE'
             Value = ''
@@ -740,14 +739,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'INCIDENCIAS_ACTIVAS'
             Value = ''
           end
-          item
-            Name = 'FECHA_ALTA'
-            Value = ''
-          end
-          item
-            Name = 'FECHA_MODIFICACION'
-            Value = ''
-          end
           item
             Name = 'USUARIO'
             Value = ''
@@ -815,14 +806,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               '_FINAL = :CLIENTE_FINAL, '#10'    PORTADA = :PORTADA, '#10'    MEMORIA =' +
               ' :MEMORIA, '#10'    OBSERVACIONES = :OBSERVACIONES, '#10'    INCIDENCIAS' +
               ' = :INCIDENCIAS, '#10'    INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS' +
-              ', '#10'    FECHA_ALTA = :FECHA_ALTA, '#10'    FECHA_MODIFICACION = :FECH' +
+              ', '#10'    FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10'    USUARIO = :US' +
-              'A_MODIFICACION, '#10'    USUARIO = :USUARIO, '#10'    IMPORTE_NETO = :IM' +
+              'UARIO, '#10'    IMPORTE_NETO = :IMPORTE_NETO, '#10'    IMPORTE_PORTE = :' +
-              'PORTE_NETO, '#10'    IMPORTE_PORTE = :IMPORTE_PORTE, '#10'    DESCUENTO ' +
+              'IMPORTE_PORTE, '#10'    DESCUENTO = :DESCUENTO, '#10'    IMPORTE_DESCUEN' +
-              '= :DESCUENTO, '#10'    IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10'    ' +
+              'TO = :IMPORTE_DESCUENTO, '#10'    BASE_IMPONIBLE = :BASE_IMPONIBLE, ' +
-              'BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10'    IVA = :IVA, '#10'    IMPORTE_' +
+              #10'    IVA = :IVA, '#10'    IMPORTE_IVA = :IMPORTE_IVA, '#10'    IMPORTE_T' +
-              'IVA = :IMPORTE_IVA, '#10'    IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10'    ID' +
+              'OTAL = :IMPORTE_TOTAL, '#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10'    ' +
-              '_FORMA_PAGO = :ID_FORMA_PAGO,'#10'    ID_FACTURA = :ID_FACTURA,'#10'    ' +
+              'ID_FACTURA = :ID_FACTURA,'#10'    PERSONA_CONTACTO = :PERSONA_CONTAC' +
-              'PERSONA_CONTACTO = :PERSONA_CONTACTO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+              'TO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -893,10 +884,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'INSERT'#10'  INTO PRESUPUESTOS_CLIENTE_DETALLES'#10'    (ID, ID_PRESUPUE' +
               'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10'     UNIDAD_MED' +
               'IDA,'#10'     IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10 +
-              '     DESCUENTO, IMPORTE_PORTE)'#10'  VALUES'#10'    (:ID, :ID_PRESUPUEST' +
+              '     DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10'  VALUES'#10'    (:ID, :I' +
-              'O, :POSICION, :TIPO_DETALLE, :CONCEPTO,'#10'     :CANTIDAD, :UNIDAD_' +
+              'D_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,'#10'     :CANTID' +
-              'MEDIDA, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10'     :ID_ARTI' +
+              'AD, :UNIDAD_MEDIDA, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' ' +
-              'CULO, :DESCUENTO, :IMPORTE_PORTE)'#10
+              '    :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)' +
+              #10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -994,8 +986,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'NTIDAD = :CANTIDAD, '#10'    UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10'    IMP' +
               'ORTE_UNIDAD = :IMPORTE_UNIDAD, '#10'    IMPORTE_TOTAL = :IMPORTE_TOT' +
               'AL, '#10'    VISIBLE = :VISIBLE, '#10'    ID_ARTICULO = :ID_ARTICULO, '#10' ' +
-              '   DESCUENTO = :DESCUENTO, '#10'    IMPORTE_PORTE = :IMPORTE_PORTE'#10' ' +
+              '   DESCUENTO = :DESCUENTO, '#10'    IMPORTE_PORTE = :IMPORTE_PORTE,'#10 +
-              ' WHERE'#10'    (ID = :OLD_ID)'#10
+              '    FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10'  WHERE'#10'    (ID = :OL' +
+              'D_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>