Errores #539: Aparecen artículos reservados en los almacenes pero luego no se listan

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@124 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Database/scripts/factuges.sql

@@ -2578,38 +2578,79 @@ AND   (ARTICULOS.INVENTARIABLE = 1)
 
 /* View: V_INV_DETALLE_RESERVAS */
 CREATE VIEW V_INV_DETALLE_RESERVAS(
-    ID,
+    ID_ALB,
     ID_EMPRESA,
-    ID_ALMACEN,
-    NOMBRE_ALMACEN,
-    FECHA_RESERVA,
-    CAUSA_RESERVA,
-    ID_ARTICULO,
-    REFERENCIA,
-    DESCRIPCION,
-    FAMILIA,
-    UNIDAD_MEDIDA,
-    FABRICANTE,
-    REFERENCIA_FABR,
-    CANTIDAD,
-    ID_ALMACEN_RESERVA,
-    NOMBRE_ALMACEN_RESERVA,
-    ID_EMPRESA_ALMACEN_RESERVA)
+    REFERENCIA_ALB,
+    SITUACION_ALB,
+    FECHA_PREVISTA_ENVIO_ALB,
+    ID_ALMACEN_ALB,
+    ALMACEN_ALB,
+    ID_CLIENTE_ALB,
+    CLIENTE_ALB,
+    ID_ART,
+    FAMILIA_ART,
+    REFERENCIA_ART,
+    REFERENCIA_PROV_ART,
+    DESCRIPCION_ART,
+    CANTIDAD_ART)
 AS
-select movimientos.id, almacenes1.ID_EMPRESA, movimientos.ID_ALMACEN, almacenes1.nombre as nombre_almacen,
-movimientos.fecha_movimiento as fecha_reserva, movimientos.causa, movimientos.id_articulo,
-articulos.referencia, articulos.descripcion, articulos.familia,
-articulos.unidad_medida, articulos.fabricante, articulos.referencia_fabr,
-movimientos.cantidad, movimientos.id_almacen_reserva,
-almacenes2.nombre as nombre_almacen_reserva, almacenes2.id_empresa
-from movimientos
-left join almacenes almacenes1 on (almacenes1.ID = movimientos.ID_ALMACEN)
-left join almacenes almacenes2 on (almacenes2.ID = movimientos.ID_ALMACEN_RESERVA)
-left join articulos on (articulos.id = movimientos.id_articulo)
-where tipo = 'R'
-;
-;
+SELECT
+        ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,
+        ALBARANES_CLIENTE.ID_EMPRESA,
+        ALBARANES_CLIENTE.REFERENCIA,
+        V_ALB_CLI_SITUACION.SITUACION,
+        ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,
+        ALBARANES_CLIENTE.ID_ALMACEN,
+        ALMACENES.NOMBRE AS ALMACEN,
+        ALBARANES_CLIENTE.ID_CLIENTE,
+        CONTACTOS.NOMBRE AS CLIENTE,
+        ARTICULOS.ID,
+        ARTICULOS.FAMILIA,
+        ARTICULOS.REFERENCIA,
+        ARTICULOS.REFERENCIA_PROV,
+        ARTICULOS.DESCRIPCION,
+        SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0))
 
+FROM ALBARANES_CLIENTE_DETALLES
+LEFT JOIN ALBARANES_CLIENTE
+ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID)
+LEFT JOIN CONTACTOS
+ON (ALBARANES_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
+LEFT JOIN ALMACENES
+ON (ALBARANES_CLIENTE.ID_ALMACEN = ALMACENES.ID)
+LEFT JOIN ARTICULOS
+ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)
+LEFT JOIN V_ALB_CLI_SITUACION
+ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.ID)
+
+/*Quitamos aquellos detalles que no tengan cabecera existente
+  aquellos que no se correspondan con un almacén es decir albaranes libres
+  que el albaran este pendiente (los articulos estan reservados en el almacen)
+  aquellos que no se correspondan con artículos existentes en el catalogo
+  y que no sean inventariables*/
+WHERE (ALBARANES_CLIENTE.ID IS NOT NULL)
+AND   (ALBARANES_CLIENTE.ID_ALMACEN IS NOT NULL)
+AND   (V_ALB_CLI_SITUACION.SITUACION = 'PENDIENTE')
+AND   (ARTICULOS.ID is not null)
+AND   (ARTICULOS.ELIMINADO = 0)
+AND   (ARTICULOS.INVENTARIABLE = 1)
+
+GROUP BY
+        ALBARANES_CLIENTE_DETALLES.ID_ALBARAN,
+    ALBARANES_CLIENTE.ID_EMPRESA,        
+        ALBARANES_CLIENTE.REFERENCIA,
+        V_ALB_CLI_SITUACION.SITUACION,
+        ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,
+        ALBARANES_CLIENTE.ID_ALMACEN,
+        ALMACENES.NOMBRE,
+        ALBARANES_CLIENTE.ID_CLIENTE,
+        CONTACTOS.NOMBRE,
+        ARTICULOS.ID,
+        ARTICULOS.FAMILIA,
+        ARTICULOS.REFERENCIA,
+        ARTICULOS.REFERENCIA_PROV,
+        ARTICULOS.DESCRIPCION;
+;
 
 
 /* View: V_INV_ENTRADAS_ALB */

Source/Modulos/Inventario/Controller/uInventarioController.pas

@@ -209,7 +209,7 @@ function TInventarioController.BuscarDetalleReservas: IBizDetalleReservas;
 begin
   Result := FDataModule.GetDetalleReservas;
   //Se filtra para que solo salgan las reservas a obras o almacenes de la empresa activa
-  FiltrarEmpresa(Result);
+//  FiltrarEmpresa(Result);
 end;
 
 function TInventarioController.BuscarTodos: IBizInventario;
@@ -467,7 +467,9 @@ begin
   with ADetalleReservas.DataTable.DynamicWhere do
   begin
     // (ID_EMPRESA >= ID)
-    Condicion := NewBinaryExpression(NewField('', fld_DetalleReservasID_EMPRESA_ALMACEN_RESERVA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+//TECSITEL
+//    Condicion := NewBinaryExpression(NewField('', fld_DetalleReservasID_EMPRESA_ALMACEN_RESERVA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+    Condicion := NewBinaryExpression(NewField('', fld_DetalleReservasID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
 
     if IsEmpty then
        Expression := Condicion
@@ -929,6 +931,7 @@ procedure TInventarioController.TrasladarReservas(AReservas: IBizDetalleReservas
 var
   AArticulo: IBizInventario;
 begin
+{TECSITEL
   ShowHourglassCursor;
   try
     with AReservas.DataTable do
@@ -963,6 +966,7 @@ begin
   finally
     HideHourglassCursor;
   end;
+}
 end;
 
 {

Source/Modulos/Inventario/Data/uDataModuleInventario.dfm

@@ -27,7 +27,7 @@ inherited DataModuleInventario: TDataModuleInventario
     RemoteUpdatesOptions = []
     Fields = <
       item
-        Name = 'ID'
+        Name = 'ID_ALB'
         DataType = datInteger
       end
       item
@@ -35,73 +35,64 @@ inherited DataModuleInventario: TDataModuleInventario
         DataType = datInteger
       end
       item
-        Name = 'ID_ALMACEN'
-        DataType = datInteger
-      end
-      item
-        Name = 'NOMBRE_ALMACEN'
+        Name = 'REFERENCIA_ALB'
         DataType = datString
         Size = 255
       end
       item
-        Name = 'FECHA_RESERVA'
+        Name = 'SITUACION_ALB'
+        DataType = datString
+        Size = 9
+      end
+      item
+        Name = 'FECHA_PREVISTA_ENVIO_ALB'
         DataType = datDateTime
       end
       item
-        Name = 'CAUSA_RESERVA'
-        DataType = datString
-        Size = 2000
-      end
-      item
-        Name = 'ID_ARTICULO'
+        Name = 'ID_ALMACEN_ALB'
         DataType = datInteger
       end
       item
-        Name = 'REFERENCIA'
+        Name = 'ALMACEN_ALB'
         DataType = datString
         Size = 255
       end
       item
-        Name = 'DESCRIPCION'
+        Name = 'ID_CLIENTE_ALB'
+        DataType = datInteger
+      end
+      item
+        Name = 'CLIENTE_ALB'
         DataType = datString
         Size = 255
       end
       item
-        Name = 'FAMILIA'
+        Name = 'ID_ART'
+        DataType = datInteger
+      end
+      item
+        Name = 'FAMILIA_ART'
         DataType = datString
         Size = 255
       end
       item
-        Name = 'UNIDAD_MEDIDA'
+        Name = 'REFERENCIA_ART'
         DataType = datString
         Size = 255
       end
       item
-        Name = 'FABRICANTE'
+        Name = 'REFERENCIA_PROV_ART'
         DataType = datString
         Size = 255
       end
       item
-        Name = 'REFERENCIA_FABR'
+        Name = 'DESCRIPCION_ART'
         DataType = datString
         Size = 255
       end
       item
-        Name = 'CANTIDAD'
+        Name = 'CANTIDAD_ART'
         DataType = datCurrency
-      end
-      item
-        Name = 'ID_ALMACEN_RESERVA'
-        DataType = datInteger
-      end
-      item
-        Name = 'NOMBRE_ALMACEN_RESERVA'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'ID_EMPRESA_ALMACEN_RESERVA'
-        DataType = datInteger
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Inventario/Data/uDataModuleInventario.pas

@@ -68,7 +68,7 @@ begin
         AddOperator(opAND);
 
       OpenBraket;
-      AddText(fld_DetalleReservasID + ' = ' + IntToStr(ID_NULO));
+      AddText(fld_DetalleReservasID_ALB + ' = ' + IntToStr(ID_NULO));
       CloseBraket;
     end;
   finally

Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas

@@ -3,14 +3,14 @@ unit schInventarioClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_Inventario = '{D04FC2C5-D75A-471F-A38D-F2609EE8EDB5}';
-  RID_DetalleReservas = '{BFC29192-74A7-46CC-BB5D-75D9B57EB4DA}';
+  RID_Inventario = '{C3A0BEC9-DB5D-4AE7-818E-B1590D3259A2}';
+  RID_DetalleReservas = '{CEF5FA1F-C51A-4735-A74D-C1716B339D0A}';
 
   { Data table names }
   nme_Inventario = 'Inventario';
@@ -65,47 +65,43 @@ const
   idx_InventarioID_ALMACEN_RESERVA = 21;
 
   { DetalleReservas fields }
-  fld_DetalleReservasID = 'ID';
+  fld_DetalleReservasID_ALB = 'ID_ALB';
   fld_DetalleReservasID_EMPRESA = 'ID_EMPRESA';
-  fld_DetalleReservasID_ALMACEN = 'ID_ALMACEN';
-  fld_DetalleReservasNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
-  fld_DetalleReservasFECHA_RESERVA = 'FECHA_RESERVA';
-  fld_DetalleReservasCAUSA_RESERVA = 'CAUSA_RESERVA';
-  fld_DetalleReservasID_ARTICULO = 'ID_ARTICULO';
-  fld_DetalleReservasREFERENCIA = 'REFERENCIA';
-  fld_DetalleReservasDESCRIPCION = 'DESCRIPCION';
-  fld_DetalleReservasFAMILIA = 'FAMILIA';
-  fld_DetalleReservasUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
-  fld_DetalleReservasFABRICANTE = 'FABRICANTE';
-  fld_DetalleReservasREFERENCIA_FABR = 'REFERENCIA_FABR';
-  fld_DetalleReservasCANTIDAD = 'CANTIDAD';
-  fld_DetalleReservasID_ALMACEN_RESERVA = 'ID_ALMACEN_RESERVA';
-  fld_DetalleReservasNOMBRE_ALMACEN_RESERVA = 'NOMBRE_ALMACEN_RESERVA';
-  fld_DetalleReservasID_EMPRESA_ALMACEN_RESERVA = 'ID_EMPRESA_ALMACEN_RESERVA';
+  fld_DetalleReservasREFERENCIA_ALB = 'REFERENCIA_ALB';
+  fld_DetalleReservasSITUACION_ALB = 'SITUACION_ALB';
+  fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB = 'FECHA_PREVISTA_ENVIO_ALB';
+  fld_DetalleReservasID_ALMACEN_ALB = 'ID_ALMACEN_ALB';
+  fld_DetalleReservasALMACEN_ALB = 'ALMACEN_ALB';
+  fld_DetalleReservasID_CLIENTE_ALB = 'ID_CLIENTE_ALB';
+  fld_DetalleReservasCLIENTE_ALB = 'CLIENTE_ALB';
+  fld_DetalleReservasID_ART = 'ID_ART';
+  fld_DetalleReservasFAMILIA_ART = 'FAMILIA_ART';
+  fld_DetalleReservasREFERENCIA_ART = 'REFERENCIA_ART';
+  fld_DetalleReservasREFERENCIA_PROV_ART = 'REFERENCIA_PROV_ART';
+  fld_DetalleReservasDESCRIPCION_ART = 'DESCRIPCION_ART';
+  fld_DetalleReservasCANTIDAD_ART = 'CANTIDAD_ART';
 
   { DetalleReservas field indexes }
-  idx_DetalleReservasID = 0;
+  idx_DetalleReservasID_ALB = 0;
   idx_DetalleReservasID_EMPRESA = 1;
-  idx_DetalleReservasID_ALMACEN = 2;
-  idx_DetalleReservasNOMBRE_ALMACEN = 3;
-  idx_DetalleReservasFECHA_RESERVA = 4;
-  idx_DetalleReservasCAUSA_RESERVA = 5;
-  idx_DetalleReservasID_ARTICULO = 6;
-  idx_DetalleReservasREFERENCIA = 7;
-  idx_DetalleReservasDESCRIPCION = 8;
-  idx_DetalleReservasFAMILIA = 9;
-  idx_DetalleReservasUNIDAD_MEDIDA = 10;
-  idx_DetalleReservasFABRICANTE = 11;
-  idx_DetalleReservasREFERENCIA_FABR = 12;
-  idx_DetalleReservasCANTIDAD = 13;
-  idx_DetalleReservasID_ALMACEN_RESERVA = 14;
-  idx_DetalleReservasNOMBRE_ALMACEN_RESERVA = 15;
-  idx_DetalleReservasID_EMPRESA_ALMACEN_RESERVA = 16;
+  idx_DetalleReservasREFERENCIA_ALB = 2;
+  idx_DetalleReservasSITUACION_ALB = 3;
+  idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB = 4;
+  idx_DetalleReservasID_ALMACEN_ALB = 5;
+  idx_DetalleReservasALMACEN_ALB = 6;
+  idx_DetalleReservasID_CLIENTE_ALB = 7;
+  idx_DetalleReservasCLIENTE_ALB = 8;
+  idx_DetalleReservasID_ART = 9;
+  idx_DetalleReservasFAMILIA_ART = 10;
+  idx_DetalleReservasREFERENCIA_ART = 11;
+  idx_DetalleReservasREFERENCIA_PROV_ART = 12;
+  idx_DetalleReservasDESCRIPCION_ART = 13;
+  idx_DetalleReservasCANTIDAD_ART = 14;
 
 type
   { IInventario }
   IInventario = interface(IDAStronglyTypedDataTable)
-  ['{5FE325FA-C485-4522-8F90-B6B037D1764A}']
+  ['{F619175B-A463-4BA3-B136-60122A903D0A}']
     { Property getters and setters }
     function GetID_ALMACENValue: Integer;
     procedure SetID_ALMACENValue(const aValue: Integer);
@@ -245,7 +241,7 @@ type
   end;
 
   { TInventarioDataTableRules }
-  TInventarioDataTableRules = class(TIntfObjectDADataTableRules, IInventario)
+  TInventarioDataTableRules = class(TDADataTableRules, IInventario)
   private
   protected
     { Property getters and setters }
@@ -392,224 +388,200 @@ type
 
   { IDetalleReservas }
   IDetalleReservas = interface(IDAStronglyTypedDataTable)
-  ['{7FE92649-C32F-47EB-9D9F-0CD43FECC0A1}']
+  ['{1DEB195E-09C4-4AEF-B988-B8B5263C31B2}']
     { Property getters and setters }
-    function GetIDValue: Integer;
-    procedure SetIDValue(const aValue: Integer);
-    function GetIDIsNull: Boolean;
-    procedure SetIDIsNull(const aValue: Boolean);
+    function GetID_ALBValue: Integer;
+    procedure SetID_ALBValue(const aValue: Integer);
+    function GetID_ALBIsNull: Boolean;
+    procedure SetID_ALBIsNull(const aValue: Boolean);
     function GetID_EMPRESAValue: Integer;
     procedure SetID_EMPRESAValue(const aValue: Integer);
     function GetID_EMPRESAIsNull: Boolean;
     procedure SetID_EMPRESAIsNull(const aValue: Boolean);
-    function GetID_ALMACENValue: Integer;
-    procedure SetID_ALMACENValue(const aValue: Integer);
-    function GetID_ALMACENIsNull: Boolean;
-    procedure SetID_ALMACENIsNull(const aValue: Boolean);
-    function GetNOMBRE_ALMACENValue: String;
-    procedure SetNOMBRE_ALMACENValue(const aValue: String);
-    function GetNOMBRE_ALMACENIsNull: Boolean;
-    procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
-    function GetFECHA_RESERVAValue: DateTime;
-    procedure SetFECHA_RESERVAValue(const aValue: DateTime);
-    function GetFECHA_RESERVAIsNull: Boolean;
-    procedure SetFECHA_RESERVAIsNull(const aValue: Boolean);
-    function GetCAUSA_RESERVAValue: String;
-    procedure SetCAUSA_RESERVAValue(const aValue: String);
-    function GetCAUSA_RESERVAIsNull: Boolean;
-    procedure SetCAUSA_RESERVAIsNull(const aValue: Boolean);
-    function GetID_ARTICULOValue: Integer;
-    procedure SetID_ARTICULOValue(const aValue: Integer);
-    function GetID_ARTICULOIsNull: Boolean;
-    procedure SetID_ARTICULOIsNull(const aValue: Boolean);
-    function GetREFERENCIAValue: String;
-    procedure SetREFERENCIAValue(const aValue: String);
-    function GetREFERENCIAIsNull: Boolean;
-    procedure SetREFERENCIAIsNull(const aValue: Boolean);
-    function GetDESCRIPCIONValue: String;
-    procedure SetDESCRIPCIONValue(const aValue: String);
-    function GetDESCRIPCIONIsNull: Boolean;
-    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
-    function GetFAMILIAValue: String;
-    procedure SetFAMILIAValue(const aValue: String);
-    function GetFAMILIAIsNull: Boolean;
-    procedure SetFAMILIAIsNull(const aValue: Boolean);
-    function GetUNIDAD_MEDIDAValue: String;
-    procedure SetUNIDAD_MEDIDAValue(const aValue: String);
-    function GetUNIDAD_MEDIDAIsNull: Boolean;
-    procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
-    function GetFABRICANTEValue: String;
-    procedure SetFABRICANTEValue(const aValue: String);
-    function GetFABRICANTEIsNull: Boolean;
-    procedure SetFABRICANTEIsNull(const aValue: Boolean);
-    function GetREFERENCIA_FABRValue: String;
-    procedure SetREFERENCIA_FABRValue(const aValue: String);
-    function GetREFERENCIA_FABRIsNull: Boolean;
-    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
-    function GetCANTIDADValue: Currency;
-    procedure SetCANTIDADValue(const aValue: Currency);
-    function GetCANTIDADIsNull: Boolean;
-    procedure SetCANTIDADIsNull(const aValue: Boolean);
-    function GetID_ALMACEN_RESERVAValue: Integer;
-    procedure SetID_ALMACEN_RESERVAValue(const aValue: Integer);
-    function GetID_ALMACEN_RESERVAIsNull: Boolean;
-    procedure SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean);
-    function GetNOMBRE_ALMACEN_RESERVAValue: String;
-    procedure SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String);
-    function GetNOMBRE_ALMACEN_RESERVAIsNull: Boolean;
-    procedure SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean);
-    function GetID_EMPRESA_ALMACEN_RESERVAValue: Integer;
-    procedure SetID_EMPRESA_ALMACEN_RESERVAValue(const aValue: Integer);
-    function GetID_EMPRESA_ALMACEN_RESERVAIsNull: Boolean;
-    procedure SetID_EMPRESA_ALMACEN_RESERVAIsNull(const aValue: Boolean);
+    function GetREFERENCIA_ALBValue: String;
+    procedure SetREFERENCIA_ALBValue(const aValue: String);
+    function GetREFERENCIA_ALBIsNull: Boolean;
+    procedure SetREFERENCIA_ALBIsNull(const aValue: Boolean);
+    function GetSITUACION_ALBValue: String;
+    procedure SetSITUACION_ALBValue(const aValue: String);
+    function GetSITUACION_ALBIsNull: Boolean;
+    procedure SetSITUACION_ALBIsNull(const aValue: Boolean);
+    function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime;
+    procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime);
+    function GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean;
+    procedure SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean);
+    function GetID_ALMACEN_ALBValue: Integer;
+    procedure SetID_ALMACEN_ALBValue(const aValue: Integer);
+    function GetID_ALMACEN_ALBIsNull: Boolean;
+    procedure SetID_ALMACEN_ALBIsNull(const aValue: Boolean);
+    function GetALMACEN_ALBValue: String;
+    procedure SetALMACEN_ALBValue(const aValue: String);
+    function GetALMACEN_ALBIsNull: Boolean;
+    procedure SetALMACEN_ALBIsNull(const aValue: Boolean);
+    function GetID_CLIENTE_ALBValue: Integer;
+    procedure SetID_CLIENTE_ALBValue(const aValue: Integer);
+    function GetID_CLIENTE_ALBIsNull: Boolean;
+    procedure SetID_CLIENTE_ALBIsNull(const aValue: Boolean);
+    function GetCLIENTE_ALBValue: String;
+    procedure SetCLIENTE_ALBValue(const aValue: String);
+    function GetCLIENTE_ALBIsNull: Boolean;
+    procedure SetCLIENTE_ALBIsNull(const aValue: Boolean);
+    function GetID_ARTValue: Integer;
+    procedure SetID_ARTValue(const aValue: Integer);
+    function GetID_ARTIsNull: Boolean;
+    procedure SetID_ARTIsNull(const aValue: Boolean);
+    function GetFAMILIA_ARTValue: String;
+    procedure SetFAMILIA_ARTValue(const aValue: String);
+    function GetFAMILIA_ARTIsNull: Boolean;
+    procedure SetFAMILIA_ARTIsNull(const aValue: Boolean);
+    function GetREFERENCIA_ARTValue: String;
+    procedure SetREFERENCIA_ARTValue(const aValue: String);
+    function GetREFERENCIA_ARTIsNull: Boolean;
+    procedure SetREFERENCIA_ARTIsNull(const aValue: Boolean);
+    function GetREFERENCIA_PROV_ARTValue: String;
+    procedure SetREFERENCIA_PROV_ARTValue(const aValue: String);
+    function GetREFERENCIA_PROV_ARTIsNull: Boolean;
+    procedure SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean);
+    function GetDESCRIPCION_ARTValue: String;
+    procedure SetDESCRIPCION_ARTValue(const aValue: String);
+    function GetDESCRIPCION_ARTIsNull: Boolean;
+    procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean);
+    function GetCANTIDAD_ARTValue: Currency;
+    procedure SetCANTIDAD_ARTValue(const aValue: Currency);
+    function GetCANTIDAD_ARTIsNull: Boolean;
+    procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean);
 
 
     { Properties }
-    property ID: Integer read GetIDValue write SetIDValue;
-    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ID_ALB: Integer read GetID_ALBValue write SetID_ALBValue;
+    property ID_ALBIsNull: Boolean read GetID_ALBIsNull write SetID_ALBIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
-    property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
-    property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
-    property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
-    property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
-    property FECHA_RESERVA: DateTime read GetFECHA_RESERVAValue write SetFECHA_RESERVAValue;
-    property FECHA_RESERVAIsNull: Boolean read GetFECHA_RESERVAIsNull write SetFECHA_RESERVAIsNull;
-    property CAUSA_RESERVA: String read GetCAUSA_RESERVAValue write SetCAUSA_RESERVAValue;
-    property CAUSA_RESERVAIsNull: Boolean read GetCAUSA_RESERVAIsNull write SetCAUSA_RESERVAIsNull;
-    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
-    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
-    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
-    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
-    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
-    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
-    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
-    property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
-    property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
-    property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
-    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
-    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
-    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
-    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
-    property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
-    property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
-    property ID_ALMACEN_RESERVA: Integer read GetID_ALMACEN_RESERVAValue write SetID_ALMACEN_RESERVAValue;
-    property ID_ALMACEN_RESERVAIsNull: Boolean read GetID_ALMACEN_RESERVAIsNull write SetID_ALMACEN_RESERVAIsNull;
-    property NOMBRE_ALMACEN_RESERVA: String read GetNOMBRE_ALMACEN_RESERVAValue write SetNOMBRE_ALMACEN_RESERVAValue;
-    property NOMBRE_ALMACEN_RESERVAIsNull: Boolean read GetNOMBRE_ALMACEN_RESERVAIsNull write SetNOMBRE_ALMACEN_RESERVAIsNull;
-    property ID_EMPRESA_ALMACEN_RESERVA: Integer read GetID_EMPRESA_ALMACEN_RESERVAValue write SetID_EMPRESA_ALMACEN_RESERVAValue;
-    property ID_EMPRESA_ALMACEN_RESERVAIsNull: Boolean read GetID_EMPRESA_ALMACEN_RESERVAIsNull write SetID_EMPRESA_ALMACEN_RESERVAIsNull;
+    property REFERENCIA_ALB: String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue;
+    property REFERENCIA_ALBIsNull: Boolean read GetREFERENCIA_ALBIsNull write SetREFERENCIA_ALBIsNull;
+    property SITUACION_ALB: String read GetSITUACION_ALBValue write SetSITUACION_ALBValue;
+    property SITUACION_ALBIsNull: Boolean read GetSITUACION_ALBIsNull write SetSITUACION_ALBIsNull;
+    property FECHA_PREVISTA_ENVIO_ALB: DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue;
+    property FECHA_PREVISTA_ENVIO_ALBIsNull: Boolean read GetFECHA_PREVISTA_ENVIO_ALBIsNull write SetFECHA_PREVISTA_ENVIO_ALBIsNull;
+    property ID_ALMACEN_ALB: Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue;
+    property ID_ALMACEN_ALBIsNull: Boolean read GetID_ALMACEN_ALBIsNull write SetID_ALMACEN_ALBIsNull;
+    property ALMACEN_ALB: String read GetALMACEN_ALBValue write SetALMACEN_ALBValue;
+    property ALMACEN_ALBIsNull: Boolean read GetALMACEN_ALBIsNull write SetALMACEN_ALBIsNull;
+    property ID_CLIENTE_ALB: Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue;
+    property ID_CLIENTE_ALBIsNull: Boolean read GetID_CLIENTE_ALBIsNull write SetID_CLIENTE_ALBIsNull;
+    property CLIENTE_ALB: String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue;
+    property CLIENTE_ALBIsNull: Boolean read GetCLIENTE_ALBIsNull write SetCLIENTE_ALBIsNull;
+    property ID_ART: Integer read GetID_ARTValue write SetID_ARTValue;
+    property ID_ARTIsNull: Boolean read GetID_ARTIsNull write SetID_ARTIsNull;
+    property FAMILIA_ART: String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue;
+    property FAMILIA_ARTIsNull: Boolean read GetFAMILIA_ARTIsNull write SetFAMILIA_ARTIsNull;
+    property REFERENCIA_ART: String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue;
+    property REFERENCIA_ARTIsNull: Boolean read GetREFERENCIA_ARTIsNull write SetREFERENCIA_ARTIsNull;
+    property REFERENCIA_PROV_ART: String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue;
+    property REFERENCIA_PROV_ARTIsNull: Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull;
+    property DESCRIPCION_ART: String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue;
+    property DESCRIPCION_ARTIsNull: Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull;
+    property CANTIDAD_ART: Currency read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
+    property CANTIDAD_ARTIsNull: Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull;
   end;
 
   { TDetalleReservasDataTableRules }
-  TDetalleReservasDataTableRules = class(TIntfObjectDADataTableRules, IDetalleReservas)
+  TDetalleReservasDataTableRules = class(TDADataTableRules, IDetalleReservas)
   private
   protected
     { Property getters and setters }
-    function GetIDValue: Integer; virtual;
-    procedure SetIDValue(const aValue: Integer); virtual;
-    function GetIDIsNull: Boolean; virtual;
-    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetID_ALBValue: Integer; virtual;
+    procedure SetID_ALBValue(const aValue: Integer); virtual;
+    function GetID_ALBIsNull: Boolean; virtual;
+    procedure SetID_ALBIsNull(const aValue: Boolean); virtual;
     function GetID_EMPRESAValue: Integer; virtual;
     procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
     function GetID_EMPRESAIsNull: Boolean; virtual;
     procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
-    function GetID_ALMACENValue: Integer; virtual;
-    procedure SetID_ALMACENValue(const aValue: Integer); virtual;
-    function GetID_ALMACENIsNull: Boolean; virtual;
-    procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
-    function GetNOMBRE_ALMACENValue: String; virtual;
-    procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
-    function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
-    procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual;
-    function GetFECHA_RESERVAValue: DateTime; virtual;
-    procedure SetFECHA_RESERVAValue(const aValue: DateTime); virtual;
-    function GetFECHA_RESERVAIsNull: Boolean; virtual;
-    procedure SetFECHA_RESERVAIsNull(const aValue: Boolean); virtual;
-    function GetCAUSA_RESERVAValue: String; virtual;
-    procedure SetCAUSA_RESERVAValue(const aValue: String); virtual;
-    function GetCAUSA_RESERVAIsNull: Boolean; virtual;
-    procedure SetCAUSA_RESERVAIsNull(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 GetREFERENCIAValue: String; virtual;
-    procedure SetREFERENCIAValue(const aValue: String); virtual;
-    function GetREFERENCIAIsNull: Boolean; virtual;
-    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
-    function GetDESCRIPCIONValue: String; virtual;
-    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
-    function GetDESCRIPCIONIsNull: Boolean; virtual;
-    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
-    function GetFAMILIAValue: String; virtual;
-    procedure SetFAMILIAValue(const aValue: String); virtual;
-    function GetFAMILIAIsNull: Boolean; virtual;
-    procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
-    function GetUNIDAD_MEDIDAValue: String; virtual;
-    procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
-    function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
-    procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
-    function GetFABRICANTEValue: String; virtual;
-    procedure SetFABRICANTEValue(const aValue: String); virtual;
-    function GetFABRICANTEIsNull: Boolean; virtual;
-    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
-    function GetREFERENCIA_FABRValue: String; virtual;
-    procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
-    function GetREFERENCIA_FABRIsNull: Boolean; virtual;
-    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
-    function GetCANTIDADValue: Currency; virtual;
-    procedure SetCANTIDADValue(const aValue: Currency); virtual;
-    function GetCANTIDADIsNull: Boolean; virtual;
-    procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
-    function GetID_ALMACEN_RESERVAValue: Integer; virtual;
-    procedure SetID_ALMACEN_RESERVAValue(const aValue: Integer); virtual;
-    function GetID_ALMACEN_RESERVAIsNull: Boolean; virtual;
-    procedure SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean); virtual;
-    function GetNOMBRE_ALMACEN_RESERVAValue: String; virtual;
-    procedure SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String); virtual;
-    function GetNOMBRE_ALMACEN_RESERVAIsNull: Boolean; virtual;
-    procedure SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean); virtual;
-    function GetID_EMPRESA_ALMACEN_RESERVAValue: Integer; virtual;
-    procedure SetID_EMPRESA_ALMACEN_RESERVAValue(const aValue: Integer); virtual;
-    function GetID_EMPRESA_ALMACEN_RESERVAIsNull: Boolean; virtual;
-    procedure SetID_EMPRESA_ALMACEN_RESERVAIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_ALBValue: String; virtual;
+    procedure SetREFERENCIA_ALBValue(const aValue: String); virtual;
+    function GetREFERENCIA_ALBIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_ALBIsNull(const aValue: Boolean); virtual;
+    function GetSITUACION_ALBValue: String; virtual;
+    procedure SetSITUACION_ALBValue(const aValue: String); virtual;
+    function GetSITUACION_ALBIsNull: Boolean; virtual;
+    procedure SetSITUACION_ALBIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; virtual;
+    procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); virtual;
+    function GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; virtual;
+    procedure SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); virtual;
+    function GetID_ALMACEN_ALBValue: Integer; virtual;
+    procedure SetID_ALMACEN_ALBValue(const aValue: Integer); virtual;
+    function GetID_ALMACEN_ALBIsNull: Boolean; virtual;
+    procedure SetID_ALMACEN_ALBIsNull(const aValue: Boolean); virtual;
+    function GetALMACEN_ALBValue: String; virtual;
+    procedure SetALMACEN_ALBValue(const aValue: String); virtual;
+    function GetALMACEN_ALBIsNull: Boolean; virtual;
+    procedure SetALMACEN_ALBIsNull(const aValue: Boolean); virtual;
+    function GetID_CLIENTE_ALBValue: Integer; virtual;
+    procedure SetID_CLIENTE_ALBValue(const aValue: Integer); virtual;
+    function GetID_CLIENTE_ALBIsNull: Boolean; virtual;
+    procedure SetID_CLIENTE_ALBIsNull(const aValue: Boolean); virtual;
+    function GetCLIENTE_ALBValue: String; virtual;
+    procedure SetCLIENTE_ALBValue(const aValue: String); virtual;
+    function GetCLIENTE_ALBIsNull: Boolean; virtual;
+    procedure SetCLIENTE_ALBIsNull(const aValue: Boolean); virtual;
+    function GetID_ARTValue: Integer; virtual;
+    procedure SetID_ARTValue(const aValue: Integer); virtual;
+    function GetID_ARTIsNull: Boolean; virtual;
+    procedure SetID_ARTIsNull(const aValue: Boolean); virtual;
+    function GetFAMILIA_ARTValue: String; virtual;
+    procedure SetFAMILIA_ARTValue(const aValue: String); virtual;
+    function GetFAMILIA_ARTIsNull: Boolean; virtual;
+    procedure SetFAMILIA_ARTIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_ARTValue: String; virtual;
+    procedure SetREFERENCIA_ARTValue(const aValue: String); virtual;
+    function GetREFERENCIA_ARTIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_ARTIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_PROV_ARTValue: String; virtual;
+    procedure SetREFERENCIA_PROV_ARTValue(const aValue: String); virtual;
+    function GetREFERENCIA_PROV_ARTIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCION_ARTValue: String; virtual;
+    procedure SetDESCRIPCION_ARTValue(const aValue: String); virtual;
+    function GetDESCRIPCION_ARTIsNull: Boolean; virtual;
+    procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean); virtual;
+    function GetCANTIDAD_ARTValue: Currency; virtual;
+    procedure SetCANTIDAD_ARTValue(const aValue: Currency); virtual;
+    function GetCANTIDAD_ARTIsNull: Boolean; virtual;
+    procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean); virtual;
 
     { Properties }
-    property ID: Integer read GetIDValue write SetIDValue;
-    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ID_ALB: Integer read GetID_ALBValue write SetID_ALBValue;
+    property ID_ALBIsNull: Boolean read GetID_ALBIsNull write SetID_ALBIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
-    property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
-    property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
-    property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
-    property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
-    property FECHA_RESERVA: DateTime read GetFECHA_RESERVAValue write SetFECHA_RESERVAValue;
-    property FECHA_RESERVAIsNull: Boolean read GetFECHA_RESERVAIsNull write SetFECHA_RESERVAIsNull;
-    property CAUSA_RESERVA: String read GetCAUSA_RESERVAValue write SetCAUSA_RESERVAValue;
-    property CAUSA_RESERVAIsNull: Boolean read GetCAUSA_RESERVAIsNull write SetCAUSA_RESERVAIsNull;
-    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
-    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
-    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
-    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
-    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
-    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
-    property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
-    property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
-    property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
-    property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
-    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
-    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
-    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
-    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
-    property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
-    property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
-    property ID_ALMACEN_RESERVA: Integer read GetID_ALMACEN_RESERVAValue write SetID_ALMACEN_RESERVAValue;
-    property ID_ALMACEN_RESERVAIsNull: Boolean read GetID_ALMACEN_RESERVAIsNull write SetID_ALMACEN_RESERVAIsNull;
-    property NOMBRE_ALMACEN_RESERVA: String read GetNOMBRE_ALMACEN_RESERVAValue write SetNOMBRE_ALMACEN_RESERVAValue;
-    property NOMBRE_ALMACEN_RESERVAIsNull: Boolean read GetNOMBRE_ALMACEN_RESERVAIsNull write SetNOMBRE_ALMACEN_RESERVAIsNull;
-    property ID_EMPRESA_ALMACEN_RESERVA: Integer read GetID_EMPRESA_ALMACEN_RESERVAValue write SetID_EMPRESA_ALMACEN_RESERVAValue;
-    property ID_EMPRESA_ALMACEN_RESERVAIsNull: Boolean read GetID_EMPRESA_ALMACEN_RESERVAIsNull write SetID_EMPRESA_ALMACEN_RESERVAIsNull;
+    property REFERENCIA_ALB: String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue;
+    property REFERENCIA_ALBIsNull: Boolean read GetREFERENCIA_ALBIsNull write SetREFERENCIA_ALBIsNull;
+    property SITUACION_ALB: String read GetSITUACION_ALBValue write SetSITUACION_ALBValue;
+    property SITUACION_ALBIsNull: Boolean read GetSITUACION_ALBIsNull write SetSITUACION_ALBIsNull;
+    property FECHA_PREVISTA_ENVIO_ALB: DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue;
+    property FECHA_PREVISTA_ENVIO_ALBIsNull: Boolean read GetFECHA_PREVISTA_ENVIO_ALBIsNull write SetFECHA_PREVISTA_ENVIO_ALBIsNull;
+    property ID_ALMACEN_ALB: Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue;
+    property ID_ALMACEN_ALBIsNull: Boolean read GetID_ALMACEN_ALBIsNull write SetID_ALMACEN_ALBIsNull;
+    property ALMACEN_ALB: String read GetALMACEN_ALBValue write SetALMACEN_ALBValue;
+    property ALMACEN_ALBIsNull: Boolean read GetALMACEN_ALBIsNull write SetALMACEN_ALBIsNull;
+    property ID_CLIENTE_ALB: Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue;
+    property ID_CLIENTE_ALBIsNull: Boolean read GetID_CLIENTE_ALBIsNull write SetID_CLIENTE_ALBIsNull;
+    property CLIENTE_ALB: String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue;
+    property CLIENTE_ALBIsNull: Boolean read GetCLIENTE_ALBIsNull write SetCLIENTE_ALBIsNull;
+    property ID_ART: Integer read GetID_ARTValue write SetID_ARTValue;
+    property ID_ARTIsNull: Boolean read GetID_ARTIsNull write SetID_ARTIsNull;
+    property FAMILIA_ART: String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue;
+    property FAMILIA_ARTIsNull: Boolean read GetFAMILIA_ARTIsNull write SetFAMILIA_ARTIsNull;
+    property REFERENCIA_ART: String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue;
+    property REFERENCIA_ARTIsNull: Boolean read GetREFERENCIA_ARTIsNull write SetREFERENCIA_ARTIsNull;
+    property REFERENCIA_PROV_ART: String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue;
+    property REFERENCIA_PROV_ARTIsNull: Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull;
+    property DESCRIPCION_ART: String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue;
+    property DESCRIPCION_ARTIsNull: Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull;
+    property CANTIDAD_ART: Currency read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
+    property CANTIDAD_ARTIsNull: Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1106,25 +1078,25 @@ begin
   inherited;
 end;
 
-function TDetalleReservasDataTableRules.GetIDValue: Integer;
+function TDetalleReservasDataTableRules.GetID_ALBValue: Integer;
 begin
-  result := DataTable.Fields[idx_DetalleReservasID].AsInteger;
+  result := DataTable.Fields[idx_DetalleReservasID_ALB].AsInteger;
 end;
 
-procedure TDetalleReservasDataTableRules.SetIDValue(const aValue: Integer);
+procedure TDetalleReservasDataTableRules.SetID_ALBValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_DetalleReservasID].AsInteger := aValue;
+  DataTable.Fields[idx_DetalleReservasID_ALB].AsInteger := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetIDIsNull: boolean;
+function TDetalleReservasDataTableRules.GetID_ALBIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasID].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasID_ALB].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetIDIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetID_ALBIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasID].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasID_ALB].AsVariant := Null;
 end;
 
 function TDetalleReservasDataTableRules.GetID_EMPRESAValue: Integer;
@@ -1148,319 +1120,277 @@ begin
     DataTable.Fields[idx_DetalleReservasID_EMPRESA].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetID_ALMACENValue: Integer;
+function TDetalleReservasDataTableRules.GetREFERENCIA_ALBValue: String;
 begin
-  result := DataTable.Fields[idx_DetalleReservasID_ALMACEN].AsInteger;
+  result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsString;
 end;
 
-procedure TDetalleReservasDataTableRules.SetID_ALMACENValue(const aValue: Integer);
+procedure TDetalleReservasDataTableRules.SetREFERENCIA_ALBValue(const aValue: String);
 begin
-  DataTable.Fields[idx_DetalleReservasID_ALMACEN].AsInteger := aValue;
+  DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsString := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetID_ALMACENIsNull: boolean;
+function TDetalleReservasDataTableRules.GetREFERENCIA_ALBIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasID_ALMACEN].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetID_ALMACENIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetREFERENCIA_ALBIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasID_ALMACEN].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetNOMBRE_ALMACENValue: String;
+function TDetalleReservasDataTableRules.GetSITUACION_ALBValue: String;
 begin
-  result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].AsString;
+  result := DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsString;
 end;
 
-procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACENValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetSITUACION_ALBValue(const aValue: String);
 begin
-  DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].AsString := aValue;
+  DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsString := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetNOMBRE_ALMACENIsNull: boolean;
+function TDetalleReservasDataTableRules.GetSITUACION_ALBIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasSITUACION_ALB].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetSITUACION_ALBIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetFECHA_RESERVAValue: DateTime;
+function TDetalleReservasDataTableRules.GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime;
 begin
-  result := DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].AsDateTime;
+  result := DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsDateTime;
 end;
 
-procedure TDetalleReservasDataTableRules.SetFECHA_RESERVAValue(const aValue: DateTime);
+procedure TDetalleReservasDataTableRules.SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime);
 begin
-  DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].AsDateTime := aValue;
+  DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsDateTime := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetFECHA_RESERVAIsNull: boolean;
+function TDetalleReservasDataTableRules.GetFECHA_PREVISTA_ENVIO_ALBIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetFECHA_RESERVAIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetCAUSA_RESERVAValue: String;
+function TDetalleReservasDataTableRules.GetID_ALMACEN_ALBValue: Integer;
 begin
-  result := DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].AsString;
+  result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsInteger;
 end;
 
-procedure TDetalleReservasDataTableRules.SetCAUSA_RESERVAValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetID_ALMACEN_ALBValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].AsString := aValue;
+  DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsInteger := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetCAUSA_RESERVAIsNull: boolean;
+function TDetalleReservasDataTableRules.GetID_ALMACEN_ALBIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetCAUSA_RESERVAIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetID_ALMACEN_ALBIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetID_ARTICULOValue: Integer;
+function TDetalleReservasDataTableRules.GetALMACEN_ALBValue: String;
 begin
-  result := DataTable.Fields[idx_DetalleReservasID_ARTICULO].AsInteger;
+  result := DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsString;
 end;
 
-procedure TDetalleReservasDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
+procedure TDetalleReservasDataTableRules.SetALMACEN_ALBValue(const aValue: String);
 begin
-  DataTable.Fields[idx_DetalleReservasID_ARTICULO].AsInteger := aValue;
+  DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsString := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetID_ARTICULOIsNull: boolean;
+function TDetalleReservasDataTableRules.GetALMACEN_ALBIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasID_ARTICULO].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasALMACEN_ALB].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetALMACEN_ALBIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasID_ARTICULO].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetREFERENCIAValue: String;
+function TDetalleReservasDataTableRules.GetID_CLIENTE_ALBValue: Integer;
 begin
-  result := DataTable.Fields[idx_DetalleReservasREFERENCIA].AsString;
+  result := DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsInteger;
 end;
 
-procedure TDetalleReservasDataTableRules.SetREFERENCIAValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetID_CLIENTE_ALBValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_DetalleReservasREFERENCIA].AsString := aValue;
+  DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsInteger := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetREFERENCIAIsNull: boolean;
+function TDetalleReservasDataTableRules.GetID_CLIENTE_ALBIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasREFERENCIA].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetID_CLIENTE_ALBIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasREFERENCIA].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetDESCRIPCIONValue: String;
+function TDetalleReservasDataTableRules.GetCLIENTE_ALBValue: String;
 begin
-  result := DataTable.Fields[idx_DetalleReservasDESCRIPCION].AsString;
+  result := DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsString;
 end;
 
-procedure TDetalleReservasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetCLIENTE_ALBValue(const aValue: String);
 begin
-  DataTable.Fields[idx_DetalleReservasDESCRIPCION].AsString := aValue;
+  DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsString := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetDESCRIPCIONIsNull: boolean;
+function TDetalleReservasDataTableRules.GetCLIENTE_ALBIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasDESCRIPCION].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetCLIENTE_ALBIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasDESCRIPCION].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetFAMILIAValue: String;
+function TDetalleReservasDataTableRules.GetID_ARTValue: Integer;
 begin
-  result := DataTable.Fields[idx_DetalleReservasFAMILIA].AsString;
+  result := DataTable.Fields[idx_DetalleReservasID_ART].AsInteger;
 end;
 
-procedure TDetalleReservasDataTableRules.SetFAMILIAValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetID_ARTValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_DetalleReservasFAMILIA].AsString := aValue;
+  DataTable.Fields[idx_DetalleReservasID_ART].AsInteger := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetFAMILIAIsNull: boolean;
+function TDetalleReservasDataTableRules.GetID_ARTIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasFAMILIA].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasID_ART].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetID_ARTIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasFAMILIA].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasID_ART].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetUNIDAD_MEDIDAValue: String;
+function TDetalleReservasDataTableRules.GetFAMILIA_ARTValue: String;
 begin
-  result := DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].AsString;
+  result := DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsString;
 end;
 
-procedure TDetalleReservasDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetFAMILIA_ARTValue(const aValue: String);
 begin
-  DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].AsString := aValue;
+  DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsString := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
+function TDetalleReservasDataTableRules.GetFAMILIA_ARTIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasFAMILIA_ART].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetFAMILIA_ARTIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetFABRICANTEValue: String;
+function TDetalleReservasDataTableRules.GetREFERENCIA_ARTValue: String;
 begin
-  result := DataTable.Fields[idx_DetalleReservasFABRICANTE].AsString;
+  result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsString;
 end;
 
-procedure TDetalleReservasDataTableRules.SetFABRICANTEValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetREFERENCIA_ARTValue(const aValue: String);
 begin
-  DataTable.Fields[idx_DetalleReservasFABRICANTE].AsString := aValue;
+  DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsString := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetFABRICANTEIsNull: boolean;
+function TDetalleReservasDataTableRules.GetREFERENCIA_ARTIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasFABRICANTE].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetREFERENCIA_ARTIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasFABRICANTE].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetREFERENCIA_FABRValue: String;
+function TDetalleReservasDataTableRules.GetREFERENCIA_PROV_ARTValue: String;
 begin
-  result := DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].AsString;
+  result := DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsString;
 end;
 
-procedure TDetalleReservasDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetREFERENCIA_PROV_ARTValue(const aValue: String);
 begin
-  DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].AsString := aValue;
+  DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsString := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
+function TDetalleReservasDataTableRules.GetREFERENCIA_PROV_ARTIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetCANTIDADValue: Currency;
+function TDetalleReservasDataTableRules.GetDESCRIPCION_ARTValue: String;
 begin
-  result := DataTable.Fields[idx_DetalleReservasCANTIDAD].AsCurrency;
+  result := DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsString;
 end;
 
-procedure TDetalleReservasDataTableRules.SetCANTIDADValue(const aValue: Currency);
+procedure TDetalleReservasDataTableRules.SetDESCRIPCION_ARTValue(const aValue: String);
 begin
-  DataTable.Fields[idx_DetalleReservasCANTIDAD].AsCurrency := aValue;
+  DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsString := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetCANTIDADIsNull: boolean;
+function TDetalleReservasDataTableRules.GetDESCRIPCION_ARTIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasCANTIDAD].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetCANTIDADIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetDESCRIPCION_ARTIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasCANTIDAD].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsVariant := Null;
 end;
 
-function TDetalleReservasDataTableRules.GetID_ALMACEN_RESERVAValue: Integer;
+function TDetalleReservasDataTableRules.GetCANTIDAD_ARTValue: Currency;
 begin
-  result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].AsInteger;
+  result := DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsCurrency;
 end;
 
-procedure TDetalleReservasDataTableRules.SetID_ALMACEN_RESERVAValue(const aValue: Integer);
+procedure TDetalleReservasDataTableRules.SetCANTIDAD_ARTValue(const aValue: Currency);
 begin
-  DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].AsInteger := aValue;
+  DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsCurrency := aValue;
 end;
 
-function TDetalleReservasDataTableRules.GetID_ALMACEN_RESERVAIsNull: boolean;
+function TDetalleReservasDataTableRules.GetCANTIDAD_ARTIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].IsNull;
+  result := DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].IsNull;
 end;
 
-procedure TDetalleReservasDataTableRules.SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetCANTIDAD_ARTIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].AsVariant := Null;
-end;
-
-function TDetalleReservasDataTableRules.GetNOMBRE_ALMACEN_RESERVAValue: String;
-begin
-  result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].AsString;
-end;
-
-procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String);
-begin
-  DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].AsString := aValue;
-end;
-
-function TDetalleReservasDataTableRules.GetNOMBRE_ALMACEN_RESERVAIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].IsNull;
-end;
-
-procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].AsVariant := Null;
-end;
-
-function TDetalleReservasDataTableRules.GetID_EMPRESA_ALMACEN_RESERVAValue: Integer;
-begin
-  result := DataTable.Fields[idx_DetalleReservasID_EMPRESA_ALMACEN_RESERVA].AsInteger;
-end;
-
-procedure TDetalleReservasDataTableRules.SetID_EMPRESA_ALMACEN_RESERVAValue(const aValue: Integer);
-begin
-  DataTable.Fields[idx_DetalleReservasID_EMPRESA_ALMACEN_RESERVA].AsInteger := aValue;
-end;
-
-function TDetalleReservasDataTableRules.GetID_EMPRESA_ALMACEN_RESERVAIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_DetalleReservasID_EMPRESA_ALMACEN_RESERVA].IsNull;
-end;
-
-procedure TDetalleReservasDataTableRules.SetID_EMPRESA_ALMACEN_RESERVAIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_DetalleReservasID_EMPRESA_ALMACEN_RESERVA].AsVariant := Null;
+    DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsVariant := Null;
 end;
 
 

Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm

@@ -255,78 +255,70 @@ object srvInventario: TsrvInventario
             StatementType = stAutoSQL
             ColumnMappings = <
               item
-                DatasetField = 'ID'
-                TableField = 'ID'
+                DatasetField = 'ID_ALB'
+                TableField = 'ID_ALB'
               end
               item
                 DatasetField = 'ID_EMPRESA'
                 TableField = 'ID_EMPRESA'
               end
               item
-                DatasetField = 'ID_ALMACEN'
-                TableField = 'ID_ALMACEN'
+                DatasetField = 'REFERENCIA_ALB'
+                TableField = 'REFERENCIA_ALB'
               end
               item
-                DatasetField = 'NOMBRE_ALMACEN'
-                TableField = 'NOMBRE_ALMACEN'
+                DatasetField = 'SITUACION_ALB'
+                TableField = 'SITUACION_ALB'
               end
               item
-                DatasetField = 'FECHA_RESERVA'
-                TableField = 'FECHA_RESERVA'
+                DatasetField = 'FECHA_PREVISTA_ENVIO_ALB'
+                TableField = 'FECHA_PREVISTA_ENVIO_ALB'
               end
               item
-                DatasetField = 'CAUSA_RESERVA'
-                TableField = 'CAUSA_RESERVA'
+                DatasetField = 'ID_ALMACEN_ALB'
+                TableField = 'ID_ALMACEN_ALB'
               end
               item
-                DatasetField = 'ID_ARTICULO'
-                TableField = 'ID_ARTICULO'
+                DatasetField = 'ALMACEN_ALB'
+                TableField = 'ALMACEN_ALB'
               end
               item
-                DatasetField = 'REFERENCIA'
-                TableField = 'REFERENCIA'
+                DatasetField = 'ID_CLIENTE_ALB'
+                TableField = 'ID_CLIENTE_ALB'
               end
               item
-                DatasetField = 'DESCRIPCION'
-                TableField = 'DESCRIPCION'
+                DatasetField = 'CLIENTE_ALB'
+                TableField = 'CLIENTE_ALB'
               end
               item
-                DatasetField = 'FAMILIA'
-                TableField = 'FAMILIA'
+                DatasetField = 'ID_ART'
+                TableField = 'ID_ART'
               end
               item
-                DatasetField = 'UNIDAD_MEDIDA'
-                TableField = 'UNIDAD_MEDIDA'
+                DatasetField = 'FAMILIA_ART'
+                TableField = 'FAMILIA_ART'
               end
               item
-                DatasetField = 'FABRICANTE'
-                TableField = 'FABRICANTE'
+                DatasetField = 'REFERENCIA_ART'
+                TableField = 'REFERENCIA_ART'
               end
               item
-                DatasetField = 'REFERENCIA_FABR'
-                TableField = 'REFERENCIA_FABR'
+                DatasetField = 'REFERENCIA_PROV_ART'
+                TableField = 'REFERENCIA_PROV_ART'
               end
               item
-                DatasetField = 'CANTIDAD'
-                TableField = 'CANTIDAD'
+                DatasetField = 'DESCRIPCION_ART'
+                TableField = 'DESCRIPCION_ART'
               end
               item
-                DatasetField = 'ID_ALMACEN_RESERVA'
-                TableField = 'ID_ALMACEN_RESERVA'
-              end
-              item
-                DatasetField = 'NOMBRE_ALMACEN_RESERVA'
-                TableField = 'NOMBRE_ALMACEN_RESERVA'
-              end
-              item
-                DatasetField = 'ID_EMPRESA_ALMACEN_RESERVA'
-                TableField = 'ID_EMPRESA_ALMACEN_RESERVA'
+                DatasetField = 'CANTIDAD_ART'
+                TableField = 'CANTIDAD_ART'
               end>
           end>
         Name = 'DetalleReservas'
         Fields = <
           item
-            Name = 'ID'
+            Name = 'ID_ALB'
             DataType = datInteger
           end
           item
@@ -334,73 +326,64 @@ object srvInventario: TsrvInventario
             DataType = datInteger
           end
           item
-            Name = 'ID_ALMACEN'
-            DataType = datInteger
-          end
-          item
-            Name = 'NOMBRE_ALMACEN'
+            Name = 'REFERENCIA_ALB'
             DataType = datString
             Size = 255
           end
           item
-            Name = 'FECHA_RESERVA'
+            Name = 'SITUACION_ALB'
+            DataType = datString
+            Size = 9
+          end
+          item
+            Name = 'FECHA_PREVISTA_ENVIO_ALB'
             DataType = datDateTime
           end
           item
-            Name = 'CAUSA_RESERVA'
-            DataType = datString
-            Size = 2000
-          end
-          item
-            Name = 'ID_ARTICULO'
+            Name = 'ID_ALMACEN_ALB'
             DataType = datInteger
           end
           item
-            Name = 'REFERENCIA'
+            Name = 'ALMACEN_ALB'
             DataType = datString
             Size = 255
           end
           item
-            Name = 'DESCRIPCION'
+            Name = 'ID_CLIENTE_ALB'
+            DataType = datInteger
+          end
+          item
+            Name = 'CLIENTE_ALB'
             DataType = datString
             Size = 255
           end
           item
-            Name = 'FAMILIA'
+            Name = 'ID_ART'
+            DataType = datInteger
+          end
+          item
+            Name = 'FAMILIA_ART'
             DataType = datString
             Size = 255
           end
           item
-            Name = 'UNIDAD_MEDIDA'
+            Name = 'REFERENCIA_ART'
             DataType = datString
             Size = 255
           end
           item
-            Name = 'FABRICANTE'
+            Name = 'REFERENCIA_PROV_ART'
             DataType = datString
             Size = 255
           end
           item
-            Name = 'REFERENCIA_FABR'
+            Name = 'DESCRIPCION_ART'
             DataType = datString
             Size = 255
           end
           item
-            Name = 'CANTIDAD'
+            Name = 'CANTIDAD_ART'
             DataType = datCurrency
-          end
-          item
-            Name = 'ID_ALMACEN_RESERVA'
-            DataType = datInteger
-          end
-          item
-            Name = 'NOMBRE_ALMACEN_RESERVA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'ID_EMPRESA_ALMACEN_RESERVA'
-            DataType = datInteger
           end>
       end>
     JoinDataTables = <>

Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm

@@ -42,7 +42,7 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
     Width = 669
     ExplicitWidth = 669
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 501
+      ExplicitWidth = 358
       object TBXSeparatorItem84: TTBXSeparatorItem [6]
       end
       object TBXItem54: TTBXItem [7]
@@ -88,7 +88,6 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
       DockPos = 264
       Visible = True
       ExplicitLeft = 269
-      ExplicitWidth = 209
       object TBXItem39: TTBXItem
         Action = actTrasladarReservados
       end
@@ -277,11 +276,15 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
     object actCancelarReserva: TAction
       Category = 'Reservas'
       Caption = 'Cancelar reserva'
+      Enabled = False
+      Visible = False
       OnExecute = actCancelarReservaExecute
     end
     object actTrasladarReservados: TAction
       Category = 'Reservas'
       Caption = 'Trasladar al destino'
+      Enabled = False
+      Visible = False
       OnExecute = actTrasladarReservadosExecute
     end
   end

Source/Modulos/Inventario/Views/uEditorInventario.dfm

@@ -83,7 +83,7 @@ inherited fEditorInventario: TfEditorInventario
     Width = 669
     ExplicitWidth = 669
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 669
+      ExplicitWidth = 668
       object TBXSeparatorItem84: TTBXSeparatorItem [6]
       end
       object TBXItem54: TTBXItem [7]
@@ -340,7 +340,9 @@ inherited fEditorInventario: TfEditorInventario
     object actReservar: TAction
       Category = 'Logistica'
       Caption = 'Reservar'
+      Enabled = False
       ImageIndex = 25
+      Visible = False
       OnExecute = actReservarExecute
       OnUpdate = actReservarUpdate
     end

Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm

@@ -45,7 +45,7 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
         item
           Format = '0 Reservados'
           Kind = skSum
-          Column = cxGridViewCANTIDAD
+          Column = cxGridViewCANTIDAD_ART
         end>
       OptionsCustomize.ColumnHidingOnGrouping = False
       OptionsCustomize.GroupBySorting = True
@@ -54,72 +54,58 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
         Visible = False
         VisibleForCustomization = False
       end
-      object cxGridViewFECHA_RESERVA: TcxGridDBColumn
-        Caption = 'Fecha de reserva'
-        DataBinding.FieldName = 'FECHA_RESERVA'
-      end
-      object cxGridViewCAUSA_RESERVA: TcxGridDBColumn
-        Caption = 'Causa'
-        DataBinding.FieldName = 'CAUSA_RESERVA'
-      end
-      object cxGridViewID_ALMACEN: TcxGridDBColumn
-        DataBinding.FieldName = 'ID_ALMACEN'
-        Visible = False
-        VisibleForCustomization = False
-      end
-      object cxGridViewALMACEN: TcxGridDBColumn
-        Caption = 'Almac'#233'n'
-        DataBinding.FieldName = 'NOMBRE_ALMACEN'
-      end
-      object cxGridViewID_ARTICULO: TcxGridDBColumn
-        DataBinding.FieldName = 'ID_ARTICULO'
-        Visible = False
-        VisibleForCustomization = False
-      end
-      object cxGridViewREFERENCIA: TcxGridDBColumn
-        Caption = 'Referencia'
-        DataBinding.FieldName = 'REFERENCIA'
+      object cxGridViewREFERENCIA_ALB: TcxGridDBColumn
+        Caption = 'Ref. Albar'#225'n'
+        DataBinding.FieldName = 'REFERENCIA_ALB'
         SortIndex = 0
         SortOrder = soAscending
       end
-      object cxGridViewDESCRIPCION: TcxGridDBColumn
-        Caption = 'Descripci'#243'n'
-        DataBinding.FieldName = 'DESCRIPCION'
+      object cxGridViewSITUACION_ALB: TcxGridDBColumn
+        Caption = 'Situaci'#243'n'
+        DataBinding.FieldName = 'SITUACION_ALB'
       end
-      object cxGridViewFAMILIA: TcxGridDBColumn
-        Caption = 'Familia'
-        DataBinding.FieldName = 'FAMILIA'
+      object cxGridViewFECHA_PREVISTA_ENVIO_ALB: TcxGridDBColumn
+        Caption = 'Fecha prevista de env'#237'o'
+        DataBinding.FieldName = 'FECHA_PREVISTA_ENVIO_ALB'
       end
-      object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
-        Caption = 'Unidad de medida'
-        DataBinding.FieldName = 'UNIDAD_MEDIDA'
+      object cxGridViewID_ALMACEN_ALB: TcxGridDBColumn
+        DataBinding.FieldName = 'ID_ALMACEN_ALB'
         Visible = False
         VisibleForCustomization = False
       end
-      object cxGridViewFABRICANTE: TcxGridDBColumn
-        Caption = 'Fabricante'
-        DataBinding.FieldName = 'FABRICANTE'
+      object cxGridViewALMACEN_ALB: TcxGridDBColumn
+        Caption = 'Almac'#233'n'
+        DataBinding.FieldName = 'ALMACEN_ALB'
       end
-      object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
-        Caption = 'Ref. fabricante'
-        DataBinding.FieldName = 'REFERENCIA_FABR'
+      object cxGridViewCLIENTE_ALB: TcxGridDBColumn
+        Caption = 'Cliente'
+        DataBinding.FieldName = 'CLIENTE_ALB'
+        Visible = False
+        VisibleForCustomization = False
       end
-      object cxGridViewCANTIDAD: TcxGridDBColumn
+      object cxGridViewFAMILIA_ART: TcxGridDBColumn
+        Caption = 'Familia'
+        DataBinding.FieldName = 'FAMILIA_ART'
+      end
+      object cxGridViewREFERENCIA_ART: TcxGridDBColumn
+        Caption = 'Referencia'
+        DataBinding.FieldName = 'REFERENCIA_ART'
+      end
+      object cxGridViewREFERENCIA_PROV_ART: TcxGridDBColumn
+        Caption = 'Ref. proveedor'
+        DataBinding.FieldName = 'REFERENCIA_PROV_ART'
+      end
+      object cxGridViewDESCRIPCION_ART: TcxGridDBColumn
+        Caption = 'Descripci'#243'n'
+        DataBinding.FieldName = 'DESCRIPCION_ART'
+      end
+      object cxGridViewCANTIDAD_ART: TcxGridDBColumn
         Caption = 'Reservado'
-        DataBinding.FieldName = 'CANTIDAD'
+        DataBinding.FieldName = 'CANTIDAD_ART'
         PropertiesClassName = 'TcxSpinEditProperties'
         Properties.Alignment.Horz = taRightJustify
         FooterAlignmentHorz = taRightJustify
       end
-      object cxGridViewID_ALMACEN_RESERVA: TcxGridDBColumn
-        DataBinding.FieldName = 'ID_ALMACEN_RESERVA'
-        Visible = False
-        VisibleForCustomization = False
-      end
-      object cxGridViewALMACEN_RESERVA: TcxGridDBColumn
-        Caption = 'Resevado para'
-        DataBinding.FieldName = 'NOMBRE_ALMACEN_RESERVA'
-      end
     end
     object cxGridDBTableView1: TcxGridDBTableView [1]
       NavigatorButtons.ConfirmDelete = False
@@ -168,10 +154,15 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
           ExplicitLeft = 383
+          ExplicitWidth = 215
+          Width = 215
         end
       end
     end
   end
+  inherited pnlAgrupaciones: TTBXDockablePanel
+    ExplicitWidth = 607
+  end
   object pnlAlmacenes: TPanel [3]
     Left = 0
     Top = 102

Source/Modulos/Inventario/Views/uViewDetalleReservas.pas

@@ -15,7 +15,7 @@ uses
   cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
   uBizInventario, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, TBX,
   TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uAlmacenesController,
-  uDAInterfaces, cxContainer, cxMaskEdit, cxDropDownEdit;
+  uDAInterfaces, cxContainer, cxMaskEdit, cxDropDownEdit, uCustomView, uViewBase;
 
 type
   IViewDetalleReservas = interface(IViewGrid)
@@ -41,20 +41,17 @@ type
     PngImageList: TPngImageList;
     cxStyleArticuloSinStock: TcxStyle;
     cxGridViewRecID: TcxGridDBColumn;
-    cxGridViewFECHA_RESERVA: TcxGridDBColumn;
-    cxGridViewCAUSA_RESERVA: TcxGridDBColumn;
-    cxGridViewID_ALMACEN: TcxGridDBColumn;
-    cxGridViewALMACEN: TcxGridDBColumn;
-    cxGridViewID_ARTICULO: TcxGridDBColumn;
-    cxGridViewFAMILIA: TcxGridDBColumn;
-    cxGridViewREFERENCIA: TcxGridDBColumn;
-    cxGridViewDESCRIPCION: TcxGridDBColumn;
-    cxGridViewCANTIDAD: TcxGridDBColumn;
-    cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
-    cxGridViewFABRICANTE: TcxGridDBColumn;
-    cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
-    cxGridViewID_ALMACEN_RESERVA: TcxGridDBColumn;
-    cxGridViewALMACEN_RESERVA: TcxGridDBColumn;
+    cxGridViewFECHA_PREVISTA_ENVIO_ALB: TcxGridDBColumn;
+    cxGridViewSITUACION_ALB: TcxGridDBColumn;
+    cxGridViewID_ALMACEN_ALB: TcxGridDBColumn;
+    cxGridViewALMACEN_ALB: TcxGridDBColumn;
+    cxGridViewFAMILIA_ART: TcxGridDBColumn;
+    cxGridViewREFERENCIA_ALB: TcxGridDBColumn;
+    cxGridViewDESCRIPCION_ART: TcxGridDBColumn;
+    cxGridViewCANTIDAD_ART: TcxGridDBColumn;
+    cxGridViewCLIENTE_ALB: TcxGridDBColumn;
+    cxGridViewREFERENCIA_PROV_ART: TcxGridDBColumn;
+    cxGridViewREFERENCIA_ART: TcxGridDBColumn;
     pnlAlmacenes: TPanel;
     eAlmacen: TLabel;
     cxListaAlmacenesObras: TcxComboBox;
@@ -119,11 +116,11 @@ begin
 
   if not VarIsNull(CodigoAlmacen) then
   begin
-     FFiltro.AddItem(cxGridViewID_ALMACEN, foEqual, CodigoAlmacen, CodigoAlmacen);
-     cxGridViewALMACEN.Visible := False;
+     FFiltro.AddItem(cxGridViewID_ALMACEN_ALB, foEqual, CodigoAlmacen, CodigoAlmacen);
+     cxGridViewALMACEN_ALB.Visible := False;
   end
   else
-     cxGridViewALMACEN.Visible := True;
+     cxGridViewALMACEN_ALB.Visible := True;
 end;
 
 procedure TfrViewDetalleReservas.AnadirOtrosFiltros;

Source/Servidor/FactuGES_Server.dpr

@@ -131,8 +131,6 @@ uses
   uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule},
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
   schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
-  schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
-  schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
   schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
   srvImpresiones_Impl in '..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas' {srvImpresiones: TDARemoteService},
@@ -167,7 +165,9 @@ uses
   schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas',
   schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas',
   srvInfVentasArticulo_Impl in '..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas' {srvInfVentasArticulo: TDataAbstractService},
-  srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService};
+  srvInfMargenArticulo_Impl in '..\Modulos\Informe margen por articulo\Servidor\srvInfMargenArticulo_Impl.pas' {srvInfMargenArticulo: TDARemoteService},
+  schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
+  schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>