Se adaptan los detalles para que puedan ser las cantidades decimales

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

Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm

@@ -290,7 +290,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
       end
       item
         Name = 'CANTIDAD'
-        DataType = datInteger
+        DataType = datFloat
         DisplayLabel = 'Cantidad'
         DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD'
       end

Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj

@@ -16,6 +16,7 @@
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
     <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
     <Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
+    <Projects Include="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" />
     <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
     <Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
     <Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
@@ -241,14 +242,23 @@
   <Target Name="PreCli_FacCli_relation:Make">
     <MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="Make" />
   </Target>
+  <Target Name="PedidosProveedor_data">
+    <MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="" />
+  </Target>
+  <Target Name="PedidosProveedor_data:Clean">
+    <MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PedidosProveedor_data:Make">
+    <MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation;PedidosProveedor_data" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas

@@ -3,15 +3,15 @@ unit schFacturasProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_FacturasProveedor = '{9DABF9A4-726E-46BC-B327-E8A58F67033E}';
+  RID_FacturasProveedor = '{EE9FBF74-DB1B-4B3C-93F6-B8A512067389}';
-  RID_FacturasProveedor_Detalles = '{ABAE830E-4859-445D-A355-12268943230C}';
+  RID_FacturasProveedor_Detalles = '{554F91EF-CCD5-46D5-9A25-64BDD41C19E6}';
-  RID_FacturasProveedor_Pedidos = '{6416A6EE-BBAF-4F0C-91C3-174807E4BCA8}';
+  RID_FacturasProveedor_Pedidos = '{3EE7B732-A5CB-47B3-BB5A-32CA6600E3C3}';
 
   { Data table names }
   nme_FacturasProveedor = 'FacturasProveedor';
@@ -143,7 +143,7 @@ const
 type
   { IFacturasProveedor }
   IFacturasProveedor = interface(IDAStronglyTypedDataTable)
-  ['{69529775-1F7D-4D22-8633-38AF61125CD7}']
+  ['{2B8A31E0-CC1A-432A-8ED5-FF8718B38A4A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -342,7 +342,7 @@ type
   end;
 
   { TFacturasProveedorDataTableRules }
-  TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
+  TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
   private
     f_OBSERVACIONES: IROStrings;
     procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -550,7 +550,7 @@ type
 
   { IFacturasProveedor_Detalles }
   IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{8FFCB0F7-4DE0-44FE-8E2D-7A0FC731A3B6}']
+  ['{719BD22D-DC5C-4EA5-83AD-3FE3BFCFACD8}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -572,8 +572,8 @@ type
     procedure SetCONCEPTOValue(const aValue: String);
     function GetCONCEPTOIsNull: Boolean;
     procedure SetCONCEPTOIsNull(const aValue: Boolean);
-    function GetCANTIDADValue: Integer;
+    function GetCANTIDADValue: Float;
-    procedure SetCANTIDADValue(const aValue: Integer);
+    procedure SetCANTIDADValue(const aValue: Float);
     function GetCANTIDADIsNull: Boolean;
     procedure SetCANTIDADIsNull(const aValue: Boolean);
     function GetUNIDAD_MEDIDAValue: String;
@@ -629,7 +629,7 @@ type
     property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
     property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
-    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@@ -654,7 +654,7 @@ type
   end;
 
   { TFacturasProveedor_DetallesDataTableRules }
-  TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
+  TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
   private
   protected
     { Property getters and setters }
@@ -678,8 +678,8 @@ type
     procedure SetCONCEPTOValue(const aValue: String); virtual;
     function GetCONCEPTOIsNull: Boolean; virtual;
     procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
-    function GetCANTIDADValue: Integer; virtual;
+    function GetCANTIDADValue: Float; virtual;
-    procedure SetCANTIDADValue(const aValue: Integer); virtual;
+    procedure SetCANTIDADValue(const aValue: Float); virtual;
     function GetCANTIDADIsNull: Boolean; virtual;
     procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
     function GetUNIDAD_MEDIDAValue: String; virtual;
@@ -734,7 +734,7 @@ type
     property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
     property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
-    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@@ -765,7 +765,7 @@ type
 
   { IFacturasProveedor_Pedidos }
   IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
-  ['{CAA2BA29-71B5-49CE-91FE-8FD0058AFF71}']
+  ['{0EF668B9-36CD-49D2-98AA-73BC8A470306}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -815,7 +815,7 @@ type
   end;
 
   { TFacturasProveedor_PedidosDataTableRules }
-  TFacturasProveedor_PedidosDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Pedidos)
+  TFacturasProveedor_PedidosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Pedidos)
   private
   protected
     { Property getters and setters }
@@ -1681,14 +1681,14 @@ begin
     DataTable.Fields[idx_FacturasProveedor_DetallesCONCEPTO].AsVariant := Null;
 end;
 
-function TFacturasProveedor_DetallesDataTableRules.GetCANTIDADValue: Integer;
+function TFacturasProveedor_DetallesDataTableRules.GetCANTIDADValue: Float;
 begin
-  result := DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsInteger;
+  result := DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsFloat;
 end;
 
-procedure TFacturasProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
+procedure TFacturasProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
 begin
-  DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsInteger := aValue;
+  DataTable.Fields[idx_FacturasProveedor_DetallesCANTIDAD].AsFloat := aValue;
 end;
 
 function TFacturasProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean;

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_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_FacturasProveedorDelta = '{57F20BCB-960D-454F-B3CF-D6EDE9BD1090}';
+  RID_FacturasProveedorDelta = '{DEDF4BE8-84F9-4301-B8D1-EDA6D80F4806}';
-  RID_FacturasProveedor_DetallesDelta = '{39265CE2-ACD3-4A3F-8233-0C547807362E}';
+  RID_FacturasProveedor_DetallesDelta = '{5546A2C7-8888-4209-A16C-2CBD7F2F0445}';
-  RID_FacturasProveedor_PedidosDelta = '{243BACD1-36BC-42AE-B928-04556776AE94}';
+  RID_FacturasProveedor_PedidosDelta = '{46AB77BB-35CB-4499-8923-289831F40490}';
 
 type
   { IFacturasProveedorDelta }
   IFacturasProveedorDelta = interface(IFacturasProveedor)
-  ['{57F20BCB-960D-454F-B3CF-D6EDE9BD1090}']
+  ['{DEDF4BE8-84F9-4301-B8D1-EDA6D80F4806}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -423,14 +423,14 @@ type
 
   { IFacturasProveedor_DetallesDelta }
   IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
-  ['{39265CE2-ACD3-4A3F-8233-0C547807362E}']
+  ['{5546A2C7-8888-4209-A16C-2CBD7F2F0445}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
     function GetOldPOSICIONValue : Integer;
     function GetOldTIPO_DETALLEValue : String;
     function GetOldCONCEPTOValue : String;
-    function GetOldCANTIDADValue : Integer;
+    function GetOldCANTIDADValue : Float;
     function GetOldUNIDAD_MEDIDAValue : String;
     function GetOldIMPORTE_UNIDADValue : Currency;
     function GetOldIMPORTE_TOTALValue : Currency;
@@ -448,7 +448,7 @@ type
     property OldPOSICION : Integer read GetOldPOSICIONValue;
     property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
     property OldCONCEPTO : String read GetOldCONCEPTOValue;
-    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+    property OldCANTIDAD : Float read GetOldCANTIDADValue;
     property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
     property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
@@ -496,11 +496,11 @@ type
     function GetOldCONCEPTOIsNull: Boolean; virtual;
     procedure SetCONCEPTOValue(const aValue: String); virtual;
     procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
-    function GetCANTIDADValue: Integer; virtual;
+    function GetCANTIDADValue: Float; virtual;
     function GetCANTIDADIsNull: Boolean; virtual;
-    function GetOldCANTIDADValue: Integer; virtual;
+    function GetOldCANTIDADValue: Float; virtual;
     function GetOldCANTIDADIsNull: Boolean; virtual;
-    procedure SetCANTIDADValue(const aValue: Integer); virtual;
+    procedure SetCANTIDADValue(const aValue: Float); virtual;
     procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
     function GetUNIDAD_MEDIDAValue: String; virtual;
     function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
@@ -584,9 +584,9 @@ type
     property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
     property OldCONCEPTO : String read GetOldCONCEPTOValue;
     property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
-    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
     property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
-    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+    property OldCANTIDAD : Float read GetOldCANTIDADValue;
     property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
     property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
@@ -637,7 +637,7 @@ type
 
   { IFacturasProveedor_PedidosDelta }
   IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
-  ['{243BACD1-36BC-42AE-B928-04556776AE94}']
+  ['{46AB77BB-35CB-4499-8923-289831F40490}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -1924,7 +1924,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCONCEPTO] := Null;
 end;
 
-function TFacturasProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
+function TFacturasProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCANTIDAD];
 end;
@@ -1934,7 +1934,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCANTIDAD]);
 end;
 
-function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
+function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesCANTIDAD];
 end;
@@ -1944,7 +1944,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesCANTIDAD]);
 end;
 
-procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
+procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesCANTIDAD] := aValue;
 end;

Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm

@@ -460,7 +460,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
           end
           item
             Name = 'CANTIDAD'
-            DataType = datInteger
+            DataType = datFloat
             DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD'
           end
           item
@@ -1484,7 +1484,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
       end
       item
         Name = 'FacturasProveedor_Detalles_CANTIDAD'
-        DataType = datInteger
+        DataType = datFloat
         DisplayLabel = 'Cantidad'
       end
       item