Presupuestos: unidades de medida en los detalles.

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

Database/scripts/factuges.sql

@@ -968,6 +968,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
     ID_ARTICULO         TIPO_ID,
     CONCEPTO            TIPO_CONCEPTO,
     CANTIDAD            INTEGER,
+	UNIDAD_MEDIDA       VARCHAR(255),
     IMPORTE_UNIDAD      TIPO_IMPORTE,
     DESCUENTO           TIPO_PORCENTAJE,
     IMPORTE_PORTE       TIPO_IMPORTE,
@@ -2747,6 +2748,7 @@ returns (
     referencia varchar(255),
     concepto varchar(2000),
     cantidad integer,
+	unidad_medida varchar(255),
     importe_unidad numeric(11,2),
     descuento float,
     importe_porte numeric(11,2),
@@ -2758,7 +2760,7 @@ begin
 capitulo_actual = -1;
 ID_CAPITULO = -1;
 for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle,
-           pre.id_articulo, articulos.referencia, pre.concepto, pre.cantidad,
+           pre.id_articulo, articulos.referencia, pre.concepto, pre.cantidad, pre.unidad_medida,
            pre.importe_unidad, pre.descuento, pre.importe_porte,
            pre.importe_total, coalesce(pre.visible, 1)
     from presupuestos_cliente_detalles pre
@@ -2766,7 +2768,7 @@ for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle,
     where pre.id_presupuesto = :AID
     order by pre.id_presupuesto, pre.posicion
     into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :ID_ARTICULO,
-         :REFERENCIA, :CONCEPTO, :CANTIDAD, :IMPORTE_UNIDAD, :DESCUENTO,
+         :REFERENCIA, :CONCEPTO, :CANTIDAD, :UNIDAD_MEDIDA, :IMPORTE_UNIDAD, :DESCUENTO,
          :IMPORTE_PORTE, :IMPORTE_TOTAL, :VISIBLE
 do
     begin

Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm

@@ -2,66 +2,32 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
   ParentBiDiMode = False
   OnShow = CustomViewShow
   inherited ToolBar1: TToolBar
-    Height = 73
+    Height = 100
-    ExplicitHeight = 73
+    ExplicitHeight = 100
-    inherited ToolButton3: TToolButton
+    inherited ToolButton14: TToolButton
       Wrap = False
     end
-    inherited ToolButton4: TToolButton
+    inherited ToolButton9: TToolButton [5]
-      Left = 278
+      Left = 121
-      Top = 0
-      ExplicitLeft = 278
-      ExplicitTop = 0
-    end
-    inherited ToolButton14: TToolButton
-      Left = 334
-      Top = 0
-      ExplicitLeft = 334
-      ExplicitTop = 0
-    end
-    inherited FontName: TJvFontComboBox
       Top = 22
+      ExplicitLeft = 121
       ExplicitTop = 22
     end
-    inherited FontSize: TEdit
+    inherited FontName: TJvFontComboBox [6]
+      Left = 266
       Top = 22
-      Width = 42
+      ExplicitLeft = 266
       ExplicitTop = 22
-      ExplicitWidth = 42
     end
     inherited UpDown1: TUpDown
-      Left = 187
+      Left = 411
       Top = 22
       Width = 17
-      ExplicitLeft = 187
+      ExplicitLeft = 411
       ExplicitTop = 22
       ExplicitWidth = 17
     end
     inherited ToolButton13: TToolButton
-      Left = 204
-      Top = 22
-      ExplicitLeft = 204
-      ExplicitTop = 22
-    end
-    inherited ToolButton6: TToolButton
-      Left = 212
-      Top = 22
-      ExplicitLeft = 212
-      ExplicitTop = 22
-    end
-    inherited ToolButton7: TToolButton
-      Left = 278
-      Top = 22
-      ExplicitLeft = 278
-      ExplicitTop = 22
-    end
-    inherited ToolButton8: TToolButton
-      Left = 345
-      Top = 22
-      ExplicitLeft = 345
-      ExplicitTop = 22
-    end
-    inherited ToolButton12: TToolButton
       Left = 0
       Top = 22
       Wrap = True
@@ -69,31 +35,61 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
       ExplicitTop = 22
       ExplicitHeight = 27
     end
-    inherited ToolButton9: TToolButton
+    inherited ToolButton6: TToolButton
       Left = 0
       Top = 49
       ExplicitLeft = 0
       ExplicitTop = 49
     end
-    inherited ToolButton10: TToolButton
+    inherited ToolButton7: TToolButton
-      Left = 145
+      Left = 66
       Top = 49
-      ExplicitLeft = 145
+      ExplicitLeft = 66
       ExplicitTop = 49
     end
-    inherited ToolButton11: TToolButton
+    inherited FontSize: TEdit [11]
-      Left = 270
+      Left = 133
       Top = 49
-      ExplicitLeft = 270
+      Width = 42
+      ExplicitLeft = 133
       ExplicitTop = 49
+      ExplicitWidth = 42
+    end
+    inherited ToolButton11: TToolButton [12]
+      Left = 175
+      Top = 49
+      ExplicitLeft = 175
+      ExplicitTop = 49
+    end
+    inherited ToolButton12: TToolButton [13]
+      Left = 0
+      Top = 49
+      Wrap = True
+      ExplicitLeft = 0
+      ExplicitTop = 49
+      ExplicitHeight = 27
+    end
+    inherited ToolButton10: TToolButton
+      Left = 0
+      Top = 76
+      ExplicitLeft = 0
+      ExplicitTop = 76
+    end
+    inherited ToolButton8: TToolButton [15]
+      Left = 125
+      Top = 76
+      ExplicitLeft = 125
+      ExplicitTop = 76
     end
   end
   inherited cxGrid: TcxGrid
-    Top = 99
+    Top = 126
-    Height = 205
+    Height = 178
-    ExplicitTop = 99
     ExplicitHeight = 205
     inherited cxGridView: TcxGridDBTableView
+      inherited cxGridViewTIPO: TcxGridDBColumn
+        Width = 69
+      end
       object cxGridViewID_ARTICULO: TcxGridDBColumn [4]
         DataBinding.FieldName = 'ID_ARTICULO'
         Visible = False
@@ -110,42 +106,56 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
             Kind = bkEllipsis
           end>
         Properties.OnButtonClick = cxGridViewREFERENCIAPropertiesButtonClick
-        Width = 59
+        BestFitMaxWidth = 50
+        Width = 90
       end
       object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [6]
         Caption = 'Ref. proveedor'
         DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
         PropertiesClassName = 'TcxTextEditProperties'
-        Width = 66
+        BestFitMaxWidth = 50
+        Width = 90
       end
       inherited cxGridViewDESCRIPCION: TcxGridDBColumn
-        Width = 85
+        Width = 298
       end
-      object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn [8]
+      inherited cxGridViewCANTIDAD: TcxGridDBColumn
+        BestFitMaxWidth = 50
+        Width = 91
+      end
+      object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn [9]
         Caption = 'Unid. medida'
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.ImmediatePost = True
         Properties.ImmediateUpdateText = True
-        Properties.OnInitPopup = cxGridViewUNIDAD_MEDIDAPropertiesInitPopup
+        Properties.PostPopupValueOnTab = True
-        Visible = False
+        BestFitMaxWidth = 50
-        Options.CellMerging = True
         Width = 60
       end
       inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
-        Width = 50
+        BestFitMaxWidth = 50
+        Width = 80
       end
       inherited cxGridViewDESCUENTO: TcxGridDBColumn
+        BestFitMaxWidth = 50
         HeaderAlignmentHorz = taRightJustify
         Width = 25
       end
+      inherited cxGridViewIMPORTENETO: TcxGridDBColumn
+        BestFitMaxWidth = 50
+      end
+      inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
+        BestFitMaxWidth = 50
+      end
       inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
-        Width = 50
+        BestFitMaxWidth = 50
+        Width = 77
       end
     end
   end
   inherited TBXDock1: TTBXDock
-    Top = 73
+    Top = 100
-    ExplicitTop = 73
+    ExplicitWidth = 451
     inherited TBXToolbar1: TTBXToolbar
       inherited TBXSubmenuItem1: TTBXSubmenuItem
         object TBXSeparatorItem8: TTBXSeparatorItem [4]

Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas

@@ -34,7 +34,6 @@ type
     procedure OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
     procedure OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
     procedure CustomViewShow(Sender: TObject);
-    procedure cxGridViewUNIDAD_MEDIDAPropertiesInitPopup(Sender: TObject);
     procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject;
       AButtonIndex: Integer);
     procedure actBuscarArticuloExecute(Sender: TObject);
@@ -42,6 +41,8 @@ type
     procedure actDetalleCopiarExecute(Sender: TObject);
     procedure actDetallePegarExecute(Sender: TObject);
     procedure actDetalleCortarExecute(Sender: TObject);
+  private
+    procedure RecuperarListaUnidadesMedida;  
   protected
     procedure AnadirArticulosInterno; virtual;
     procedure RellenarArticulosInterno; virtual;
@@ -92,6 +93,28 @@ end;
 procedure TfrViewDetallesArticulos.CustomViewShow(Sender: TObject);
 begin
   inherited;
+
+  with DADataSource.DataTable do
+  begin
+    cxGridView.BeginUpdate;
+    try
+      if Assigned(FindField('UNIDAD_MEDIDA')) then
+      begin
+        cxGridViewUNIDAD_MEDIDA.DataBinding.FieldName := 'UNIDAD_MEDIDA';
+        cxGridViewUNIDAD_MEDIDA.Visible := True;
+        cxGridViewUNIDAD_MEDIDA.VisibleForCustomization := True;
+        RecuperarListaUnidadesMedida;
+      end
+      else begin
+        cxGridViewUNIDAD_MEDIDA.DataBinding.FieldName := '';
+        cxGridViewUNIDAD_MEDIDA.Visible := False;
+        cxGridViewUNIDAD_MEDIDA.VisibleForCustomization := False;
+      end;
+    finally
+      cxGridView.EndUpdate;
+    end;
+  end;
+
   SeleccionarRowActual;
 end;
 
@@ -102,31 +125,6 @@ begin
   actBuscarArticulo.Execute;
 end;
 
-procedure TfrViewDetallesArticulos.cxGridViewUNIDAD_MEDIDAPropertiesInitPopup(
-  Sender: TObject);
-var
-  AUnidController : IUnidadesMedidaController;
-begin
-  inherited;
-  with TcxComboBoxProperties(cxGridViewUNIDAD_MEDIDA.Properties).Items do
-  begin
-    if (Count = 0) then
-    begin
-      ShowHourglassCursor;
-      BeginUpdate;
-      AUnidController := TUnidadesMedidaController.Create;      
-      try
-        Clear;
-        AddStrings(AUnidController.DarListaUnidadesMedida);
-      finally
-        EndUpdate;
-        AUnidController := NIL;
-        HideHourglassCursor;
-      end;
-    end;
-  end;
-end;
-
 function TfrViewDetallesArticulos.EsTipoEditable(
   AItem: TcxCustomGridTableItem): Boolean;
 var
@@ -186,6 +184,30 @@ begin
   end;
 end;
 
+procedure TfrViewDetallesArticulos.RecuperarListaUnidadesMedida;
+var
+  AUnidController : IUnidadesMedidaController;
+begin
+  inherited;
+  with TcxComboBoxProperties(cxGridViewUNIDAD_MEDIDA.Properties).Items do
+  begin
+    if (Count = 0) then
+    begin
+      ShowHourglassCursor;
+      BeginUpdate;
+      AUnidController := TUnidadesMedidaController.Create;
+      try
+        Clear;
+        AddStrings(AUnidController.DarListaUnidadesMedida);
+      finally
+        EndUpdate;
+        AUnidController := NIL;
+        HideHourglassCursor;
+      end;
+    end;
+  end;
+end;
+
 procedure TfrViewDetallesArticulos.RellenarArticulosInterno;
 begin
   (Controller as IControllerDetallesArticulos).AnadirArticulos(Detalles, False);

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

@@ -271,6 +271,13 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         Alignment = taRightJustify
         DictionaryEntry = 'PresupuestosCliente_Detalles_CANTIDAD'
       end
+      item
+        Name = 'UNIDAD_MEDIDA'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Unidad de medida'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_UNIDAD_MEDIDA'
+      end
       item
         Name = 'IMPORTE_UNIDAD'
         DataType = datCurrency
@@ -314,11 +321,15 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
         Name = 'REFERENCIA'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PresupuestosCliente_Detalles_REFERENCIA'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA'
       end
       item
         Name = 'REFERENCIA_PROVEEDOR'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR'
+        DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR'
       end>
     Params = <>
     MasterMappingMode = mmWhere

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

@@ -9,8 +9,8 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_PresupuestosCliente = '{94236A84-1D4D-4C03-8863-F1A5ABC6DE7E}';
+  RID_PresupuestosCliente = '{D3A7E867-7723-4779-B542-60D5E98F8E76}';
-  RID_PresupuestosCliente_Detalles = '{9FAA114D-94F9-4451-89F0-067F52ED606D}';
+  RID_PresupuestosCliente_Detalles = '{6E3FCEDE-6365-4A46-A5C1-DD370767BDE4}';
 
   { Data table names }
   nme_PresupuestosCliente = 'PresupuestosCliente';
@@ -85,6 +85,7 @@ const
   fld_PresupuestosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
   fld_PresupuestosCliente_DetallesCONCEPTO = 'CONCEPTO';
   fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD';
+  fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
   fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
   fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
   fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE';
@@ -101,19 +102,20 @@ const
   idx_PresupuestosCliente_DetallesTIPO_DETALLE = 3;
   idx_PresupuestosCliente_DetallesCONCEPTO = 4;
   idx_PresupuestosCliente_DetallesCANTIDAD = 5;
-  idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 6;
+  idx_PresupuestosCliente_DetallesUNIDAD_MEDIDA = 6;
-  idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 7;
+  idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7;
-  idx_PresupuestosCliente_DetallesVISIBLE = 8;
+  idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8;
-  idx_PresupuestosCliente_DetallesID_ARTICULO = 9;
+  idx_PresupuestosCliente_DetallesVISIBLE = 9;
-  idx_PresupuestosCliente_DetallesDESCUENTO = 10;
+  idx_PresupuestosCliente_DetallesID_ARTICULO = 10;
-  idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 11;
+  idx_PresupuestosCliente_DetallesDESCUENTO = 11;
-  idx_PresupuestosCliente_DetallesREFERENCIA = 12;
+  idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 12;
-  idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 13;
+  idx_PresupuestosCliente_DetallesREFERENCIA = 13;
+  idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 14;
 
 type
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{79249950-0D0F-48D8-8C75-C6FA49610190}']
+  ['{1C22CC0C-D0FB-4720-8528-8455BBAFA3B0}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -484,7 +486,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{E028BA0A-DF1D-4E68-BAA8-5FE7F1E053F4}']
+  ['{1EBF41FD-FA98-4313-B352-5903FF6C09AC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -510,6 +512,10 @@ type
     procedure SetCANTIDADValue(const aValue: Integer);
     function GetCANTIDADIsNull: Boolean;
     procedure SetCANTIDADIsNull(const aValue: Boolean);
+    function GetUNIDAD_MEDIDAValue: String;
+    procedure SetUNIDAD_MEDIDAValue(const aValue: String);
+    function GetUNIDAD_MEDIDAIsNull: Boolean;
+    procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
     function GetIMPORTE_UNIDADValue: Currency;
     procedure SetIMPORTE_UNIDADValue(const aValue: Currency);
     function GetIMPORTE_UNIDADIsNull: Boolean;
@@ -557,6 +563,8 @@ type
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
     property CANTIDAD: Integer 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;
     property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
     property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
@@ -604,6 +612,10 @@ type
     procedure SetCANTIDADValue(const aValue: Integer); virtual;
     function GetCANTIDADIsNull: Boolean; virtual;
     procedure SetCANTIDADIsNull(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 GetIMPORTE_UNIDADValue: Currency; virtual;
     procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
     function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@@ -650,6 +662,8 @@ type
     property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
     property CANTIDAD: Integer 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;
     property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
     property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
     property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
@@ -1457,6 +1471,27 @@ begin
     DataTable.Fields[idx_PresupuestosCliente_DetallesCANTIDAD].AsVariant := Null;
 end;
 
+function TPresupuestosCliente_DetallesDataTableRules.GetUNIDAD_MEDIDAValue: String;
+begin
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesUNIDAD_MEDIDA].AsString;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PresupuestosCliente_DetallesUNIDAD_MEDIDA].AsString := aValue;
+end;
+
+function TPresupuestosCliente_DetallesDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosCliente_DetallesUNIDAD_MEDIDA].IsNull;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosCliente_DetallesUNIDAD_MEDIDA].AsVariant := Null;
+end;
+
 function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency;
 begin
   result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD].AsCurrency;

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

@@ -9,13 +9,13 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_PresupuestosClienteDelta = '{29052B55-642A-49D3-B556-B60088C1133B}';
+  RID_PresupuestosClienteDelta = '{DCB50BF3-1A19-4576-9518-052B46AA131D}';
-  RID_PresupuestosCliente_DetallesDelta = '{5223CE51-3EA9-4F61-BA3B-6D7B6718C52C}';
+  RID_PresupuestosCliente_DetallesDelta = '{7F662AE1-222D-4747-8A74-1B5A652617CD}';
 
 type
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{29052B55-642A-49D3-B556-B60088C1133B}']
+  ['{DCB50BF3-1A19-4576-9518-052B46AA131D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -389,7 +389,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{5223CE51-3EA9-4F61-BA3B-6D7B6718C52C}']
+  ['{7F662AE1-222D-4747-8A74-1B5A652617CD}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
@@ -397,6 +397,7 @@ type
     function GetOldTIPO_DETALLEValue : String;
     function GetOldCONCEPTOValue : String;
     function GetOldCANTIDADValue : Integer;
+    function GetOldUNIDAD_MEDIDAValue : String;
     function GetOldIMPORTE_UNIDADValue : Currency;
     function GetOldIMPORTE_TOTALValue : Currency;
     function GetOldVISIBLEValue : Integer;
@@ -413,6 +414,7 @@ type
     property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
     property OldCONCEPTO : String read GetOldCONCEPTOValue;
     property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+    property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
     property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
     property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
     property OldVISIBLE : Integer read GetOldVISIBLEValue;
@@ -464,6 +466,12 @@ type
     function GetOldCANTIDADIsNull: Boolean; virtual;
     procedure SetCANTIDADValue(const aValue: Integer); virtual;
     procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
+    function GetUNIDAD_MEDIDAValue: String; virtual;
+    function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
+    function GetOldUNIDAD_MEDIDAValue: String; virtual;
+    function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
+    procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
+    procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
     function GetIMPORTE_UNIDADValue: Currency; virtual;
     function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
     function GetOldIMPORTE_UNIDADValue: Currency; virtual;
@@ -538,6 +546,10 @@ type
     property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
     property OldCANTIDAD : Integer 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;
+    property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
+    property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
     property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
     property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
     property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@@ -1716,6 +1728,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCANTIDAD] := Null;
 end;
 
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA]);
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA]);
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA] := aValue;
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesUNIDAD_MEDIDA] := Null;
+end;
+
 function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD];

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm

@@ -358,6 +358,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
               item
                 DatasetField = 'VISIBLE'
                 TableField = 'VISIBLE'
+              end
+              item
+                DatasetField = 'UNIDAD_MEDIDA'
+                TableField = 'UNIDAD_MEDIDA'
               end>
           end>
         Name = 'Informe_Capitulos_Detalles'
@@ -402,6 +406,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
             Name = 'CANTIDAD'
             DataType = datInteger
           end
+          item
+            Name = 'UNIDAD_MEDIDA'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'IMPORTE_UNIDAD'
             DataType = datCurrency

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

@@ -311,14 +311,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'E_DETALLES.ID_PRESUPUESTO,'#10'    PRESUPUESTOS_CLIENTE_DETALLES.POS' +
               'ICION, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10'    PRESUPUES' +
               'TOS_CLIENTE_DETALLES.CONCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CAN' +
-              'TIDAD,'#10'    PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPU' +
+              'TIDAD,'#10'    PRESUPUESTOS_CLIENTE_DETALLES.UNIDAD_MEDIDA,'#10'    PRES' +
-              'ESTOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10'    PRESUPUESTOS_CLIENTE_D' +
+              'UPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_D' +
-              'ETALLES.VISIBLE,'#10#10'    PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO,' +
+              'ETALLES.IMPORTE_TOTAL,'#10'    PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE' +
-              ' PRESUPUESTOS_CLIENTE_DETALLES.DESCUENTO,'#10'    PRESUPUESTOS_CLIEN' +
+              ','#10#10'    PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO, PRESUPUESTOS_C' +
-              'TE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA, ARTICULOS.REFER' +
+              'LIENTE_DETALLES.DESCUENTO,'#10'    PRESUPUESTOS_CLIENTE_DETALLES.IMP' +
-              'ENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PRESUPUESTOS_CLIENTE_DE' +
+              'ORTE_PORTE, ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as R' +
-              'TALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_A' +
+              'EFERENCIA_PROVEEDOR'#10#10'FROM PRESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOI' +
-              'RTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10
+              'N ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO = ARTIC' +
+              'ULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -378,6 +379,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
                 DatasetField = 'REFERENCIA_PROVEEDOR'
                 TableField = '<unknown>'
                 SQLOrigin = 'REFERENCIA_PROVEEDOR'
+              end
+              item
+                DatasetField = 'UNIDAD_MEDIDA'
+                TableField = 'UNIDAD_MEDIDA'
               end>
           end>
         Name = 'PresupuestosCliente_Detalles'
@@ -417,6 +422,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             DataType = datInteger
             DictionaryEntry = 'PresupuestosCliente_Detalles_CANTIDAD'
           end
+          item
+            Name = 'UNIDAD_MEDIDA'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'PresupuestosCliente_Detalles_UNIDAD_MEDIDA'
+          end
           item
             Name = 'IMPORTE_UNIDAD'
             DataType = datCurrency
@@ -451,11 +462,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             Name = 'REFERENCIA'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA'
           end
           item
             Name = 'REFERENCIA_PROVEEDOR'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR'
           end>
       end>
     JoinDataTables = <>
@@ -763,6 +776,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
       end
       item
         Params = <
+          item
+            Name = 'UNIDAD_MEDIDA'
+            Value = ''
+          end
           item
             Name = 'ID'
             DataType = datAutoInc
@@ -820,11 +837,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
             TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES'
             SQL = 
               'INSERT'#10'  INTO PRESUPUESTOS_CLIENTE_DETALLES'#10'    (ID, ID_PRESUPUE' +
-              'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10'     IMPORTE_UN' +
+              'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10'     UNIDAD_MED' +
-              'IDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10'     DESCUENTO, IMPO' +
+              'IDA,'#10'     IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10 +
-              'RTE_PORTE)'#10'  VALUES'#10'    (:ID, :ID_PRESUPUESTO, :POSICION, :TIPO_' +
+              '     DESCUENTO, IMPORTE_PORTE)'#10'  VALUES'#10'    (:ID, :ID_PRESUPUEST' +
-              'DETALLE, :CONCEPTO,'#10'     :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TO' +
+              'O, :POSICION, :TIPO_DETALLE, :CONCEPTO,'#10'     :CANTIDAD, :UNIDAD_' +
-              'TAL, :VISIBLE, '#10'     :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10
+              'MEDIDA, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10'     :ID_ARTI' +
+              'CULO, :DESCUENTO, :IMPORTE_PORTE)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -852,6 +870,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
       end
       item
         Params = <
+          item
+            Name = 'UNIDAD_MEDIDA'
+            Value = ''
+          end
           item
             Name = 'ID'
             DataType = datAutoInc
@@ -915,10 +937,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               'UPDATE PRESUPUESTOS_CLIENTE_DETALLES'#10'  SET '#10'    ID = :ID,'#10'    ID' +
               '_PRESUPUESTO = :ID_PRESUPUESTO, '#10'    POSICION = :POSICION, '#10'    ' +
               'TIPO_DETALLE = :TIPO_DETALLE, '#10'    CONCEPTO = :CONCEPTO, '#10'    CA' +
-              'NTIDAD = :CANTIDAD, '#10'    IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10'    ' +
+              'NTIDAD = :CANTIDAD, '#10'    UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10'    IMP' +
-              'IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10'    VISIBLE = :VISIBLE, '#10'    ID' +
+              'ORTE_UNIDAD = :IMPORTE_UNIDAD, '#10'    IMPORTE_TOTAL = :IMPORTE_TOT' +
-              '_ARTICULO = :ID_ARTICULO, '#10'    DESCUENTO = :DESCUENTO, '#10'    IMPO' +
+              'AL, '#10'    VISIBLE = :VISIBLE, '#10'    ID_ARTICULO = :ID_ARTICULO, '#10' ' +
-              'RTE_PORTE = :IMPORTE_PORTE'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+              '   DESCUENTO = :DESCUENTO, '#10'    IMPORTE_PORTE = :IMPORTE_PORTE'#10' ' +
+              ' WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1215,6 +1238,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
         Name = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'PresupuestosCliente_Detalles_UNIDAD_MEDIDA'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Unidad de medida'
       end>
     Left = 48
     Top = 152

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

@@ -44,6 +44,10 @@
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
+      
+      
+      
+      
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -52,11 +56,11 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Articulos_view.dcp" />
+    <DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
-    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
-    <DCCReference Include="..\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="..\..\..\Servidor\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="..\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
     <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
       <Form>fEditorElegirArticulosPresupuestoCliente</Form>
       <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>

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

@@ -183,37 +183,21 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
           Height = 51
           ExplicitWidth = 735
           ExplicitHeight = 51
+          inherited ToolButton2: TToolButton
+            ExplicitLeft = 165
+          end
           inherited ToolButton3: TToolButton
-            Wrap = False
+            ExplicitLeft = 279
           end
-          inherited ToolButton4: TToolButton
+          inherited ToolButton9: TToolButton
-            Left = 278
-            Top = 0
-            ExplicitLeft = 278
-            ExplicitTop = 0
-          end
-          inherited ToolButton14: TToolButton
-            Left = 334
-            Top = 0
             Wrap = False
-            ExplicitLeft = 334
-            ExplicitTop = 0
           end
           inherited FontName: TJvFontComboBox
-            Left = 399
-            Top = 0
-            ExplicitLeft = 399
-            ExplicitTop = 0
-          end
-          inherited FontSize: TEdit
             Left = 544
             Top = 0
-            Width = 72
             ExplicitLeft = 544
-            ExplicitTop = 0
-            ExplicitWidth = 72
           end
-          inherited ToolButton13: TToolButton [7]
+          inherited ToolButton13: TToolButton
             Left = 0
             Top = 0
             Wrap = True
@@ -221,52 +205,56 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
             ExplicitTop = 0
             ExplicitHeight = 27
           end
-          inherited UpDown1: TUpDown [8]
+          inherited ToolButton6: TToolButton
             Left = 0
             Top = 27
             ExplicitLeft = 0
             ExplicitTop = 27
           end
-          inherited ToolButton6: TToolButton
-            Left = 17
-            Top = 27
-            ExplicitLeft = 17
-            ExplicitTop = 27
-          end
           inherited ToolButton7: TToolButton
-            Left = 83
+            Left = 66
             Top = 27
-            ExplicitLeft = 83
+            ExplicitLeft = 66
             ExplicitTop = 27
           end
-          inherited ToolButton8: TToolButton
+          inherited FontSize: TEdit
-            Left = 150
+            Left = 133
             Top = 27
-            ExplicitLeft = 150
+            Width = 72
+            ExplicitLeft = 133
             ExplicitTop = 27
+            ExplicitWidth = 72
           end
-          inherited ToolButton12: TToolButton
+          inherited UpDown1: TUpDown
-            Left = 233
+            Left = 205
             Top = 27
-            ExplicitLeft = 233
+            ExplicitLeft = 205
-            ExplicitTop = 27
-          end
-          inherited ToolButton9: TToolButton
-            Left = 241
-            Top = 27
-            ExplicitLeft = 241
-            ExplicitTop = 27
-          end
-          inherited ToolButton10: TToolButton
-            Left = 386
-            Top = 27
-            ExplicitLeft = 386
             ExplicitTop = 27
           end
           inherited ToolButton11: TToolButton
-            Left = 511
+            Left = 222
             Top = 27
-            ExplicitLeft = 511
+            ExplicitLeft = 222
+            ExplicitTop = 27
+          end
+          inherited ToolButton12: TToolButton
+            Left = 363
+            Top = 27
+            Wrap = False
+            ExplicitLeft = 363
+            ExplicitTop = 27
+            ExplicitHeight = 22
+          end
+          inherited ToolButton10: TToolButton
+            Left = 371
+            Top = 27
+            ExplicitLeft = 371
+            ExplicitTop = 27
+          end
+          inherited ToolButton8: TToolButton
+            Left = 496
+            Top = 27
+            ExplicitLeft = 496
             ExplicitTop = 27
           end
         end

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

@@ -1,94 +1,124 @@
 inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
+  Width = 669
   inherited ToolBar1: TToolBar
-    Height = 95
+    Width = 669
-    inherited ToolButton3: TToolButton [1]
+    Height = 73
+    inherited ToolButton4: TToolButton [1]
       Left = 109
-      Wrap = False
+      Top = 0
       ExplicitLeft = 109
+      ExplicitTop = 0
     end
     inherited ToolButton2: TToolButton [2]
-      Left = 164
+      Left = 165
-      ExplicitLeft = 164
     end
-    inherited ToolButton12: TToolButton [3]
+    inherited ToolButton3: TToolButton [3]
-      Left = 0
+      Left = 279
+      Wrap = False
+    end
+    inherited ToolButton14: TToolButton
+      Left = 334
+      Top = 0
+      ExplicitLeft = 334
+      ExplicitTop = 0
+    end
+    inherited ToolButton9: TToolButton
+      Left = 399
       Top = 0
       Wrap = True
-      ExplicitLeft = 0
+      ExplicitLeft = 399
       ExplicitTop = 0
-      ExplicitHeight = 27
     end
-    inherited ToolButton4: TToolButton [4]
+    inherited FontName: TJvFontComboBox
-      Top = 27
-      ExplicitTop = 27
-    end
-    inherited ToolButton14: TToolButton [5]
-      Top = 27
-      Wrap = False
-      ExplicitTop = 27
-    end
-    inherited ToolButton10: TToolButton [6]
-      Left = 121
-      Top = 27
-      Wrap = True
-      ExplicitLeft = 121
-      ExplicitTop = 27
-    end
-    inherited FontName: TJvFontComboBox [7]
-      Top = 49
-      ExplicitTop = 49
-    end
-    inherited UpDown1: TUpDown [8]
-      Left = 145
-      Top = 49
-      ExplicitLeft = 145
-      ExplicitTop = 49
-    end
-    inherited ToolButton6: TToolButton
-      Left = 162
-      Top = 49
-      ExplicitLeft = 162
-      ExplicitTop = 49
-    end
-    inherited ToolButton11: TToolButton [10]
-      Left = 228
-      Top = 49
-      Wrap = True
-      ExplicitLeft = 228
-      ExplicitTop = 49
-    end
-    inherited ToolButton9: TToolButton [11]
       Left = 0
-      Top = 71
       ExplicitLeft = 0
-      ExplicitTop = 71
     end
-    inherited FontSize: TEdit [12]
+    inherited ToolButton13: TToolButton [7]
-      Top = 71
+      Left = 145
-      ExplicitTop = 71
+      Wrap = False
+      ExplicitLeft = 145
+      ExplicitHeight = 22
     end
-    inherited ToolButton8: TToolButton [13]
+    inherited ToolButton6: TToolButton [8]
-      Left = 187
+      Left = 153
-      Top = 71
+      Top = 22
-      ExplicitLeft = 187
+      ExplicitLeft = 153
-      ExplicitTop = 71
+      ExplicitTop = 22
     end
-    inherited ToolButton13: TToolButton [14]
+    inherited ToolButton7: TToolButton [9]
-      Left = 270
+      Left = 219
-      Top = 71
+      Top = 22
-      ExplicitLeft = 270
+      ExplicitLeft = 219
-      ExplicitTop = 71
+      ExplicitTop = 22
     end
-    inherited ToolButton7: TToolButton [15]
+    inherited FontSize: TEdit [10]
-      Top = 71
+      Left = 286
-      ExplicitTop = 71
+      Top = 22
+      ExplicitLeft = 286
+      ExplicitTop = 22
+    end
+    inherited UpDown1: TUpDown [11]
+      Left = 328
+      ExplicitLeft = 328
+    end
+    inherited ToolButton11: TToolButton
+      Left = 345
+      Top = 22
+      ExplicitLeft = 345
+      ExplicitTop = 22
+    end
+    inherited ToolButton12: TToolButton
+      Top = 22
+      ExplicitTop = 22
+    end
+    inherited ToolButton10: TToolButton
+      Top = 49
+      ExplicitTop = 49
+    end
+    inherited ToolButton8: TToolButton
+      Top = 49
+      ExplicitTop = 49
     end
   end
   inherited cxGrid: TcxGrid
-    Top = 121
+    Top = 99
-    Height = 183
+    Width = 669
+    Height = 205
+    ExplicitTop = 126
+    ExplicitHeight = 178
+    inherited cxGridView: TcxGridDBTableView
+      inherited cxGridViewTIPO: TcxGridDBColumn
+        Width = 75
+      end
+      inherited cxGridViewREFERENCIA: TcxGridDBColumn
+        Width = 89
+      end
+      inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
+        Width = 82
+      end
+      inherited cxGridViewDESCRIPCION: TcxGridDBColumn
+        Width = 315
+      end
+      inherited cxGridViewCANTIDAD: TcxGridDBColumn
+        Width = 94
+      end
+      inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
+        DataBinding.FieldName = 'UNIDAD_MEDIDA'
+      end
+      inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
+        Width = 70
+      end
+      inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
+        Width = 69
+      end
+    end
   end
   inherited TBXDock1: TTBXDock
-    Top = 95
+    Top = 73
+    Width = 669
+    ExplicitTop = 100
+    inherited TBXToolbar1: TTBXToolbar
+      ExplicitWidth = 669
+    end
   end
 end