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

Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC1.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf170.tmp */

Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj

@@ -49,7 +49,7 @@
     <DelphiCompile Include="PresupuestosCliente_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="PresupuestosCliente_model.dcp" />
+    <DCCReference Include="..\PresupuestosCliente_model.dcp" />
     <DCCReference Include="uDataModulePresupuestosCliente.pas">
       <Form>DataModulePresupuestosCliente</Form>
     </DCCReference>
@@ -537,4 +537,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
 Count mtInvalidEmailMsg=1
 mtInvalidEmailMsg0="Invalid email."
 TextsCollection=English
-EurekaLog Last Line -->
+EurekaLog Last Line -->

Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBF.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf16E.tmp */

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

@@ -30,116 +30,131 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         Name = 'ID'
         DataType = datAutoInc
         GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
-        DictionaryEntry = 'PedidosCliente_ID'
+        ServerAutoRefresh = True
+        DictionaryEntry = 'PresupuestosCliente_ID'
         InPrimaryKey = True
       end
       item
         Name = 'ID_EMPRESA'
         DataType = datInteger
-        DictionaryEntry = 'PedidosCliente_ID_EMPRESA'
+        DictionaryEntry = 'PresupuestosCliente_ID_EMPRESA'
       end
       item
         Name = 'FECHA_PRESUPUESTO'
         DataType = datDateTime
+        DisplayLabel = 'PresupuestosCliente_FECHA_PRESUPUESTO'
+        DictionaryEntry = 'PresupuestosCliente_FECHA_PRESUPUESTO'
       end
       item
         Name = 'FECHA_DECISION'
         DataType = datDateTime
+        DisplayLabel = 'PresupuestosCliente_FECHA_DECISION'
+        DictionaryEntry = 'PresupuestosCliente_FECHA_DECISION'
       end
       item
         Name = 'REFERENCIA'
         DataType = datString
         Size = 255
         DisplayLabel = 'Referencia'
-        DictionaryEntry = 'PedidosCliente_REFERENCIA'
+        DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
       end
       item
         Name = 'SITUACION'
         DataType = datString
         Size = 255
         DisplayLabel = 'Situaci'#243'n'
-        DictionaryEntry = 'PedidosCliente_SITUACION'
+        DictionaryEntry = 'PresupuestosCliente_SITUACION'
       end
       item
         Name = 'ID_CLIENTE'
         DataType = datInteger
-        DictionaryEntry = 'PedidosCliente_ID_CLIENTE'
+        DictionaryEntry = 'PresupuestosCliente_ID_CLIENTE'
       end
       item
         Name = 'NIF_CIF'
         DataType = datString
         Size = 15
+        DisplayLabel = 'PresupuestosCliente_NIF_CIF'
+        DictionaryEntry = 'PresupuestosCliente_NIF_CIF'
       end
       item
         Name = 'NOMBRE'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PresupuestosCliente_NOMBRE'
+        DictionaryEntry = 'PresupuestosCliente_NOMBRE'
       end
       item
         Name = 'REFERENCIA_CLIENTE'
         DataType = datString
         Size = 255
         DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE'
-        DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE'
+        DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE'
       end
       item
         Name = 'CLIENTE_FINAL'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PresupuestosCliente_CLIENTE_FINAL'
+        DictionaryEntry = 'PresupuestosCliente_CLIENTE_FINAL'
       end
       item
         Name = 'PORTADA'
         DataType = datMemo
+        DisplayLabel = 'PresupuestosCliente_PORTADA'
+        DictionaryEntry = 'PresupuestosCliente_PORTADA'
       end
       item
         Name = 'MEMORIA'
         DataType = datMemo
+        DisplayLabel = 'PresupuestosCliente_MEMORIA'
+        DictionaryEntry = 'PresupuestosCliente_MEMORIA'
       end
       item
         Name = 'OBSERVACIONES'
         DataType = datMemo
         DisplayLabel = 'Observaciones'
-        DictionaryEntry = 'PedidosCliente_OBSERVACIONES'
+        DictionaryEntry = 'PresupuestosCliente_OBSERVACIONES'
       end
       item
         Name = 'INCIDENCIAS'
         DataType = datMemo
-        DictionaryEntry = 'PedidosCliente_INCIDENCIAS'
+        DictionaryEntry = 'PresupuestosCliente_INCIDENCIAS'
       end
       item
         Name = 'INCIDENCIAS_ACTIVAS'
         DataType = datInteger
-        DictionaryEntry = 'PedidosCliente_INCIDENCIAS_ACTIVAS'
+        DictionaryEntry = 'PresupuestosCliente_INCIDENCIAS_ACTIVAS'
       end
       item
         Name = 'FECHA_ALTA'
         DataType = datDateTime
-        DictionaryEntry = 'PedidosCliente_FECHA_ALTA'
+        DictionaryEntry = 'PresupuestosCliente_FECHA_ALTA'
       end
       item
         Name = 'FECHA_MODIFICACION'
         DataType = datDateTime
-        DictionaryEntry = 'PedidosCliente_FECHA_MODIFICACION'
+        DictionaryEntry = 'PresupuestosCliente_FECHA_MODIFICACION'
       end
       item
         Name = 'USUARIO'
         DataType = datString
         Size = 20
-        DictionaryEntry = 'PedidosCliente_USUARIO'
+        DictionaryEntry = 'PresupuestosCliente_USUARIO'
       end
       item
         Name = 'IMPORTE_NETO'
         DataType = datCurrency
         DisplayLabel = 'Importe neto'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_IMPORTE_NETO'
+        DictionaryEntry = 'PresupuestosCliente_IMPORTE_NETO'
       end
       item
         Name = 'IMPORTE_PORTE'
         DataType = datCurrency
         DisplayLabel = 'Importe del porte'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_IMPORTE_PORTE'
+        DictionaryEntry = 'PresupuestosCliente_IMPORTE_PORTE'
       end
       item
         Name = 'DESCUENTO'
@@ -147,47 +162,47 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DisplayLabel = 'Descuento'
         DisplayFormat = ',0.00 %;-,0.00 %'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_DESCUENTO'
+        DictionaryEntry = 'PresupuestosCliente_DESCUENTO'
       end
       item
         Name = 'IMPORTE_DESCUENTO'
         DataType = datCurrency
         DisplayLabel = 'Importe dto.'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
+        DictionaryEntry = 'PresupuestosCliente_IMPORTE_DESCUENTO'
       end
       item
         Name = 'BASE_IMPONIBLE'
         DataType = datCurrency
         DisplayLabel = 'Base imponible'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_BASE_IMPONIBLE'
+        DictionaryEntry = 'PresupuestosCliente_BASE_IMPONIBLE'
       end
       item
         Name = 'IVA'
         DataType = datFloat
         DisplayFormat = ',0.00 %;-,0.00 %'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_IVA'
+        DictionaryEntry = 'PresupuestosCliente_IVA'
       end
       item
         Name = 'IMPORTE_IVA'
         DataType = datCurrency
         DisplayLabel = 'Importe IVA'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_IMPORTE_IVA'
+        DictionaryEntry = 'PresupuestosCliente_IMPORTE_IVA'
       end
       item
         Name = 'IMPORTE_TOTAL'
         DataType = datCurrency
         DisplayLabel = 'Importe total'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_IMPORTE_TOTAL'
+        DictionaryEntry = 'PresupuestosCliente_IMPORTE_TOTAL'
       end
       item
         Name = 'ID_FORMA_PAGO'
         DataType = datInteger
-        DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
+        DictionaryEntry = 'PresupuestosCliente_ID_FORMA_PAGO'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -195,6 +210,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'PresupuestosCliente'
+    IndexDefs = <>
     Left = 232
     Top = 104
   end
@@ -212,48 +228,63 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DataType = datAutoInc
         GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID'
         Required = True
-        DictionaryEntry = 'PedidosCliente_Detalles_ID'
+        ServerAutoRefresh = True
+        DictionaryEntry = 'PresupuestosCliente_Detalles_ID'
         InPrimaryKey = True
       end
       item
         Name = 'ID_PRESUPUESTO'
         DataType = datInteger
         Required = True
+        DisplayLabel = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO'
       end
       item
         Name = 'POSICION'
         DataType = datInteger
-        DictionaryEntry = 'POSICIONCONCEPTO'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_POSICION'
       end
       item
         Name = 'TIPO_DETALLE'
         DataType = datString
         Size = 10
-        DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_TIPO_DETALLE'
-      end
-      item
-        Name = 'ID_ARTICULO'
-        DataType = datInteger
-        DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO'
       end
       item
         Name = 'CONCEPTO'
         DataType = datString
         Size = 2000
-        DictionaryEntry = 'PedidosCliente_Detalles_CONCEPTO'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_CONCEPTO'
       end
       item
         Name = 'CANTIDAD'
         DataType = datInteger
         Alignment = taRightJustify
-        DictionaryEntry = 'CANTIDAD'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_CANTIDAD'
       end
       item
         Name = 'IMPORTE_UNIDAD'
         DataType = datCurrency
         DisplayLabel = 'Importe unidad'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_UNIDAD'
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datCurrency
+        DisplayLabel = 'Importe total'
+        Alignment = taRightJustify
+        DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_TOTAL'
+      end
+      item
+        Name = 'VISIBLE'
+        DataType = datInteger
+        DictionaryEntry = 'PresupuestosCliente_Detalles_VISIBLE'
+      end
+      item
+        Name = 'ID_ARTICULO'
+        DataType = datInteger
+        DictionaryEntry = 'PresupuestosCliente_Detalles_ID_ARTICULO'
       end
       item
         Name = 'DESCUENTO'
@@ -261,34 +292,24 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         DisplayLabel = 'Descuento'
         DisplayFormat = ',0.00 %;-,0.00 %'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_Detalles_DESCUENTO'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_DESCUENTO'
       end
       item
         Name = 'IMPORTE_PORTE'
         DataType = datCurrency
         DisplayLabel = 'Importe porte'
         Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_PORTE'
       end
       item
-        Name = 'IMPORTE_TOTAL'
+        Name = 'REFERENCIA'
-        DataType = datCurrency
+        DataType = datString
-        DisplayLabel = 'Importe total'
+        Size = 255
-        Alignment = taRightJustify
-        DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
       end
       item
-        Name = 'VISIBLE'
+        Name = 'REFERENCIA_PROVEEDOR'
-        DataType = datInteger
+        DataType = datString
-        DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE'
+        Size = 255
-      end
-      item
-        Name = 'FECHA_ALTA'
-        DataType = datDateTime
-      end
-      item
-        Name = 'FECHA_MODIFICACION'
-        DataType = datDateTime
       end>
     Params = <>
     MasterMappingMode = mmWhere
@@ -300,6 +321,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
     DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
     MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
     LogicalName = 'PresupuestosCliente_Detalles'
+    IndexDefs = <>
     Left = 440
     Top = 96
   end

Source/Modulos/Presupuestos de cliente/Model/ModelSupport_PresupuestosCliente_model/PedidosCliente_model.prjconfig

@@ -1,2 +0,0 @@
-<?xml version="1.0"?>
-<TgConfig Version="3" SubLevelDisabled="False" />

Source/Modulos/Presupuestos de cliente/Model/ModelSupport_PresupuestosCliente_model/PedidosProveedor_model.prjconfig

@@ -1,2 +0,0 @@
-<?xml version="1.0"?>
-<TgConfig Version="3" SubLevelDisabled="False" />

Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBD.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf16C.tmp */

Source/Modulos/Presupuestos de cliente/Model/schPedidosCliente.daConnections

@@ -1 +0,0 @@
-<TDAConnectionManager><Connections Type="TDAConnectionCollection" IsObject="true" IsCollection="true" Count="1" ItemClass="TDAConnection"><Item0><ConnectionString>IBX?Server=LOCALHOST;Database=E:\Codigo\BD\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO8859_1;</ConnectionString><Default>True</Default><Description></Description><Name>IBX</Name><Tag>0</Tag></Item0></Connections><DriverManager Type="TDADriverManager" IsObject="true" ByRef="true" RefName="DriverManager" Owner="dmServer"/><MaxPoolSize>10</MaxPoolSize><PoolBehaviour>pbWait</PoolBehaviour><PoolingEnabled>True</PoolingEnabled><PoolTimeoutSeconds>60</PoolTimeoutSeconds><Tag>0</Tag><WaitIntervalSeconds>1</WaitIntervalSeconds></TDAConnectionManager>

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

@@ -9,9 +9,9 @@ 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_DarReferencia = '{D8FAD5A5-0BBD-4F80-97E4-75CE6FA87398}';
+  RID_DarReferencia = '{54E7EE17-B5A5-4CA3-A697-84AB22C5B88F}';
-  RID_PresupuestosCliente = '{23124D18-F2C0-4FBB-8B89-A8B33B1E7AC3}';
+  RID_PresupuestosCliente = '{66DE200E-0508-4CB0-890A-3CCC61E2C86C}';
-  RID_PresupuestosCliente_Detalles = '{332DC169-B61B-4AB1-A1C4-BAE869B39919}';
+  RID_PresupuestosCliente_Detalles = '{EE5CC98E-600B-4DB2-BC7A-A6E00DA2F287}';
 
   { Data table names }
   nme_DarReferencia = 'DarReferencia';
@@ -89,37 +89,37 @@ const
   fld_PresupuestosCliente_DetallesID_PRESUPUESTO = 'ID_PRESUPUESTO';
   fld_PresupuestosCliente_DetallesPOSICION = 'POSICION';
   fld_PresupuestosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
-  fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
   fld_PresupuestosCliente_DetallesCONCEPTO = 'CONCEPTO';
   fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD';
   fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
-  fld_PresupuestosCliente_DetallesDESCUENTO = 'DESCUENTO';
-  fld_PresupuestosCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
   fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
   fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE';
-  fld_PresupuestosCliente_DetallesFECHA_ALTA = 'FECHA_ALTA';
+  fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
-  fld_PresupuestosCliente_DetallesFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+  fld_PresupuestosCliente_DetallesDESCUENTO = 'DESCUENTO';
+  fld_PresupuestosCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
+  fld_PresupuestosCliente_DetallesREFERENCIA = 'REFERENCIA';
+  fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
 
   { PresupuestosCliente_Detalles field indexes }
   idx_PresupuestosCliente_DetallesID = 0;
   idx_PresupuestosCliente_DetallesID_PRESUPUESTO = 1;
   idx_PresupuestosCliente_DetallesPOSICION = 2;
   idx_PresupuestosCliente_DetallesTIPO_DETALLE = 3;
-  idx_PresupuestosCliente_DetallesID_ARTICULO = 4;
+  idx_PresupuestosCliente_DetallesCONCEPTO = 4;
-  idx_PresupuestosCliente_DetallesCONCEPTO = 5;
+  idx_PresupuestosCliente_DetallesCANTIDAD = 5;
-  idx_PresupuestosCliente_DetallesCANTIDAD = 6;
+  idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 6;
-  idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7;
+  idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 7;
-  idx_PresupuestosCliente_DetallesDESCUENTO = 8;
+  idx_PresupuestosCliente_DetallesVISIBLE = 8;
-  idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 9;
+  idx_PresupuestosCliente_DetallesID_ARTICULO = 9;
-  idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 10;
+  idx_PresupuestosCliente_DetallesDESCUENTO = 10;
-  idx_PresupuestosCliente_DetallesVISIBLE = 11;
+  idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 11;
-  idx_PresupuestosCliente_DetallesFECHA_ALTA = 12;
+  idx_PresupuestosCliente_DetallesREFERENCIA = 12;
-  idx_PresupuestosCliente_DetallesFECHA_MODIFICACION = 13;
+  idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 13;
 
 type
   { IDarReferencia }
   IDarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{2BC8372B-CA4E-4389-B638-EEDE7C0A37A7}']
+  ['{D37FA18C-421C-4FE2-BCBF-ED8B75F165D3}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -154,7 +154,7 @@ type
 
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{7197D0DC-E8EA-47EE-A127-A8B3A41F4676}']
+  ['{D125D439-2B20-4F99-BD79-E2AD460661CE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -513,7 +513,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{3BCC0A03-B340-4A3E-BC4F-450F414F7D84}']
+  ['{4D3B13BE-62CC-428D-916B-A3D1D36852FE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -531,10 +531,6 @@ type
     procedure SetTIPO_DETALLEValue(const aValue: String);
     function GetTIPO_DETALLEIsNull: Boolean;
     procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
-    function GetID_ARTICULOValue: Integer;
-    procedure SetID_ARTICULOValue(const aValue: Integer);
-    function GetID_ARTICULOIsNull: Boolean;
-    procedure SetID_ARTICULOIsNull(const aValue: Boolean);
     function GetCONCEPTOValue: String;
     procedure SetCONCEPTOValue(const aValue: String);
     function GetCONCEPTOIsNull: Boolean;
@@ -547,14 +543,6 @@ type
     procedure SetIMPORTE_UNIDADValue(const aValue: Currency);
     function GetIMPORTE_UNIDADIsNull: Boolean;
     procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
-    function GetDESCUENTOValue: Float;
-    procedure SetDESCUENTOValue(const aValue: Float);
-    function GetDESCUENTOIsNull: Boolean;
-    procedure SetDESCUENTOIsNull(const aValue: Boolean);
-    function GetIMPORTE_PORTEValue: Currency;
-    procedure SetIMPORTE_PORTEValue(const aValue: Currency);
-    function GetIMPORTE_PORTEIsNull: Boolean;
-    procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
     function GetIMPORTE_TOTALValue: Currency;
     procedure SetIMPORTE_TOTALValue(const aValue: Currency);
     function GetIMPORTE_TOTALIsNull: Boolean;
@@ -563,14 +551,26 @@ type
     procedure SetVISIBLEValue(const aValue: Integer);
     function GetVISIBLEIsNull: Boolean;
     procedure SetVISIBLEIsNull(const aValue: Boolean);
-    function GetFECHA_ALTAValue: DateTime;
+    function GetID_ARTICULOValue: Integer;
-    procedure SetFECHA_ALTAValue(const aValue: DateTime);
+    procedure SetID_ARTICULOValue(const aValue: Integer);
-    function GetFECHA_ALTAIsNull: Boolean;
+    function GetID_ARTICULOIsNull: Boolean;
-    procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+    procedure SetID_ARTICULOIsNull(const aValue: Boolean);
-    function GetFECHA_MODIFICACIONValue: DateTime;
+    function GetDESCUENTOValue: Float;
-    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+    procedure SetDESCUENTOValue(const aValue: Float);
-    function GetFECHA_MODIFICACIONIsNull: Boolean;
+    function GetDESCUENTOIsNull: Boolean;
-    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+    procedure SetDESCUENTOIsNull(const aValue: Boolean);
+    function GetIMPORTE_PORTEValue: Currency;
+    procedure SetIMPORTE_PORTEValue(const aValue: Currency);
+    function GetIMPORTE_PORTEIsNull: Boolean;
+    procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+    function GetREFERENCIAValue: String;
+    procedure SetREFERENCIAValue(const aValue: String);
+    function GetREFERENCIAIsNull: Boolean;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean);
+    function GetREFERENCIA_PROVEEDORValue: String;
+    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
+    function GetREFERENCIA_PROVEEDORIsNull: Boolean;
+    procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -582,26 +582,26 @@ type
     property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
     property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
     property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
-    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
-    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
     property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
     property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
     property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
-    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
-    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
-    property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
-    property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
     property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
     property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
-    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
-    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
-    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
-    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+    property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
+    property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
   end;
 
   { TPresupuestosCliente_DetallesDataTableRules }
@@ -625,10 +625,6 @@ type
     procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
     function GetTIPO_DETALLEIsNull: Boolean; virtual;
     procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
-    function GetID_ARTICULOValue: Integer; virtual;
-    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
-    function GetID_ARTICULOIsNull: Boolean; virtual;
-    procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
     function GetCONCEPTOValue: String; virtual;
     procedure SetCONCEPTOValue(const aValue: String); virtual;
     function GetCONCEPTOIsNull: Boolean; virtual;
@@ -641,14 +637,6 @@ type
     procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
     function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
     procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
-    function GetDESCUENTOValue: Float; virtual;
-    procedure SetDESCUENTOValue(const aValue: Float); virtual;
-    function GetDESCUENTOIsNull: Boolean; virtual;
-    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
-    function GetIMPORTE_PORTEValue: Currency; virtual;
-    procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
-    function GetIMPORTE_PORTEIsNull: Boolean; virtual;
-    procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
     function GetIMPORTE_TOTALValue: Currency; virtual;
     procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
     function GetIMPORTE_TOTALIsNull: Boolean; virtual;
@@ -657,14 +645,26 @@ type
     procedure SetVISIBLEValue(const aValue: Integer); virtual;
     function GetVISIBLEIsNull: Boolean; virtual;
     procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
-    function GetFECHA_ALTAValue: DateTime; virtual;
+    function GetID_ARTICULOValue: Integer; virtual;
-    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
-    function GetFECHA_ALTAIsNull: Boolean; virtual;
+    function GetID_ARTICULOIsNull: Boolean; virtual;
-    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+    procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
-    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetDESCUENTOValue: Float; virtual;
-    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    procedure SetDESCUENTOValue(const aValue: Float); virtual;
-    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    function GetDESCUENTOIsNull: Boolean; virtual;
-    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+    function GetIMPORTE_PORTEValue: Currency; virtual;
+    procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+    function GetIMPORTE_PORTEIsNull: Boolean; virtual;
+    procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    function GetREFERENCIAIsNull: Boolean; virtual;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_PROVEEDORValue: String; virtual;
+    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
+    function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -675,26 +675,26 @@ type
     property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
     property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
     property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
-    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
-    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
     property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
     property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
     property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
-    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
-    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
-    property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
-    property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
     property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
     property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
-    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
-    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
-    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
-    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+    property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+    property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
+    property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1456,27 +1456,6 @@ begin
     DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].AsVariant := Null;
 end;
 
-function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
-begin
-  result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger;
-end;
-
-procedure TPresupuestosCliente_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
-begin
-  DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger := aValue;
-end;
-
-function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].IsNull;
-end;
-
-procedure TPresupuestosCliente_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsVariant := Null;
-end;
-
 function TPresupuestosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
 begin
   result := DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsString;
@@ -1540,48 +1519,6 @@ begin
     DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD].AsVariant := Null;
 end;
 
-function TPresupuestosCliente_DetallesDataTableRules.GetDESCUENTOValue: Float;
-begin
-  result := DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsFloat;
-end;
-
-procedure TPresupuestosCliente_DetallesDataTableRules.SetDESCUENTOValue(const aValue: Float);
-begin
-  DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsFloat := aValue;
-end;
-
-function TPresupuestosCliente_DetallesDataTableRules.GetDESCUENTOIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].IsNull;
-end;
-
-procedure TPresupuestosCliente_DetallesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsVariant := Null;
-end;
-
-function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_PORTEValue: Currency;
-begin
-  result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsCurrency;
-end;
-
-procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency);
-begin
-  DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsCurrency := aValue;
-end;
-
-function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].IsNull;
-end;
-
-procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsVariant := Null;
-end;
-
 function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_TOTALValue: Currency;
 begin
   result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsCurrency;
@@ -1624,46 +1561,109 @@ begin
     DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsVariant := Null;
 end;
 
-function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_ALTAValue: DateTime;
+function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
 begin
-  result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].AsDateTime;
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger;
 end;
 
-procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+procedure TPresupuestosCliente_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].AsDateTime := aValue;
+  DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger := aValue;
 end;
 
-function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_ALTAIsNull: boolean;
+function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].IsNull;
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].IsNull;
 end;
 
-procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+procedure TPresupuestosCliente_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].AsVariant := Null;
+    DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsVariant := Null;
 end;
 
-function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+function TPresupuestosCliente_DetallesDataTableRules.GetDESCUENTOValue: Float;
 begin
-  result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].AsDateTime;
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsFloat;
 end;
 
-procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+procedure TPresupuestosCliente_DetallesDataTableRules.SetDESCUENTOValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].AsDateTime := aValue;
+  DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsFloat := aValue;
 end;
 
-function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+function TPresupuestosCliente_DetallesDataTableRules.GetDESCUENTOIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].IsNull;
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].IsNull;
 end;
 
-procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+procedure TPresupuestosCliente_DetallesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].AsVariant := Null;
+    DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsVariant := Null;
+end;
+
+function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_PORTEValue: Currency;
+begin
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsCurrency;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency);
+begin
+  DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsCurrency := aValue;
+end;
+
+function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].IsNull;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsVariant := Null;
+end;
+
+function TPresupuestosCliente_DetallesDataTableRules.GetREFERENCIAValue: String;
+begin
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA].AsString;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA].AsString := aValue;
+end;
+
+function TPresupuestosCliente_DetallesDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA].IsNull;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA].AsVariant := Null;
+end;
+
+function TPresupuestosCliente_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR].AsString;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR].AsString := aValue;
+end;
+
+function TPresupuestosCliente_DetallesDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR].IsNull;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null;
 end;
 
 

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_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_DarReferenciaDelta = '{5BAA864C-15C2-4368-BC2D-0E670EA0C28F}';
+  RID_DarReferenciaDelta = '{A9243289-0553-4E9A-85B2-51E01EBDB18B}';
-  RID_PresupuestosClienteDelta = '{0F7F4684-E56F-40A8-9AB5-8612CCD38E74}';
+  RID_PresupuestosClienteDelta = '{367BB3F4-EC4E-49ED-ACF6-4A0F1A85E580}';
-  RID_PresupuestosCliente_DetallesDelta = '{ECFAC69A-18AF-4880-BDEE-29EF5A24A70C}';
+  RID_PresupuestosCliente_DetallesDelta = '{ED838F56-5DC9-4667-B2A2-F2ACC0A249B2}';
 
 type
   { IDarReferenciaDelta }
   IDarReferenciaDelta = interface(IDarReferencia)
-  ['{5BAA864C-15C2-4368-BC2D-0E670EA0C28F}']
+  ['{A9243289-0553-4E9A-85B2-51E01EBDB18B}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{0F7F4684-E56F-40A8-9AB5-8612CCD38E74}']
+  ['{367BB3F4-EC4E-49ED-ACF6-4A0F1A85E580}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -412,38 +412,38 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{ECFAC69A-18AF-4880-BDEE-29EF5A24A70C}']
+  ['{ED838F56-5DC9-4667-B2A2-F2ACC0A249B2}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
     function GetOldPOSICIONValue : Integer;
     function GetOldTIPO_DETALLEValue : String;
-    function GetOldID_ARTICULOValue : Integer;
     function GetOldCONCEPTOValue : String;
     function GetOldCANTIDADValue : Integer;
     function GetOldIMPORTE_UNIDADValue : Currency;
-    function GetOldDESCUENTOValue : Float;
-    function GetOldIMPORTE_PORTEValue : Currency;
     function GetOldIMPORTE_TOTALValue : Currency;
     function GetOldVISIBLEValue : Integer;
-    function GetOldFECHA_ALTAValue : DateTime;
+    function GetOldID_ARTICULOValue : Integer;
-    function GetOldFECHA_MODIFICACIONValue : DateTime;
+    function GetOldDESCUENTOValue : Float;
+    function GetOldIMPORTE_PORTEValue : Currency;
+    function GetOldREFERENCIAValue : String;
+    function GetOldREFERENCIA_PROVEEDORValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
     property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
     property OldPOSICION : Integer read GetOldPOSICIONValue;
     property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
-    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
     property OldCONCEPTO : String read GetOldCONCEPTOValue;
     property OldCANTIDAD : Integer read GetOldCANTIDADValue;
     property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
-    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
-    property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
     property OldVISIBLE : Integer read GetOldVISIBLEValue;
-    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
-    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+    property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
   end;
 
   { TPresupuestosCliente_DetallesBusinessProcessorRules }
@@ -475,12 +475,6 @@ type
     function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
     procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
     procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
-    function GetID_ARTICULOValue: Integer; virtual;
-    function GetID_ARTICULOIsNull: Boolean; virtual;
-    function GetOldID_ARTICULOValue: Integer; virtual;
-    function GetOldID_ARTICULOIsNull: Boolean; virtual;
-    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
-    procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
     function GetCONCEPTOValue: String; virtual;
     function GetCONCEPTOIsNull: Boolean; virtual;
     function GetOldCONCEPTOValue: String; virtual;
@@ -499,18 +493,6 @@ type
     function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual;
     procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
     procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
-    function GetDESCUENTOValue: Float; virtual;
-    function GetDESCUENTOIsNull: Boolean; virtual;
-    function GetOldDESCUENTOValue: Float; virtual;
-    function GetOldDESCUENTOIsNull: Boolean; virtual;
-    procedure SetDESCUENTOValue(const aValue: Float); virtual;
-    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
-    function GetIMPORTE_PORTEValue: Currency; virtual;
-    function GetIMPORTE_PORTEIsNull: Boolean; virtual;
-    function GetOldIMPORTE_PORTEValue: Currency; virtual;
-    function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
-    procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
-    procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
     function GetIMPORTE_TOTALValue: Currency; virtual;
     function GetIMPORTE_TOTALIsNull: Boolean; virtual;
     function GetOldIMPORTE_TOTALValue: Currency; virtual;
@@ -523,18 +505,36 @@ type
     function GetOldVISIBLEIsNull: Boolean; virtual;
     procedure SetVISIBLEValue(const aValue: Integer); virtual;
     procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
-    function GetFECHA_ALTAValue: DateTime; virtual;
+    function GetID_ARTICULOValue: Integer; virtual;
-    function GetFECHA_ALTAIsNull: Boolean; virtual;
+    function GetID_ARTICULOIsNull: Boolean; virtual;
-    function GetOldFECHA_ALTAValue: DateTime; virtual;
+    function GetOldID_ARTICULOValue: Integer; virtual;
-    function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+    function GetOldID_ARTICULOIsNull: Boolean; virtual;
-    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
-    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+    procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
-    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetDESCUENTOValue: Float; virtual;
-    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    function GetDESCUENTOIsNull: Boolean; virtual;
-    function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+    function GetOldDESCUENTOValue: Float; virtual;
-    function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+    function GetOldDESCUENTOIsNull: Boolean; virtual;
-    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+    procedure SetDESCUENTOValue(const aValue: Float); virtual;
-    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+    function GetIMPORTE_PORTEValue: Currency; virtual;
+    function GetIMPORTE_PORTEIsNull: Boolean; virtual;
+    function GetOldIMPORTE_PORTEValue: Currency; virtual;
+    function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
+    procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+    procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIAValue: String; virtual;
+    function GetREFERENCIAIsNull: Boolean; virtual;
+    function GetOldREFERENCIAValue: String; virtual;
+    function GetOldREFERENCIAIsNull: Boolean; virtual;
+    procedure SetREFERENCIAValue(const aValue: String); virtual;
+    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_PROVEEDORValue: String; virtual;
+    function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
+    function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -553,10 +553,6 @@ type
     property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
     property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
     property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
-    property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
-    property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
-    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
-    property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
     property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
     property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
     property OldCONCEPTO : String read GetOldCONCEPTOValue;
@@ -569,14 +565,6 @@ type
     property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
     property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
     property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull;
-    property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
-    property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
-    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
-    property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
-    property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
-    property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
-    property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
-    property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
     property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
     property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
@@ -585,14 +573,26 @@ type
     property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
     property OldVISIBLE : Integer read GetOldVISIBLEValue;
     property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
-    property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+    property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
-    property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+    property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
-    property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+    property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
-    property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+    property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
-    property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+    property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
-    property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
-    property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldDESCUENTO : Float read GetOldDESCUENTOValue;
-    property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
+    property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
+    property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+    property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+    property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+    property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
+    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+    property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+    property OldREFERENCIA : String read GetOldREFERENCIAValue;
+    property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+    property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
+    property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
+    property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
+    property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1689,37 +1689,6 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE] := Null;
 end;
 
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
-begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO];
-end;
-
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]);
-end;
-
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
-begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO];
-end;
-
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]);
-end;
-
-procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
-begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO] := aValue;
-end;
-
-procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO] := Null;
-end;
-
 function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO];
@@ -1813,68 +1782,6 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD] := Null;
 end;
 
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float;
-begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO];
-end;
-
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]);
-end;
-
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float;
-begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesDESCUENTO];
-end;
-
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]);
-end;
-
-procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
-begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO] := aValue;
-end;
-
-procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO] := Null;
-end;
-
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
-begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE];
-end;
-
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]);
-end;
-
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
-begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE];
-end;
-
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]);
-end;
-
-procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
-begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE] := aValue;
-end;
-
-procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE] := Null;
-end;
-
 function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL];
@@ -1937,66 +1844,159 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE] := Null;
 end;
 
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO];
 end;
 
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]);
 end;
 
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO];
 end;
 
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]);
 end;
 
-procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO] := aValue;
 end;
 
-procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO] := Null;
 end;
 
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO];
 end;
 
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]);
 end;
 
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesDESCUENTO];
 end;
 
-function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]);
 end;
 
-procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO] := aValue;
 end;
 
-procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO] := Null;
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]);
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]);
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE] := aValue;
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE] := Null;
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA]);
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesREFERENCIA];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesREFERENCIA]);
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA] := aValue;
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA] := Null;
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR]);
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR]);
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR] := aValue;
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR] := Null;
 end;
 
 

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

@@ -57,6 +57,7 @@ type
     function GetDetalles: IBizDetallesPresupuestoCliente;
     procedure SetDetalles(Value: IBizDetallesPresupuestoCliente);
 
+    function GetSITUACIONValue: String; override;
     procedure SetFECHA_PRESUPUESTOValue(const aValue: TDateTime); override;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
 
@@ -192,7 +193,7 @@ end;
 
 procedure TBizPresupuestoCliente.IniciarValoresPresupuestoNuevo;
 begin
-//  ID_EMPRESA := dmUsuarios.IDEmpresaActual;
+  ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
 //  USUARIO := dmUsuarios.LoginInfo.Usuario;
   FECHA_PRESUPUESTO := DateOf(Date);
   INCIDENCIAS_ACTIVAS := 0;
@@ -211,6 +212,11 @@ begin
   Result := FDetalles;
 end;
 
+function TBizPresupuestoCliente.GetSITUACIONValue: String;
+begin
+  result := Trim(DataTable.Fields[idx_PresupuestosClienteSITUACION].AsString);
+end;
+
 procedure TBizPresupuestoCliente.OnNewRecord(Sender: TDADataTable);
 begin
   inherited;
@@ -249,10 +255,8 @@ end;
 
 procedure TBizPresupuestoCliente.SetDetalles(Value: IBizDetallesPresupuestoCliente);
 begin
-  showmessage('Voy a asignar los detalles2');
   FDetalles := Value;
   EnlazarMaestroDetalle(FDetallesLink, FDetalles);
-  showmessage('Ya los he asignado');
 end;
 
 procedure TBizPresupuestoCliente.SetFECHA_PRESUPUESTOValue(const aValue: TDateTime);

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

@@ -13,17 +13,7 @@ const
 type
   TBizPresupuestosClienteServer = class(TPresupuestosClienteBusinessProcessorRules)
   protected
-{
+    procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
-    procedure BeforeProcessChange(Sender: TDABusinessProcessor;
-      aChangeType: TDAChangeType; aChange: TDADeltaChange;
-      var ProcessChange: Boolean); override;
-}      
-    procedure AfterProcessChange(Sender: TDABusinessProcessor;
-      aChange: TDADeltaChange; Processed: Boolean;
-      var CanRemoveFromDelta: Boolean); override;
-
-
-
   end;
 
 implementation
@@ -34,9 +24,9 @@ uses
 
 { TBizPresupuestosClienteServer }
 
-procedure TBizPresupuestosClienteServer.AfterProcessChange(
+
-  Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
+procedure TBizPresupuestosClienteServer.BeforeProcessDelta(
-  var CanRemoveFromDelta: Boolean);
+  Sender: TDABusinessProcessor; const aDelta: IDADelta);
 var
   ASchema : TDASchema;
   ACurrentConn : IDAConnection;
@@ -45,19 +35,20 @@ var
 
 begin
   inherited;
-  case aChange.ChangeType of
+
+  case Sender.CurrentChange.ChangeType of
     ctInsert, ctUpdate: begin
       //Si la referencia no ha sido asignada le asignamos una nosotros
-      if (VarIsNull(aChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]))
+      if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]))
-      or (VarToStr(aChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]) = '') then
+      or (VarToStr(Sender.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]) = '') then
       begin
         ASchema := BusinessProcessor.Schema;
         ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
 
         try
           //Siempre va a estar rellena
-          Empresa := aChange.NewValueByName[fld_PresupuestosClienteID_EMPRESA];
+          Empresa := Sender.CurrentChange.NewValueByName[fld_PresupuestosClienteID_EMPRESA];
-          dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'ID_EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, Empresa]);
+          dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, Empresa]);
         except
           RaiseError('No existe la tabla REFERENCIAS');
         end;
@@ -70,7 +61,7 @@ begin
         REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString;
 
         try
-          ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]);
+          ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]);
         except
           RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
         end;
@@ -80,54 +71,6 @@ begin
   end;
 end;
 
-{
-procedure TBizPresupuestosClienteServer.BeforeProcessChange(
-  Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
-  aChange: TDADeltaChange; var ProcessChange: Boolean);
-var
-  ASchema : TDASchema;
-  ACurrentConn : IDAConnection;
-  dsData: IDADataset;
-  Empresa : Variant;
-
-begin
-  inherited;
-  case aChangeType of
-    ctInsert, ctUpdate: begin
-      //Si la referencia no ha sido asignada le asignamos una nosotros
-      if (VarIsNull(aChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]))
-      or (VarToStr(aChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]) = '') then
-      begin
-        ASchema := BusinessProcessor.Schema;
-        ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
-
-        try
-          //Siempre va a estar rellena
-          Empresa := aChange.NewValueByName[fld_PresupuestosClienteID_EMPRESA];
-          dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'ID_EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, Empresa]);
-        except
-          RaiseError('No existe la tabla REFERENCIAS');
-        end;
-
-        dsData.Active := True;
-
-        if dsData.IsEmpty then
-          RaiseError('NO HAY REFERENCIA ' + REF_PRESUPUESTOS_CLIENTE + ' DECLARADA EN TABLA REFERENCIAS');
-
-        REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString;
-
-        try
-          ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]);
-        except
-          RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
-        end;
-
-      end;
-    end;
-  end;
-end;
-}
-
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_PRESUPUESTOS_CLIENTE, TBizPresupuestosClienteServer);
 

Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC5.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf17A.tmp */

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc

@@ -23,4 +23,4 @@ END
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorElegirArticulosPresupuestoCliente.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC3.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf178.tmp */

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm

@@ -147,6 +147,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   inherited pgPaginas: TPageControl
     Width = 632
     Height = 442
+    ActivePage = pagContenido
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitWidth = 632
@@ -200,10 +201,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0

Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm

@@ -1,28 +1,18 @@
 inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
   inherited cxGrid: TcxGrid
     inherited cxGridView: TcxGridDBTableView
+      inherited cxGridViewID: TcxGridDBColumn
+        Visible = False
+      end
+      inherited cxGridViewPOSICION: TcxGridDBColumn
+        Visible = False
+      end
+      inherited cxGridViewTIPO: TcxGridDBColumn
+        Visible = False
+      end
       inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
         Visible = False
       end
     end
   end
-  object BitBtn1: TBitBtn [3]
-    Left = 352
-    Top = 112
-    Width = 75
-    Height = 25
-    Caption = 'BitBtn1'
-    TabOrder = 3
-    OnClick = BitBtn1Click
-  end
-  object eReferencia: TDBEdit [4]
-    Left = 299
-    Top = 155
-    Width = 118
-    Height = 21
-    Color = clInfoBk
-    DataField = 'ID'
-    DataSource = DADataSource
-    TabOrder = 4
-  end
 end

Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas

@@ -23,8 +23,6 @@ type
   end;
 
   TfrViewDetallesPresupuestoCliente = class(TfrViewDetallesArticulos, IViewDetallesPresupuestoCliente)
-    BitBtn1: TBitBtn;
-    eReferencia: TDBEdit;
     procedure BitBtn1Click(Sender: TObject);
   protected
     FPresupuesto: IBizPresupuestoCliente;

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas

@@ -11,7 +11,8 @@ uses
   cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
   cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
   uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit,
-  cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces;
+  cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
+  uBizFormasPago;
 
 type
   IViewPresupuestoCliente = interface(IViewBase)
@@ -66,8 +67,9 @@ type
     procedure frViewClientePresupuestoButton2Click(Sender: TObject);
   protected
     FPresupuesto : IBizPresupuestoCliente;
-    FViewClientePresupuesto : TfrViewDatosYSeleccionCliente;
+    FFormasPago : IBizFormaPago;
     FFormasPagoController : IFormasPagoController;
+    FViewClientePresupuesto : TfrViewDatosYSeleccionCliente;
 
     function GetPresupuesto: IBizPresupuestoCliente;
     procedure SetPresupuesto(const Value: IBizPresupuestoCliente); virtual;
@@ -85,8 +87,7 @@ implementation
 { TfrViewPresupuestoCliente }
 
 uses
-  uClientesController, uBizDireccionesContacto, uPresupuestosClienteController,
+  uClientesController, uBizDireccionesContacto, uPresupuestosClienteController;
-  uBizFormasPago;
 
 
 procedure TfrViewPresupuestoCliente.actElegirDireccionExecute(Sender: TObject);
@@ -130,12 +131,14 @@ end;
 procedure TfrViewPresupuestoCliente.bFormasPagoClick(Sender: TObject);
 begin
   inherited;
-  FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago);
+  if Assigned(FFormasPago) then
+     FFormasPagoController.VerTodos(FFormasPago);
 end;
 
 procedure TfrViewPresupuestoCliente.CustomViewCreate(Sender: TObject);
 begin
   inherited;
+  FFormasPago := Nil;
   FFormasPagoController := TFormasPagoController.Create;
   FViewClientePresupuesto := frViewClientePresupuesto;
   FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el Presupuesto.';
@@ -143,8 +146,9 @@ end;
 
 procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject);
 begin
-  FViewClientePresupuesto := NIL;
+  FFormasPago := Nil;
   FFormasPagoController := NIL;
+  FViewClientePresupuesto := NIL;
   inherited;
 end;
 
@@ -186,8 +190,11 @@ begin
   if Assigned(FPresupuesto) then
   begin
     DADataSource.DataTable := FPresupuesto.DataTable;
-    dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable;
+
+    FFormasPago := FFormasPagoController.BuscarTodos;
+    dsFormaPago.DataTable := FFormasPago.DataTable;
     dsFormaPago.DataTable.Active := True;
+
     frViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
   end
   else begin