Se adapta el programa para que se pueda establecer cada linea de detalle si es valorado o no

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@18 9a1d36f3-7752-2d40-8ccb-50eb49674c68

Base/uBizImportesDetalleBase.pas

@@ -13,6 +13,9 @@ const
   VISIBLE_TRUE = 'S';
   VISIBLE_FALSE = 'N';
 
+  VALORADO_TRUE = 'S';
+  VALORADO_FALSE = 'N';
+
   fld_NUMCONCEPTO = 'NUMCONCEPTO';
   fld_POSICION = 'POSICION';
   fld_TIPODETALLE = 'TIPO';
@@ -23,6 +26,7 @@ const
   fld_DESCRIPCION = 'DESCRIPCION';
   fld_PUNTOS = 'PUNTOS';
   fld_IMPORTEPUNTOS = 'IMPORTEPUNTOS';
+  fld_VALORADO = 'VALORADO';
 
 type
   { IMPORTANTE **********************************************************
@@ -53,6 +57,10 @@ type
     ['{6BA5B3BF-2E92-4465-A328-60F90F7EA3D2}']
   end;
 
+  IBizValoradoDetalle = interface(IDAStronglyTypedDataTable)
+    ['{4529F4B3-DD56-4CDC-8E40-84F5BA26E886}']
+  end;
+
   TBizCantidadFieldRules = class(TDAFieldRules)
   protected
     procedure OnChange(Sender: TDACustomField); override;
@@ -83,6 +91,11 @@ type
     procedure OnChange(Sender: TDACustomField); override;
   end;
 
+  TBizValoradoFieldRules = class(TDAFieldRules)
+  protected
+    procedure OnChange(Sender: TDACustomField); override;
+  end;
+
 function DarMaximoNumConcepto(aDataTable : TDADataTable): integer;
 function DarMaximaPosicion(aDataTable : TDADataTable): integer;
 procedure IntercambiarPosiciones(aDataTable : TDADataTable; Pos1, Pos2 : Integer);
@@ -98,6 +111,7 @@ function DarTotalDetalles(aDataTable : TDADataTable; TieneSubtotales : Boolean;
 procedure RellenarImportePuntosEnCapitulo(aDataTable : TDADataTable);
 
 procedure RellenarVisibleEnCapitulo(aDataTable : TDADataTable);
+procedure RellenarValoradoEnCapitulo(aDataTable : TDADataTable);
 
 procedure RecalcularTodo(aDataTable : TDADataTable);
 
@@ -862,6 +876,84 @@ begin
   end;
 end;
 
+procedure RellenarValoradoEnCapitulo(aDataTable : TDADataTable);
+{ Rellena VALORADO de todos los conceptos de un capítulo. El cursor
+  está puesto en la fila que es el título. }
+var
+  ABookmark : Pointer;
+  APosicion : Integer;
+  MaxPos : Integer;
+  TipoField : TDAField;
+  PosicionField : TDAField;
+  ValoradoField : TDAField;
+  ACursor: TCursor;
+  EnEdicion : Boolean;
+  EsValorado : String;
+begin
+  if not Assigned(aDataTable) then
+    raise Exception.Create('Tabla no asignada (RellenarVisibleEnCapitulo)');
+
+  if aDataTable.RecordCount < 1 then
+    Exit;
+
+  PosicionField := aDataTable.FindField(fld_POSICION);
+  if not Assigned(PosicionField) then
+    raise Exception.Create('Campo POSICION no encontrado (RellenarValoradoEnCapitulo)');
+
+  TipoField := aDataTable.FindField(fld_TIPODETALLE);
+  if not Assigned(TipoField) then
+    raise Exception.Create('Campo TIPO no encontrado (RellenarValoradoEnCapitulo)');
+
+  ValoradoField := aDataTable.FindField(fld_VALORADO);
+  if not Assigned(ValoradoField) then
+    raise Exception.Create('Campo VALORADO no encontrado (RellenarValoradoEnCapitulo)');
+
+  ABookmark := aDataTable.GetBookMark;
+  ACursor := Screen.Cursor;
+  Screen.Cursor := crHourGlass;
+  aDataTable.DisableControls;
+
+  EnEdicion := (aDataTable.State in dsEditModes);
+
+  if EnEdicion then
+    aDataTable.Post;
+
+  APosicion := PosicionField.Value + 1; // La posición siguiente a la fila de TITULO
+  EsValorado := ValoradoField.AsString;  // Valor de VALORADO de la fila de TITULO
+
+  try
+    MaxPos := DarMaximaPosicion(aDataTable);
+    while (APosicion <= MaxPos) do
+    begin
+      if aDataTable.Locate(fld_POSICION, APosicion, []) then
+      begin
+        if (TipoField.AsString = TIPODETALLE_CONCEPTO) then
+        begin
+          aDataTable.Edit;
+          aDataTable.DisableEventHandlers;  // Para que no salten otros eventos
+          try
+            ValoradoField.AsString := EsValorado;
+          finally
+            aDataTable.EnableEventHandlers;
+          end;
+          aDataTable.Post;
+          Inc(APosicion);
+        end
+        else
+          break;    // Es una fila de SUBTOTAL o de TITULO
+      end
+      else
+        raise Exception.Create('Hay un hueco en la numeración de posiciones');
+    end;
+  finally
+    aDataTable.GotoBookmark(ABookmark);
+    aDataTable.EnableControls;
+    Screen.Cursor := ACursor;
+    if EnEdicion then
+      aDataTable.Edit;
+  end;
+end;
+
 { TBizCantidadFieldRules }
 
 procedure TBizCantidadFieldRules.OnChange(Sender: TDACustomField);
@@ -1019,6 +1111,28 @@ begin
   end;
 end;
 
+{ TBizValoradoFieldRules }
+
+procedure TBizValoradoFieldRules.OnChange(Sender: TDACustomField);
+var
+  aDetalle : IBizValoradoDetalle;
+  aParche : IParche;
+begin
+  inherited;
+
+  { PARCHE ********************************** }
+  if Supports(DataTable, IParche, aParche) and
+    not (aParche.PuedoLanzarEvento) then
+    Exit;
+
+  if Supports(DataTable, IBizValoradoDetalle, aDetalle) then
+  begin
+    if Assigned(aDetalle.DataTable.FindField(fld_TIPODETALLE)) then
+      if (aDetalle.DataTable.FindField(fld_TIPODETALLE).AsString = TIPODETALLE_TITULO) then
+        RellenarValoradoEnCapitulo(aDetalle.DataTable);
+  end;
+end;
+
 initialization
   RegisterFieldRules('Client.Field.Cantidad', TBizCantidadFieldRules);
   RegisterFieldRules('Client.Field.ImporteUnidad', TBizImporteUnidadFieldRules);
@@ -1028,6 +1142,7 @@ initialization
   RegisterFieldRules('Client.Field.Puntos', TBizPuntosFieldRules);
 
   RegisterFieldRules('Client.Field.Visible', TBizVisibleFieldRules);
+  RegisterFieldRules('Client.Field.Valorado', TBizValoradoFieldRules);
 
 finalization
 

Base/uViewDetallesFamilias.dfm

@@ -1,8 +1,6 @@
 inherited frViewDetallesFamilias: TfrViewDetallesFamilias
-  Width = 638
   inherited cxGrid: TcxGrid
     Top = 22
-    Width = 638
     Height = 248
     inherited cxGridView: TcxGridDBTableView
       OnEditing = cxGridViewEditing
@@ -117,10 +115,34 @@ inherited frViewDetallesFamilias: TfrViewDetallesFamilias
         Properties.ValueChecked = 'S'
         Properties.ValueUnchecked = 'N'
       end
+      object cxGridViewVALORADO: TcxGridDBColumn
+        Caption = 'Valorado'
+        DataBinding.FieldName = 'VALORADO'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.DisplayChecked = 'S'
+        Properties.DisplayUnchecked = 'N'
+        Properties.Glyph.Data = {
+          76010000424D7601000000000000760000002800000020000000100000000100
+          0400000000000001000000000000000000001000000000000000000000000000
+          8000008000000080800080000000800080008080000080808000C0C0C0000000
+          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8888F
+          FFFFFFFF8888777FFFFF8888FFF88888FF8F888888877777F88FF888FFF88888
+          FF88F778F8874777FF77FF88FFF88888F888FF77F8850477F877FFF8FFFF88F8
+          888FFFF7888F4788777FFFFF88FFFFF888FFFFFF7788888777FFFFFFF8888888
+          8FFFFFFFF77777777FFFFFFFFF88888FFFFFFFFFFF47557FFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
+        Properties.GlyphCount = 2
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        Properties.ValueChecked = 'S'
+        Properties.ValueUnchecked = 'N'
+      end
     end
   end
   inherited ToolBar1: TToolBar
-    Width = 638
     Height = 22
     ButtonWidth = 105
     object ToolButton1: TToolButton

Base/uViewDetallesFamilias.pas

@@ -42,6 +42,7 @@ type
     ToolButton8: TToolButton;
     ToolButton9: TToolButton;
     actRecalcular: TAction;
+    cxGridViewVALORADO: TcxGridDBColumn;
     procedure cxGridViewEditing(Sender: TcxCustomGridTableView;
       AItem: TcxCustomGridTableItem; var AAllow: Boolean);
     procedure cxGridViewTIPOStylesGetContentStyle(
@@ -64,7 +65,8 @@ procedure TfrViewDetallesFamilias.cxGridViewEditing(
   Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
   var AAllow: Boolean);
 var
-  IndiceCol : Integer;
+  IndiceCol, IndiceCol2 : Integer;
+
 begin
   IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_DESCRIPCION).Index;
   if AItem.Index <= IndiceCol then
@@ -77,10 +79,11 @@ begin
       if (UpperCase(AItem.GridView.Items[IndiceCol].EditValue) = TIPODETALLE_TITULO) then
       begin
         IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_VISIBLE).Index;
-        if AItem.Index = IndiceCol then
+        IndiceCol2 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_VALORADO).Index;
+        if ((AItem.Index = IndiceCol) or (AItem.Index = IndiceCol2)) then
           AAllow := True
         else
-          AAllow := False
+          AAllow := False;
       end;
     end;
   end;

Modulos/Albaranes de cliente/Cliente/uDataModuleAlbaranesCliente.pas

@@ -85,6 +85,7 @@ begin
       FieldByName(fld_DetallesAlbaranClienteIMPORTEPUNTOS).BusinessRulesID := 'Client.Field.ImportePuntos';
 
       FieldByName(fld_DetallesAlbaranClienteVISIBLE).BusinessRulesID := 'Client.Field.Visible';
+      FieldByName(fld_DetallesAlbaranClienteVALORADO).BusinessRulesID := 'Client.Field.Valorado';
     end;
     (dtAlbaranes as IBizAlbaranesCliente).Detalles := (dtDetalles as IBizDetallesAlbaranCliente);
 

Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.dfm

@@ -35,6 +35,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
         Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle
         Width = 76
       end
+      inherited cxGridViewVALORADO: TcxGridDBColumn
+        Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle
+      end
     end
   end
   inherited cxStyleRepository1: TcxStyleRepository

Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.pas

@@ -24,6 +24,9 @@ type
     procedure cxGridViewVISIBLEStylesGetContentStyle(
       Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
       AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+    procedure cxGridViewVALORADOStylesGetContentStyle(
+      Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+      AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
   end;
 
 
@@ -91,4 +94,22 @@ begin
   end;
 end;
 
+procedure TfrViewDetallesAlbaranCliente.cxGridViewVALORADOStylesGetContentStyle(
+  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+  IndiceCol : Integer;
+  ATipo : String;
+begin
+  if Assigned(ARecord) then
+  begin
+    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
+    ATipo := VarToStr(ARecord.Values[IndiceCol]);
+    if ATipo = TIPODETALLE_SUBTOTAL then
+      AStyle := cxStyle_SUBTOTAL;
+    if ATipo = TIPODETALLE_TITULO then
+      AStyle := cxStyle_TITULO;
+  end;
+end;
+
 end.

Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteClient_Intf.pas

@@ -9,15 +9,15 @@ 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_ListaAnosAlbaranes = '{633AA7F3-9231-41FD-9AFA-20F135BF0015}';
+  RID_ListaAnosAlbaranes = '{917C4039-2B93-4CA7-A441-D0352569F345}';
-  RID_DarReferenciaAlbaran = '{2A1DC102-86E4-4ED4-99B3-63A0A8ADF44E}';
+  RID_DarReferenciaAlbaran = '{C11AC197-E7EE-45B7-9496-D6F569F9A723}';
-  RID_AlbaranCliente = '{D7B2EDBF-3686-4A8C-910A-B4CFBE86FA03}';
+  RID_AlbaranCliente = '{7677D1DA-BBBF-4FE6-99C5-785BFC601814}';
-  RID_AlbaranDePresupuesto = '{30A07021-CB00-471E-933D-C775663D9916}';
+  RID_AlbaranDePresupuesto = '{11FBB81A-08F0-454F-9F82-2D38B9283A2C}';
-  RID_DetallesAlbaranCliente = '{7462D89E-A291-4EEB-86A1-466E9CA91AB2}';
+  RID_DetallesAlbaranCliente = '{0E82DB60-0D2C-4BD7-B746-A3FA7B226C9C}';
-  RID_AlbaranCliente_RefreshDataset = '{937F0EE6-A236-4A40-AC09-EA6C414C708C}';
+  RID_AlbaranCliente_RefreshDataset = '{1CF237D2-D61D-42F7-9977-29C60F03C4A7}';
-  RID_InformeCabeceraAlbaranPago = '{56F3725F-E457-4DC3-AE69-F6B955C4D525}';
+  RID_InformeCabeceraAlbaranPago = '{7C164B21-4993-4739-8B3F-1B5CC997D24A}';
-  RID_InformeDetallesAlbaranPago = '{1023528D-E1A8-4850-9C26-F0AE36E755D0}';
+  RID_InformeDetallesAlbaranPago = '{A9FA5BBE-85CE-4652-9E5C-5F9BF97A3A55}';
-  RID_DarSumaImportes = '{0183F8AD-2381-4ED5-931F-546D5C269857}';
+  RID_DarSumaImportes = '{1246AA6F-FFBC-422B-90E4-DE85DA400D86}';
 
   { Data table names }
   nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -104,6 +104,7 @@ const
   fld_DetallesAlbaranClienteVISIBLE = 'VISIBLE';
   fld_DetallesAlbaranClientePUNTOS = 'PUNTOS';
   fld_DetallesAlbaranClienteIMPORTEPUNTOS = 'IMPORTEPUNTOS';
+  fld_DetallesAlbaranClienteVALORADO = 'VALORADO';
 
   { DetallesAlbaranCliente field indexes }
   idx_DetallesAlbaranClienteCODIGOALBARAN = 0;
@@ -117,6 +118,7 @@ const
   idx_DetallesAlbaranClienteVISIBLE = 8;
   idx_DetallesAlbaranClientePUNTOS = 9;
   idx_DetallesAlbaranClienteIMPORTEPUNTOS = 10;
+  idx_DetallesAlbaranClienteVALORADO = 11;
 
   { AlbaranCliente_RefreshDataset fields }
   fld_AlbaranCliente_RefreshDatasetCODIGO = 'CODIGO';
@@ -197,6 +199,7 @@ const
   fld_InformeDetallesAlbaranPagoIMPORTETOTAL = 'IMPORTETOTAL';
   fld_InformeDetallesAlbaranPagoTIPO = 'TIPO';
   fld_InformeDetallesAlbaranPagoPOSICION = 'POSICION';
+  fld_InformeDetallesAlbaranPagoVALORADO = 'VALORADO';
 
   { InformeDetallesAlbaranPago field indexes }
   idx_InformeDetallesAlbaranPagoCODIGOALBARAN = 0;
@@ -207,6 +210,7 @@ const
   idx_InformeDetallesAlbaranPagoIMPORTETOTAL = 5;
   idx_InformeDetallesAlbaranPagoTIPO = 6;
   idx_InformeDetallesAlbaranPagoPOSICION = 7;
+  idx_InformeDetallesAlbaranPagoVALORADO = 8;
 
   { DarSumaImportes fields }
   fld_DarSumaImportesBASEIMPONIBLE = 'BASEIMPONIBLE';
@@ -221,7 +225,7 @@ const
 type
   { IListaAnosAlbaranes }
   IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
-  ['{D7D4C0A5-1F72-468B-A5FB-C81C33C826F2}']
+  ['{D0E73EE9-26F5-4A80-97A1-D26923F15F21}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -250,7 +254,7 @@ type
 
   { IDarReferenciaAlbaran }
   IDarReferenciaAlbaran = interface(IDAStronglyTypedDataTable)
-  ['{631B04FF-3196-4DB1-8266-43D0CCA14B6C}']
+  ['{B552B707-0E8A-4134-94E4-1608D2F8AE7E}']
     { Property getters and setters }
     function GetREFERENCIAValue: String;
     procedure SetREFERENCIAValue(const aValue: String);
@@ -279,7 +283,7 @@ type
 
   { IAlbaranCliente }
   IAlbaranCliente = interface(IDAStronglyTypedDataTable)
-  ['{2E3EA9B3-B1D2-432C-A31E-4BBDDD644872}']
+  ['{93E66932-9E6D-463A-B890-D22380A55B15}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -422,7 +426,7 @@ type
 
   { IAlbaranDePresupuesto }
   IAlbaranDePresupuesto = interface(IDAStronglyTypedDataTable)
-  ['{8CD58BB1-A4D0-4DF4-8E30-969F1BACC961}']
+  ['{EC189EA9-7AED-4BA8-8453-8BA1C887FA89}']
     { Property getters and setters }
     function GetCODIGOValue: Integer;
     procedure SetCODIGOValue(const aValue: Integer);
@@ -451,7 +455,7 @@ type
 
   { IDetallesAlbaranCliente }
   IDetallesAlbaranCliente = interface(IDAStronglyTypedDataTable)
-  ['{675AE33F-D64C-47AD-A206-64BFAA11FCD7}']
+  ['{A3DBA442-E018-4366-BEA9-CBDCC2638642}']
     { Property getters and setters }
     function GetCODIGOALBARANValue: Integer;
     procedure SetCODIGOALBARANValue(const aValue: Integer);
@@ -475,6 +479,8 @@ type
     procedure SetPUNTOSValue(const aValue: Integer);
     function GetIMPORTEPUNTOSValue: Currency;
     procedure SetIMPORTEPUNTOSValue(const aValue: Currency);
+    function GetVALORADOValue: String;
+    procedure SetVALORADOValue(const aValue: String);
 
 
     { Properties }
@@ -489,6 +495,7 @@ type
     property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue;
     property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue;
     property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
   end;
 
   { TDetallesAlbaranClienteDataTableRules }
@@ -518,6 +525,8 @@ type
     procedure SetPUNTOSValue(const aValue: Integer); virtual;
     function GetIMPORTEPUNTOSValue: Currency; virtual;
     procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual;
+    function GetVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
@@ -531,6 +540,7 @@ type
     property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue;
     property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue;
     property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -540,7 +550,7 @@ type
 
   { IAlbaranCliente_RefreshDataset }
   IAlbaranCliente_RefreshDataset = interface(IDAStronglyTypedDataTable)
-  ['{37351A63-CE65-4762-B897-5DE5998CAB64}']
+  ['{9264A499-6FFC-4612-8A7C-4A718EED39B8}']
     { Property getters and setters }
     function GetCODIGOValue: Integer;
     procedure SetCODIGOValue(const aValue: Integer);
@@ -587,7 +597,7 @@ type
 
   { IInformeCabeceraAlbaranPago }
   IInformeCabeceraAlbaranPago = interface(IDAStronglyTypedDataTable)
-  ['{173C44D2-12F3-4383-86A6-29107BF40AF6}']
+  ['{D89475DD-59B9-4905-A028-189252D573D6}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -772,7 +782,7 @@ type
 
   { IInformeDetallesAlbaranPago }
   IInformeDetallesAlbaranPago = interface(IDAStronglyTypedDataTable)
-  ['{92CC3EF0-B88D-4396-8134-AD775CD2E583}']
+  ['{5DDBF241-3C71-4B5A-848C-31D3C1984727}']
     { Property getters and setters }
     function GetCODIGOALBARANValue: Integer;
     procedure SetCODIGOALBARANValue(const aValue: Integer);
@@ -780,8 +790,8 @@ type
     procedure SetNUMCONCEPTOValue(const aValue: Integer);
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
-    function GetCANTIDADValue: Float;
+    function GetCANTIDADValue: Integer;
-    procedure SetCANTIDADValue(const aValue: Float);
+    procedure SetCANTIDADValue(const aValue: Integer);
     function GetIMPORTEUNIDADValue: Float;
     procedure SetIMPORTEUNIDADValue(const aValue: Float);
     function GetIMPORTETOTALValue: Float;
@@ -790,17 +800,20 @@ type
     procedure SetTIPOValue(const aValue: String);
     function GetPOSICIONValue: Integer;
     procedure SetPOSICIONValue(const aValue: Integer);
+    function GetVALORADOValue: String;
+    procedure SetVALORADOValue(const aValue: String);
 
 
     { Properties }
     property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
     property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
-    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
     property IMPORTEUNIDAD: Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
     property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
   end;
 
   { TInformeDetallesAlbaranPagoDataTableRules }
@@ -814,8 +827,8 @@ type
     procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
     function GetDESCRIPCIONValue: String; virtual;
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
-    function GetCANTIDADValue: Float; virtual;
+    function GetCANTIDADValue: Integer; virtual;
-    procedure SetCANTIDADValue(const aValue: Float); virtual;
+    procedure SetCANTIDADValue(const aValue: Integer); virtual;
     function GetIMPORTEUNIDADValue: Float; virtual;
     procedure SetIMPORTEUNIDADValue(const aValue: Float); virtual;
     function GetIMPORTETOTALValue: Float; virtual;
@@ -824,16 +837,19 @@ type
     procedure SetTIPOValue(const aValue: String); virtual;
     function GetPOSICIONValue: Integer; virtual;
     procedure SetPOSICIONValue(const aValue: Integer); virtual;
+    function GetVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
     property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
-    property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
     property IMPORTEUNIDAD: Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
     property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -846,7 +862,7 @@ type
   }
   { IDarSumaImportes }
   IDarSumaImportes = interface(IDAStronglyTypedDataTable)
-  ['{0A03D6E5-29C3-4B3C-8004-8D48A433FB36}']
+  ['{5DF4D82E-2806-4F9F-BC96-46922630BD69}']
     { Property getters and setters }
     function GetBASEIMPONIBLEValue: Float;
     procedure SetBASEIMPONIBLEValue(const aValue: Float);
@@ -1290,6 +1306,16 @@ begin
   DataTable.Fields[idx_DetallesAlbaranClienteIMPORTEPUNTOS].AsCurrency := aValue;
 end;
 
+function TDetallesAlbaranClienteDataTableRules.GetVALORADOValue: String;
+begin
+  result := DataTable.Fields[idx_DetallesAlbaranClienteVALORADO].AsString;
+end;
+
+procedure TDetallesAlbaranClienteDataTableRules.SetVALORADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_DetallesAlbaranClienteVALORADO].AsString := aValue;
+end;
+
 
 { TAlbaranCliente_RefreshDatasetDataTableRules }
 constructor TAlbaranCliente_RefreshDatasetDataTableRules.Create(aDataTable: TDADataTable);
@@ -1668,14 +1694,14 @@ begin
   DataTable.Fields[idx_InformeDetallesAlbaranPagoDESCRIPCION].AsString := aValue;
 end;
 
-function TInformeDetallesAlbaranPagoDataTableRules.GetCANTIDADValue: Float;
+function TInformeDetallesAlbaranPagoDataTableRules.GetCANTIDADValue: Integer;
 begin
-  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsFloat;
+  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsInteger;
 end;
 
-procedure TInformeDetallesAlbaranPagoDataTableRules.SetCANTIDADValue(const aValue: Float);
+procedure TInformeDetallesAlbaranPagoDataTableRules.SetCANTIDADValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsFloat := aValue;
+  DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsInteger := aValue;
 end;
 
 function TInformeDetallesAlbaranPagoDataTableRules.GetIMPORTEUNIDADValue: Float;
@@ -1718,6 +1744,16 @@ begin
   DataTable.Fields[idx_InformeDetallesAlbaranPagoPOSICION].AsInteger := aValue;
 end;
 
+function TInformeDetallesAlbaranPagoDataTableRules.GetVALORADOValue: String;
+begin
+  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoVALORADO].AsString;
+end;
+
+procedure TInformeDetallesAlbaranPagoDataTableRules.SetVALORADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_InformeDetallesAlbaranPagoVALORADO].AsString := aValue;
+end;
+
 
 { TDarSumaImportesDataTableRules }
 constructor TDarSumaImportesDataTableRules.Create(aDataTable: TDADataTable);

Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteServer_Intf.pas

@@ -9,20 +9,20 @@ 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_ListaAnosAlbaranesDelta = '{5C2DB703-C887-4F77-A9DC-11DA0CF6FE4E}';
+  RID_ListaAnosAlbaranesDelta = '{13092E1E-111E-4EA9-881B-3DB5E8D7DF8B}';
-  RID_DarReferenciaAlbaranDelta = '{D832A4B5-6FDD-49E0-AE5F-306375C415AD}';
+  RID_DarReferenciaAlbaranDelta = '{060883BE-0C2D-4803-80D9-9D2E675F0F71}';
-  RID_AlbaranClienteDelta = '{5DFFE549-E998-435B-BB5C-F859B970C506}';
+  RID_AlbaranClienteDelta = '{423E76BF-AECD-4833-9826-939D0CEAA727}';
-  RID_AlbaranDePresupuestoDelta = '{B5AB03E8-D48D-4BA2-A1E9-9CD0D0907C62}';
+  RID_AlbaranDePresupuestoDelta = '{18FC44A8-B09C-42A8-8364-CBA395F2BF34}';
-  RID_DetallesAlbaranClienteDelta = '{1502B47E-54CF-4FCD-8CC2-48C36D9EF53A}';
+  RID_DetallesAlbaranClienteDelta = '{15388383-8B5E-42C8-B067-6D2BC5B591B9}';
-  RID_AlbaranCliente_RefreshDatasetDelta = '{5E7557E0-2251-46D8-83CF-818EC119C817}';
+  RID_AlbaranCliente_RefreshDatasetDelta = '{C27FA34C-AC2D-4258-982E-2C454BF6F451}';
-  RID_InformeCabeceraAlbaranPagoDelta = '{51A960DD-CBCF-4151-9471-61453103C2EF}';
+  RID_InformeCabeceraAlbaranPagoDelta = '{C19F60E8-D693-4C0F-9F23-E143B0D63CC3}';
-  RID_InformeDetallesAlbaranPagoDelta = '{FA30D0F8-1FFC-4FAD-8C8B-CA8553D877EA}';
+  RID_InformeDetallesAlbaranPagoDelta = '{8F113EFE-98EE-495C-BCFF-37E5479F27AB}';
-  RID_DarSumaImportesDelta = '{50AE6D16-89E0-4C6A-9A75-62FE055859AF}';
+  RID_DarSumaImportesDelta = '{ABF43821-73BF-42CB-9086-3677C16A7153}';
 
 type
   { IListaAnosAlbaranesDelta }
   IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
-  ['{5C2DB703-C887-4F77-A9DC-11DA0CF6FE4E}']
+  ['{13092E1E-111E-4EA9-881B-3DB5E8D7DF8B}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IDarReferenciaAlbaranDelta }
   IDarReferenciaAlbaranDelta = interface(IDarReferenciaAlbaran)
-  ['{D832A4B5-6FDD-49E0-AE5F-306375C415AD}']
+  ['{060883BE-0C2D-4803-80D9-9D2E675F0F71}']
     { Property getters and setters }
     function GetOldREFERENCIAValue : String;
 
@@ -80,7 +80,7 @@ type
 
   { IAlbaranClienteDelta }
   IAlbaranClienteDelta = interface(IAlbaranCliente)
-  ['{5DFFE549-E998-435B-BB5C-F859B970C506}']
+  ['{423E76BF-AECD-4833-9826-939D0CEAA727}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -242,7 +242,7 @@ type
 
   { IAlbaranDePresupuestoDelta }
   IAlbaranDePresupuestoDelta = interface(IAlbaranDePresupuesto)
-  ['{B5AB03E8-D48D-4BA2-A1E9-9CD0D0907C62}']
+  ['{18FC44A8-B09C-42A8-8364-CBA395F2BF34}']
     { Property getters and setters }
     function GetOldCODIGOValue : Integer;
 
@@ -271,7 +271,7 @@ type
 
   { IDetallesAlbaranClienteDelta }
   IDetallesAlbaranClienteDelta = interface(IDetallesAlbaranCliente)
-  ['{1502B47E-54CF-4FCD-8CC2-48C36D9EF53A}']
+  ['{15388383-8B5E-42C8-B067-6D2BC5B591B9}']
     { Property getters and setters }
     function GetOldCODIGOALBARANValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
@@ -284,6 +284,7 @@ type
     function GetOldVISIBLEValue : String;
     function GetOldPUNTOSValue : Integer;
     function GetOldIMPORTEPUNTOSValue : Currency;
+    function GetOldVALORADOValue : String;
 
     { Properties }
     property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
@@ -297,6 +298,7 @@ type
     property OldVISIBLE : String read GetOldVISIBLEValue;
     property OldPUNTOS : Integer read GetOldPUNTOSValue;
     property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
   end;
 
   { TDetallesAlbaranClienteBusinessProcessorRules }
@@ -337,6 +339,9 @@ type
     function GetIMPORTEPUNTOSValue: Currency; virtual;
     function GetOldIMPORTEPUNTOSValue: Currency; virtual;
     procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual;
+    function GetVALORADOValue: String; virtual;
+    function GetOldVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
@@ -361,6 +366,8 @@ type
     property OldPUNTOS : Integer read GetOldPUNTOSValue;
     property IMPORTEPUNTOS : Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
     property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue;
+    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -370,7 +377,7 @@ type
 
   { IAlbaranCliente_RefreshDatasetDelta }
   IAlbaranCliente_RefreshDatasetDelta = interface(IAlbaranCliente_RefreshDataset)
-  ['{5E7557E0-2251-46D8-83CF-818EC119C817}']
+  ['{C27FA34C-AC2D-4258-982E-2C454BF6F451}']
     { Property getters and setters }
     function GetOldCODIGOValue : Integer;
     function GetOldNOMBREValue : String;
@@ -420,7 +427,7 @@ type
 
   { IInformeCabeceraAlbaranPagoDelta }
   IInformeCabeceraAlbaranPagoDelta = interface(IInformeCabeceraAlbaranPago)
-  ['{51A960DD-CBCF-4151-9471-61453103C2EF}']
+  ['{C19F60E8-D693-4C0F-9F23-E143B0D63CC3}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -631,26 +638,28 @@ type
 
   { IInformeDetallesAlbaranPagoDelta }
   IInformeDetallesAlbaranPagoDelta = interface(IInformeDetallesAlbaranPago)
-  ['{FA30D0F8-1FFC-4FAD-8C8B-CA8553D877EA}']
+  ['{8F113EFE-98EE-495C-BCFF-37E5479F27AB}']
     { Property getters and setters }
     function GetOldCODIGOALBARANValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
     function GetOldDESCRIPCIONValue : String;
-    function GetOldCANTIDADValue : Float;
+    function GetOldCANTIDADValue : Integer;
     function GetOldIMPORTEUNIDADValue : Float;
     function GetOldIMPORTETOTALValue : Float;
     function GetOldTIPOValue : String;
     function GetOldPOSICIONValue : Integer;
+    function GetOldVALORADOValue : String;
 
     { Properties }
     property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue;
     property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
-    property OldCANTIDAD : Float read GetOldCANTIDADValue;
+    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
     property OldIMPORTEUNIDAD : Float read GetOldIMPORTEUNIDADValue;
     property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue;
     property OldTIPO : String read GetOldTIPOValue;
     property OldPOSICION : Integer read GetOldPOSICIONValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
   end;
 
   { TInformeDetallesAlbaranPagoBusinessProcessorRules }
@@ -667,9 +676,9 @@ type
     function GetDESCRIPCIONValue: String; virtual;
     function GetOldDESCRIPCIONValue: String; virtual;
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
-    function GetCANTIDADValue: Float; virtual;
+    function GetCANTIDADValue: Integer; virtual;
-    function GetOldCANTIDADValue: Float; virtual;
+    function GetOldCANTIDADValue: Integer; virtual;
-    procedure SetCANTIDADValue(const aValue: Float); virtual;
+    procedure SetCANTIDADValue(const aValue: Integer); virtual;
     function GetIMPORTEUNIDADValue: Float; virtual;
     function GetOldIMPORTEUNIDADValue: Float; virtual;
     procedure SetIMPORTEUNIDADValue(const aValue: Float); virtual;
@@ -682,6 +691,9 @@ type
     function GetPOSICIONValue: Integer; virtual;
     function GetOldPOSICIONValue: Integer; virtual;
     procedure SetPOSICIONValue(const aValue: Integer); virtual;
+    function GetVALORADOValue: String; virtual;
+    function GetOldVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
@@ -690,8 +702,8 @@ type
     property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
     property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
-    property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
+    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
-    property OldCANTIDAD : Float read GetOldCANTIDADValue;
+    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
     property IMPORTEUNIDAD : Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
     property OldIMPORTEUNIDAD : Float read GetOldIMPORTEUNIDADValue;
     property IMPORTETOTAL : Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
@@ -700,6 +712,8 @@ type
     property OldTIPO : String read GetOldTIPOValue;
     property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
     property OldPOSICION : Integer read GetOldPOSICIONValue;
+    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -709,7 +723,7 @@ type
 
   { IDarSumaImportesDelta }
   IDarSumaImportesDelta = interface(IDarSumaImportes)
-  ['{50AE6D16-89E0-4C6A-9A75-62FE055859AF}']
+  ['{ABF43821-73BF-42CB-9086-3677C16A7153}']
     { Property getters and setters }
     function GetOldBASEIMPONIBLEValue : Float;
     function GetOldIMPORTEIVAValue : Float;
@@ -1328,6 +1342,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteIMPORTEPUNTOS] := aValue;
 end;
 
+function TDetallesAlbaranClienteBusinessProcessorRules.GetVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteVALORADO];
+end;
+
+function TDetallesAlbaranClienteBusinessProcessorRules.GetOldVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteVALORADO];
+end;
+
+procedure TDetallesAlbaranClienteBusinessProcessorRules.SetVALORADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteVALORADO] := aValue;
+end;
+
 
 { TAlbaranCliente_RefreshDatasetBusinessProcessorRules }
 constructor TAlbaranCliente_RefreshDatasetBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1878,17 +1907,17 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoDESCRIPCION] := aValue;
 end;
 
-function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetCANTIDADValue: Float;
+function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetCANTIDADValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD];
 end;
 
-function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldCANTIDADValue: Float;
+function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldCANTIDADValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD];
 end;
 
-procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
+procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD] := aValue;
 end;
@@ -1953,6 +1982,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoPOSICION] := aValue;
 end;
 
+function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoVALORADO];
+end;
+
+function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoVALORADO];
+end;
+
+procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetVALORADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoVALORADO] := aValue;
+end;
+
 
 { TDarSumaImportesBusinessProcessorRules }
 constructor TDarSumaImportesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Modulos/Albaranes de cliente/Reglas/uBizAlbaranesCliente.pas

@@ -42,6 +42,7 @@ type
                                   IBizImportesDetalle,
                                   IBizPuntosDetalle,
                                   IBizVisibleDetalle,
+                                  IBizValoradoDetalle,
                                   IParche)    // PARCHE ***********************
   private
     FIsAppend : Boolean;
@@ -378,6 +379,7 @@ begin
       PUNTOS := ADetallesPresupuesto.PUNTOS;
       IMPORTEPUNTOS := ADetallesPresupuesto.IMPORTEPUNTOS;
       VISIBLE := ADetallesPresupuesto.VISIBLE;
+      VALORADO := ADetallesPresupuesto.VALORADO;
     finally
       DataTable.EnableControls;
       DataTable.EnableEventHandlers;
@@ -418,6 +420,7 @@ begin
   NUMCONCEPTO := -1;
   TIPO := TIPODETALLE_CONCEPTO;
   VISIBLE := VISIBLE_TRUE;
+  VALORADO := VALORADO_TRUE;
 
   Self.DataTable.DisableEventHandlers;
   try

Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -449,8 +449,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             SQL = 
               'SELECT'#10'    CODIGOALBARAN, NUMCONCEPTO, POSICION, TIPO, DESCRIPCI' +
               'ON, CANTIDAD,'#10'    IMPORTEUNIDAD, IMPORTETOTAL, VISIBLE, PUNTOS, ' +
-              'IMPORTEPUNTOS'#10'  FROM'#10'    DETALLESALBARANPAGO'#10'  WHERE CODIGOALBAR' +
+              'IMPORTEPUNTOS, VALORADO'#10'  FROM'#10'    DETALLESALBARANPAGO'#10'  WHERE C' +
-              'AN = :CODIGOALBARAN'#10'  ORDER BY POSICION'
+              'ODIGOALBARAN = :CODIGOALBARAN'#10'  ORDER BY POSICION'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -496,6 +496,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               item
                 DatasetField = 'IMPORTEPUNTOS'
                 TableField = 'IMPORTEPUNTOS'
+              end
+              item
+                DatasetField = 'VALORADO'
+                TableField = 'VALORADO'
               end>
           end>
         Name = 'DetallesAlbaranCliente'
@@ -613,6 +617,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'VALORADO'
+            DataType = datString
+            Size = 1
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -1174,9 +1190,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             TargetTable = 'ALBARANPAGO'
             SQL = 
               'SELECT CODIGOALBARAN, NUMCONCEPTO, DESCRIPCION, CANTIDAD, IMPORT' +
-              'EUNIDAD,'#10'IMPORTETOTAL, TIPO, POSICION'#10'FROM DETALLESALBARANPAGO'#10'W' +
+              'EUNIDAD,'#10'IMPORTETOTAL, TIPO, POSICION, VALORADO'#10'FROM DETALLESALB' +
-              'HERE CODIGOALBARAN = :CODIGOALBARAN AND'#10'VISIBLE = '#39'S'#39#10'ORDER BY P' +
+              'ARANPAGO'#10'WHERE CODIGOALBARAN = :CODIGOALBARAN AND'#10'VISIBLE = '#39'S'#39#10 +
-              'OSICION;'
+              'ORDER BY POSICION;'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -1210,6 +1226,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               item
                 DatasetField = 'POSICION'
                 TableField = 'POSICION'
+              end
+              item
+                DatasetField = 'VALORADO'
+                TableField = 'VALORADO'
               end>
           end>
         Name = 'InformeDetallesAlbaranPago'
@@ -1250,7 +1270,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
           end
           item
             Name = 'CANTIDAD'
-            DataType = datFloat
+            DataType = datInteger
             BlobType = dabtUnknown
             DisplayWidth = 0
             Alignment = taLeftJustify
@@ -1303,6 +1323,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'VALORADO'
+            DataType = datString
+            Size = 1
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript

Modulos/Facturas de cliente/Cliente/uDataModuleFacturasCliente.pas

@@ -84,6 +84,7 @@ begin
       FieldByName(fld_DetallesFacturasClienteIMPORTEUNIDAD).BusinessRulesID := 'Client.Field.ImporteUnidad';
       FieldByName(fld_DetallesFacturasClienteTIPO).BusinessRulesID := 'Client.Field.TipoDetalle';
       FieldByName(fld_DetallesFacturasClienteVISIBLE).BusinessRulesID := 'Client.Field.Visible';
+      FieldByName(fld_DetallesFacturasClienteVALORADO).BusinessRulesID := 'Client.Field.Valorado';
     end;
     (dtCabecera as IBizFacturasCliente).Detalles := (dtDetalles as IBizDetallesFacturasCliente);
 

Modulos/Facturas de cliente/Cliente/uViewDetallesAlbaranCliente.dfm

@@ -35,6 +35,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
         Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle
         Width = 76
       end
+      inherited cxGridViewVALORADO: TcxGridDBColumn
+        Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle
+      end
     end
   end
   inherited cxStyleRepository1: TcxStyleRepository

Modulos/Facturas de cliente/Cliente/uViewDetallesAlbaranCliente.pas

@@ -24,6 +24,9 @@ type
     procedure cxGridViewVISIBLEStylesGetContentStyle(
       Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
       AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+    procedure cxGridViewVALORADOStylesGetContentStyle(
+      Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+      AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
   end;
 
 
@@ -91,4 +94,22 @@ begin
   end;
 end;
 
+procedure TfrViewDetallesAlbaranCliente.cxGridViewVALORADOStylesGetContentStyle(
+  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+  IndiceCol : Integer;
+  ATipo : String;
+begin
+  if Assigned(ARecord) then
+  begin
+    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
+    ATipo := VarToStr(ARecord.Values[IndiceCol]);
+    if ATipo = TIPODETALLE_SUBTOTAL then
+      AStyle := cxStyle_SUBTOTAL;
+    if ATipo = TIPODETALLE_TITULO then
+      AStyle := cxStyle_TITULO;
+  end;
+end;
+
 end.

Modulos/Facturas de cliente/Cliente/uViewDetallesFacturaCliente.dfm

@@ -37,6 +37,9 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
         Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle
         Width = 76
       end
+      inherited cxGridViewVALORADO: TcxGridDBColumn
+        Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle
+      end
     end
   end
   inherited cxStyleRepository1: TcxStyleRepository

Modulos/Facturas de cliente/Cliente/uViewDetallesFacturaCliente.pas

@@ -24,6 +24,9 @@ type
     procedure cxGridViewVISIBLEStylesGetContentStyle(
       Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
       AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+    procedure cxGridViewVALORADOStylesGetContentStyle(
+      Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+      AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
   end;
 
 
@@ -91,4 +94,22 @@ begin
   end;
 end;
 
+procedure TfrViewDetallesFacturaCliente.cxGridViewVALORADOStylesGetContentStyle(
+  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+  IndiceCol : Integer;
+  ATipo : String;
+begin
+  if Assigned(ARecord) then
+  begin
+    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
+    ATipo := VarToStr(ARecord.Values[IndiceCol]);
+    if ATipo = TIPODETALLE_SUBTOTAL then
+      AStyle := cxStyle_SUBTOTAL;
+    if ATipo = TIPODETALLE_TITULO then
+      AStyle := cxStyle_TITULO;
+  end;
+end;
+
 end.

Modulos/Facturas de cliente/Reglas/schFacturasClienteClient_Intf.pas

@@ -9,12 +9,12 @@ 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_ListaAnosFacturas = '{42919587-DDC2-4D2F-8B79-4C034016B877}';
+  RID_ListaAnosFacturas = '{F555E879-98E6-4445-B479-6DDEE0F72451}';
-  RID_DarReferenciaFactura = '{75D2C86E-2226-4165-AE57-6FBB114F6C38}';
+  RID_DarReferenciaFactura = '{31F913BC-22CC-4CD6-9E3B-CBAFEDCDB516}';
-  RID_FacturasCliente = '{46F2D1A1-F069-49C3-8FD7-F73A82EA4B30}';
+  RID_FacturasCliente = '{031548EB-0F39-4A79-BCDA-22C5DB44DE89}';
-  RID_DetallesFacturasCliente = '{BB44EE25-910C-4356-B962-792C1239F806}';
+  RID_DetallesFacturasCliente = '{2F90D934-3C17-43E8-81F3-671E2D2E3270}';
-  RID_InformeCabeceraFacturaCliente = '{865C733F-2C85-46C9-A40C-8A022512FC4E}';
+  RID_InformeCabeceraFacturaCliente = '{7C40DCD0-C61B-49F8-A612-4E812BEFBBBE}';
-  RID_InformeDetallesFacturaCliente = '{E219BB9F-D3FD-438D-A03B-0E466305B8A9}';
+  RID_InformeDetallesFacturaCliente = '{35113953-CFFB-4B9C-BD19-3E378E0A3CD0}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -94,6 +94,7 @@ const
   fld_DetallesFacturasClienteIMPORTEUNIDAD = 'IMPORTEUNIDAD';
   fld_DetallesFacturasClienteIMPORTETOTAL = 'IMPORTETOTAL';
   fld_DetallesFacturasClienteVISIBLE = 'VISIBLE';
+  fld_DetallesFacturasClienteVALORADO = 'VALORADO';
 
   { DetallesFacturasCliente field indexes }
   idx_DetallesFacturasClienteCODIGOFACTURA = 0;
@@ -105,6 +106,7 @@ const
   idx_DetallesFacturasClienteIMPORTEUNIDAD = 6;
   idx_DetallesFacturasClienteIMPORTETOTAL = 7;
   idx_DetallesFacturasClienteVISIBLE = 8;
+  idx_DetallesFacturasClienteVALORADO = 9;
 
   { InformeCabeceraFacturaCliente fields }
   fld_InformeCabeceraFacturaClienteCODIGOEMPRESA = 'CODIGOEMPRESA';
@@ -161,6 +163,7 @@ const
   fld_InformeDetallesFacturaClienteIMPORTETOTAL = 'IMPORTETOTAL';
   fld_InformeDetallesFacturaClienteTIPO = 'TIPO';
   fld_InformeDetallesFacturaClientePOSICION = 'POSICION';
+  fld_InformeDetallesFacturaClienteVALORADO = 'VALORADO';
 
   { InformeDetallesFacturaCliente field indexes }
   idx_InformeDetallesFacturaClienteCODIGOFACTURA = 0;
@@ -171,11 +174,12 @@ const
   idx_InformeDetallesFacturaClienteIMPORTETOTAL = 5;
   idx_InformeDetallesFacturaClienteTIPO = 6;
   idx_InformeDetallesFacturaClientePOSICION = 7;
+  idx_InformeDetallesFacturaClienteVALORADO = 8;
 
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{728E1D30-3B2E-44F0-86B2-D18BDDE2C92C}']
+  ['{C1615D5E-1861-4FC2-8130-504C8985199F}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -204,7 +208,7 @@ type
 
   { IDarReferenciaFactura }
   IDarReferenciaFactura = interface(IDAStronglyTypedDataTable)
-  ['{E947ABD4-4AD9-41C2-9351-96CBCDFFF938}']
+  ['{833C57EE-185B-4376-BEF6-EADB0B75B43E}']
     { Property getters and setters }
     function GetREFERENCIAValue: String;
     procedure SetREFERENCIAValue(const aValue: String);
@@ -233,7 +237,7 @@ type
 
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{1D8ABDA0-4A60-4470-9880-627ED9D48B67}']
+  ['{BF90D431-7F0C-43BF-BFC8-609EBF5957FD}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -388,7 +392,7 @@ type
 
   { IDetallesFacturasCliente }
   IDetallesFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{5D2C18DA-1596-42C5-B509-360BFB347BDD}']
+  ['{8EFC0465-252D-4ECE-9135-A803FC28C9A2}']
     { Property getters and setters }
     function GetCODIGOFACTURAValue: Integer;
     procedure SetCODIGOFACTURAValue(const aValue: Integer);
@@ -408,6 +412,8 @@ type
     procedure SetIMPORTETOTALValue(const aValue: Currency);
     function GetVISIBLEValue: String;
     procedure SetVISIBLEValue(const aValue: String);
+    function GetVALORADOValue: String;
+    procedure SetVALORADOValue(const aValue: String);
 
 
     { Properties }
@@ -420,6 +426,7 @@ type
     property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
     property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
     property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
   end;
 
   { TDetallesFacturasClienteDataTableRules }
@@ -445,6 +452,8 @@ type
     procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
     function GetVISIBLEValue: String; virtual;
     procedure SetVISIBLEValue(const aValue: String); virtual;
+    function GetVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
@@ -456,6 +465,7 @@ type
     property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
     property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
     property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -465,7 +475,7 @@ type
 
   { IInformeCabeceraFacturaCliente }
   IInformeCabeceraFacturaCliente = interface(IDAStronglyTypedDataTable)
-  ['{64DCF384-1920-4E15-9B5A-BD3B2673C3C4}']
+  ['{08A69022-7E0C-4344-86F7-453D608F06A6}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -614,7 +624,7 @@ type
 
   { IInformeDetallesFacturaCliente }
   IInformeDetallesFacturaCliente = interface(IDAStronglyTypedDataTable)
-  ['{398C14EC-410D-4756-B0B6-97EF74DA85D2}']
+  ['{2FC352CD-EB9C-465E-943D-92589BB3C567}']
     { Property getters and setters }
     function GetCODIGOFACTURAValue: Integer;
     procedure SetCODIGOFACTURAValue(const aValue: Integer);
@@ -632,6 +642,8 @@ type
     procedure SetTIPOValue(const aValue: String);
     function GetPOSICIONValue: Integer;
     procedure SetPOSICIONValue(const aValue: Integer);
+    function GetVALORADOValue: String;
+    procedure SetVALORADOValue(const aValue: String);
 
 
     { Properties }
@@ -643,6 +655,7 @@ type
     property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
   end;
 
   { TInformeDetallesFacturaClienteDataTableRules }
@@ -666,6 +679,8 @@ type
     procedure SetTIPOValue(const aValue: String); virtual;
     function GetPOSICIONValue: Integer; virtual;
     procedure SetPOSICIONValue(const aValue: Integer); virtual;
+    function GetVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
@@ -676,6 +691,7 @@ type
     property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1066,6 +1082,16 @@ begin
   DataTable.Fields[idx_DetallesFacturasClienteVISIBLE].AsString := aValue;
 end;
 
+function TDetallesFacturasClienteDataTableRules.GetVALORADOValue: String;
+begin
+  result := DataTable.Fields[idx_DetallesFacturasClienteVALORADO].AsString;
+end;
+
+procedure TDetallesFacturasClienteDataTableRules.SetVALORADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_DetallesFacturasClienteVALORADO].AsString := aValue;
+end;
+
 
 { TInformeCabeceraFacturaClienteDataTableRules }
 constructor TInformeCabeceraFacturaClienteDataTableRules.Create(aDataTable: TDADataTable);
@@ -1382,6 +1408,16 @@ begin
   DataTable.Fields[idx_InformeDetallesFacturaClientePOSICION].AsInteger := aValue;
 end;
 
+function TInformeDetallesFacturaClienteDataTableRules.GetVALORADOValue: String;
+begin
+  result := DataTable.Fields[idx_InformeDetallesFacturaClienteVALORADO].AsString;
+end;
+
+procedure TInformeDetallesFacturaClienteDataTableRules.SetVALORADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_InformeDetallesFacturaClienteVALORADO].AsString := aValue;
+end;
+
 
 initialization
   RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules);

Modulos/Facturas de cliente/Reglas/schFacturasClienteServer_Intf.pas

@@ -9,17 +9,17 @@ 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_ListaAnosFacturasDelta = '{4A3D7BF0-E719-4050-B586-158542987232}';
+  RID_ListaAnosFacturasDelta = '{E5DB6C55-5B68-4B8A-825B-C84D13D9456D}';
-  RID_DarReferenciaFacturaDelta = '{83C26CE1-CD1F-49D4-9120-6EDE7CEEA2EA}';
+  RID_DarReferenciaFacturaDelta = '{45121769-EC6F-4045-9D56-FAA87687E68B}';
-  RID_FacturasClienteDelta = '{68C74297-5D44-444B-8771-A8E6D3D3271B}';
+  RID_FacturasClienteDelta = '{04EFDBF9-E923-48FA-B960-078A10F69155}';
-  RID_DetallesFacturasClienteDelta = '{BD1FD6EF-39D5-452F-9839-1629116AF11F}';
+  RID_DetallesFacturasClienteDelta = '{CDDF089B-A4FE-4ECF-9CA2-C27E6F7947CF}';
-  RID_InformeCabeceraFacturaClienteDelta = '{790B67BB-36BD-484E-8E99-288CC4E12849}';
+  RID_InformeCabeceraFacturaClienteDelta = '{E5773B7E-6449-4935-B809-E04C0634015B}';
-  RID_InformeDetallesFacturaClienteDelta = '{0EC5EBAE-B438-4B46-AC9F-C126476C5876}';
+  RID_InformeDetallesFacturaClienteDelta = '{CB8F77F7-5D7D-4BEF-84F0-3A429BBE7FB9}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{4A3D7BF0-E719-4050-B586-158542987232}']
+  ['{E5DB6C55-5B68-4B8A-825B-C84D13D9456D}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -48,7 +48,7 @@ type
 
   { IDarReferenciaFacturaDelta }
   IDarReferenciaFacturaDelta = interface(IDarReferenciaFactura)
-  ['{83C26CE1-CD1F-49D4-9120-6EDE7CEEA2EA}']
+  ['{45121769-EC6F-4045-9D56-FAA87687E68B}']
     { Property getters and setters }
     function GetOldREFERENCIAValue : String;
 
@@ -77,7 +77,7 @@ type
 
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{68C74297-5D44-444B-8771-A8E6D3D3271B}']
+  ['{04EFDBF9-E923-48FA-B960-078A10F69155}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -253,7 +253,7 @@ type
 
   { IDetallesFacturasClienteDelta }
   IDetallesFacturasClienteDelta = interface(IDetallesFacturasCliente)
-  ['{BD1FD6EF-39D5-452F-9839-1629116AF11F}']
+  ['{CDDF089B-A4FE-4ECF-9CA2-C27E6F7947CF}']
     { Property getters and setters }
     function GetOldCODIGOFACTURAValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
@@ -264,6 +264,7 @@ type
     function GetOldIMPORTEUNIDADValue : Currency;
     function GetOldIMPORTETOTALValue : Currency;
     function GetOldVISIBLEValue : String;
+    function GetOldVALORADOValue : String;
 
     { Properties }
     property OldCODIGOFACTURA : Integer read GetOldCODIGOFACTURAValue;
@@ -275,6 +276,7 @@ type
     property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue;
     property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
     property OldVISIBLE : String read GetOldVISIBLEValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
   end;
 
   { TDetallesFacturasClienteBusinessProcessorRules }
@@ -309,6 +311,9 @@ type
     function GetVISIBLEValue: String; virtual;
     function GetOldVISIBLEValue: String; virtual;
     procedure SetVISIBLEValue(const aValue: String); virtual;
+    function GetVALORADOValue: String; virtual;
+    function GetOldVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOFACTURA : Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
@@ -329,6 +334,8 @@ type
     property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
     property VISIBLE : String read GetVISIBLEValue write SetVISIBLEValue;
     property OldVISIBLE : String read GetOldVISIBLEValue;
+    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -338,7 +345,7 @@ type
 
   { IInformeCabeceraFacturaClienteDelta }
   IInformeCabeceraFacturaClienteDelta = interface(IInformeCabeceraFacturaCliente)
-  ['{790B67BB-36BD-484E-8E99-288CC4E12849}']
+  ['{E5773B7E-6449-4935-B809-E04C0634015B}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -507,7 +514,7 @@ type
 
   { IInformeDetallesFacturaClienteDelta }
   IInformeDetallesFacturaClienteDelta = interface(IInformeDetallesFacturaCliente)
-  ['{0EC5EBAE-B438-4B46-AC9F-C126476C5876}']
+  ['{CB8F77F7-5D7D-4BEF-84F0-3A429BBE7FB9}']
     { Property getters and setters }
     function GetOldCODIGOFACTURAValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
@@ -517,6 +524,7 @@ type
     function GetOldIMPORTETOTALValue : Currency;
     function GetOldTIPOValue : String;
     function GetOldPOSICIONValue : Integer;
+    function GetOldVALORADOValue : String;
 
     { Properties }
     property OldCODIGOFACTURA : Integer read GetOldCODIGOFACTURAValue;
@@ -527,6 +535,7 @@ type
     property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
     property OldTIPO : String read GetOldTIPOValue;
     property OldPOSICION : Integer read GetOldPOSICIONValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
   end;
 
   { TInformeDetallesFacturaClienteBusinessProcessorRules }
@@ -558,6 +567,9 @@ type
     function GetPOSICIONValue: Integer; virtual;
     function GetOldPOSICIONValue: Integer; virtual;
     procedure SetPOSICIONValue(const aValue: Integer); virtual;
+    function GetVALORADOValue: String; virtual;
+    function GetOldVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOFACTURA : Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
@@ -576,6 +588,8 @@ type
     property OldTIPO : String read GetOldTIPOValue;
     property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
     property OldPOSICION : Integer read GetOldPOSICIONValue;
+    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1134,6 +1148,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteVISIBLE] := aValue;
 end;
 
+function TDetallesFacturasClienteBusinessProcessorRules.GetVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteVALORADO];
+end;
+
+function TDetallesFacturasClienteBusinessProcessorRules.GetOldVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteVALORADO];
+end;
+
+procedure TDetallesFacturasClienteBusinessProcessorRules.SetVALORADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteVALORADO] := aValue;
+end;
+
 
 { TInformeCabeceraFacturaClienteBusinessProcessorRules }
 constructor TInformeCabeceraFacturaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1597,6 +1626,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClientePOSICION] := aValue;
 end;
 
+function TInformeDetallesFacturaClienteBusinessProcessorRules.GetVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteVALORADO];
+end;
+
+function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClienteVALORADO];
+end;
+
+procedure TInformeDetallesFacturaClienteBusinessProcessorRules.SetVALORADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteVALORADO] := aValue;
+end;
+
 
 initialization
   RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules);

Modulos/Facturas de cliente/Reglas/uBizFacturasCliente.pas

@@ -50,6 +50,7 @@ type
                                   IBizImportesDetalle,
                                   IBizPuntosDetalle,
                                   IBizVisibleDetalle,
+                                  IBizValoradoDetalle,
                                   IParche)    // PARCHE ***********************
   private
     FIsAppend : Boolean;
@@ -406,6 +407,7 @@ begin
       CANTIDAD := ADetallesAlbaranes.CANTIDAD;
       IMPORTEUNIDAD := ADetallesAlbaranes.IMPORTEUNIDAD;
       VISIBLE := ADetallesAlbaranes.VISIBLE;
+      VALORADO := ADetallesAlbaranes.VALORADO;
     finally
       DataTable.EnableControls;
       DataTable.EnableEventHandlers;
@@ -492,6 +494,7 @@ begin
   NUMCONCEPTO := -1;
   TIPO := TIPODETALLE_CONCEPTO;
   VISIBLE := VISIBLE_TRUE;
+  VALORADO := VALORADO_TRUE;
 end;
 
 

Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -430,9 +430,9 @@ object srvFacturasCliente: TsrvFacturasCliente
             TargetTable = 'DETALLESFACTURASCLIENTE'
             SQL = 
               'SELECT '#10'    CODIGOFACTURA, NUMCONCEPTO, DESCRIPCION, CANTIDAD, '#10 +
-              '    IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO, VISIBLE'#10'  FROM'#10 +
+              '    IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO, VISIBLE, VALORA' +
-              '    DETALLESFACTURASCLIENTE'#10'  WHERE CODIGOFACTURA = :CODIGOFACTU' +
+              'DO'#10'  FROM'#10'    DETALLESFACTURASCLIENTE'#10'  WHERE CODIGOFACTURA = :C' +
-              'RA'#10'  ORDER BY POSICION;'
+              'ODIGOFACTURA'#10'  ORDER BY POSICION;'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -470,6 +470,10 @@ object srvFacturasCliente: TsrvFacturasCliente
               item
                 DatasetField = 'VISIBLE'
                 TableField = 'VISIBLE'
+              end
+              item
+                DatasetField = 'VALORADO'
+                TableField = 'VALORADO'
               end>
           end>
         Name = 'DetallesFacturasCliente'
@@ -567,6 +571,18 @@ object srvFacturasCliente: TsrvFacturasCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'VALORADO'
+            DataType = datString
+            Size = 1
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -918,9 +934,9 @@ object srvFacturasCliente: TsrvFacturasCliente
             TargetTable = 'DETALLESFACTURASCLIENTE'
             SQL = 
               'SELECT '#10'    CODIGOFACTURA, NUMCONCEPTO, DESCRIPCION, CANTIDAD, '#10 +
-              '    IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO'#10'FROM DETALLESFAC' +
+              '    IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO, VALORADO'#10'FROM D' +
-              'TURASCLIENTE'#10'WHERE CODIGOFACTURA = :CODIGOFACTURA AND'#10'VISIBLE = ' +
+              'ETALLESFACTURASCLIENTE'#10'WHERE CODIGOFACTURA = :CODIGOFACTURA AND'#10 +
-              #39'S'#39#10'ORDER BY POSICION'
+              'VISIBLE = '#39'S'#39#10'ORDER BY POSICION'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -954,6 +970,10 @@ object srvFacturasCliente: TsrvFacturasCliente
               item
                 DatasetField = 'CODIGOFACTURA'
                 TableField = 'CODIGOFACTURA'
+              end
+              item
+                DatasetField = 'VALORADO'
+                TableField = 'VALORADO'
               end>
           end>
         Name = 'InformeDetallesFacturaCliente'
@@ -1040,6 +1060,18 @@ object srvFacturasCliente: TsrvFacturasCliente
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'VALORADO'
+            DataType = datString
+            Size = 1
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript

Modulos/Pedidos a proveedor/Cliente/uViewDetallesPedidosProveedor.pas

@@ -20,9 +20,6 @@ type
     cxGridViewPOSICION: TcxGridDBColumn;
     procedure cxGridViewEditing(Sender: TcxCustomGridTableView;
       AItem: TcxCustomGridTableItem; var AAllow: Boolean);
-    procedure cxGridViewVISIBLEStylesGetContentStyle(
-      Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
-      AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
   end;
 
 
@@ -52,22 +49,4 @@ begin
     inherited;
 end;
 
-procedure TfrViewDetallesPedidosProveedor.cxGridViewVISIBLEStylesGetContentStyle(
-  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
-  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
-var
-  IndiceCol : Integer;
-  ATipo : String;
-begin
-{  if Assigned(ARecord) then
-  begin
-    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
-    ATipo := VarToStr(ARecord.Values[IndiceCol]);
-    if ATipo = TIPODETALLE_SUBTOTAL then
-      AStyle := cxStyle_SUBTOTAL;
-    if ATipo = TIPODETALLE_TITULO then
-      AStyle := cxStyle_TITULO;
-  end;}
-end;
-
 end.

Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas

@@ -120,6 +120,7 @@ begin
       FieldByName(fld_DetallesPresupuestosIMPORTEPUNTOS).BusinessRulesID := 'Client.Field.ImportePuntos';
 
       FieldByName(fld_DetallesPresupuestosVISIBLE).BusinessRulesID := 'Client.Field.Visible';
+      FieldByName(fld_DetallesPresupuestosVALORADO).BusinessRulesID := 'Client.Field.Valorado';
     end;
     (dtPresupuestos as IBizPresupuestos).Detalles := (dtDetalles as IBizDetallesPresupuesto);
 

Modulos/Presupuestos/Cliente/uViewDetallesPresupuesto.dfm

@@ -1,7 +1,5 @@
 inherited frViewDetallesPresupuesto: TfrViewDetallesPresupuesto
-  Width = 443
   inherited cxGrid: TcxGrid
-    Width = 443
     inherited cxGridView: TcxGridDBTableView
       DataController.Summary.FooterSummaryItems = <
         item
@@ -54,11 +52,11 @@ inherited frViewDetallesPresupuesto: TfrViewDetallesPresupuesto
         Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle
         Width = 21
       end
+      inherited cxGridViewVALORADO: TcxGridDBColumn
+        Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle
+      end
     end
   end
-  inherited ToolBar1: TToolBar
-    Width = 443
-  end
   inherited cxStyleRepository1: TcxStyleRepository
     object cxStyle_PUNTOS: TcxStyle
       AssignedValues = [svColor, svFont, svTextColor]

Modulos/Presupuestos/Cliente/uViewDetallesPresupuesto.pas

@@ -25,6 +25,9 @@ type
     procedure cxGridViewVISIBLEStylesGetContentStyle(
       Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
       AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+    procedure cxGridViewVALORADOStylesGetContentStyle(
+      Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+      AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
   private
     { Private declarations }
   public
@@ -95,4 +98,22 @@ begin
   end;
 end;
 
+procedure TfrViewDetallesPresupuesto.cxGridViewVALORADOStylesGetContentStyle(
+  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+  IndiceCol : Integer;
+  ATipo : String;
+begin
+  if Assigned(ARecord) then
+  begin
+    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
+    ATipo := VarToStr(ARecord.Values[IndiceCol]);
+    if ATipo = TIPODETALLE_SUBTOTAL then
+      AStyle := cxStyle_SUBTOTAL;
+    if ATipo = TIPODETALLE_TITULO then
+      AStyle := cxStyle_TITULO;
+  end;
+end;
+
 end.

Modulos/Presupuestos/Reglas/schPresupuestosClient_Intf.pas

@@ -9,12 +9,12 @@ 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_ListaAnosPresupuestos = '{95031149-82C7-4C73-BC10-9B1285B42FD8}';
+  RID_ListaAnosPresupuestos = '{5962C413-3DAB-454D-B36A-FD4E24DE730F}';
-  RID_DetallesPresupuestos = '{4155E7A3-B36F-440C-9232-FCDA6E0E57D3}';
+  RID_DetallesPresupuestos = '{25BCA0F2-589D-4000-B0E6-9182C7D37894}';
-  RID_Presupuestos = '{3C692B06-401D-4BB5-9E59-1029ECE88CCA}';
+  RID_Presupuestos = '{C41805F4-A7E8-4D44-B1A9-664132994979}';
-  RID_Presupuestos_RefreshDataset = '{4DDAA5E9-1786-49E9-82E4-92A8E5A30D2E}';
+  RID_Presupuestos_RefreshDataset = '{D439CBC6-EB81-49A4-8ECC-CC48D9CECE2A}';
-  RID_InformeCabeceraPresupuesto = '{3826E313-F328-47E3-AFF6-4C02E162BD3C}';
+  RID_InformeCabeceraPresupuesto = '{CF1F99E6-E1F4-49FA-810B-63F71F884A5F}';
-  RID_InformeDetallesPresupuesto = '{363E9ABE-D657-4094-A45A-1F44E3CC35DE}';
+  RID_InformeDetallesPresupuesto = '{427D3BE3-C67C-4007-B3D3-2BDB73496BAA}';
 
   { Data table names }
   nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@@ -42,6 +42,7 @@ const
   fld_DetallesPresupuestosVISIBLE = 'VISIBLE';
   fld_DetallesPresupuestosPUNTOS = 'PUNTOS';
   fld_DetallesPresupuestosIMPORTEPUNTOS = 'IMPORTEPUNTOS';
+  fld_DetallesPresupuestosVALORADO = 'VALORADO';
 
   { DetallesPresupuestos field indexes }
   idx_DetallesPresupuestosCODIGOPRESUPUESTO = 0;
@@ -55,6 +56,7 @@ const
   idx_DetallesPresupuestosVISIBLE = 8;
   idx_DetallesPresupuestosPUNTOS = 9;
   idx_DetallesPresupuestosIMPORTEPUNTOS = 10;
+  idx_DetallesPresupuestosVALORADO = 11;
 
   { Presupuestos fields }
   fld_PresupuestosCODIGOEMPRESA = 'CODIGOEMPRESA';
@@ -199,6 +201,7 @@ const
   fld_InformeDetallesPresupuestoIMPORTETOTAL = 'IMPORTETOTAL';
   fld_InformeDetallesPresupuestoTIPO = 'TIPO';
   fld_InformeDetallesPresupuestoPOSICION = 'POSICION';
+  fld_InformeDetallesPresupuestoVALORADO = 'VALORADO';
 
   { InformeDetallesPresupuesto field indexes }
   idx_InformeDetallesPresupuestoCODIGOPRESUPUESTO = 0;
@@ -209,11 +212,12 @@ const
   idx_InformeDetallesPresupuestoIMPORTETOTAL = 5;
   idx_InformeDetallesPresupuestoTIPO = 6;
   idx_InformeDetallesPresupuestoPOSICION = 7;
+  idx_InformeDetallesPresupuestoVALORADO = 8;
 
 type
   { IListaAnosPresupuestos }
   IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{6D5B13E0-C373-43E8-B599-1AD86BD6ABF2}']
+  ['{B7E87944-26FF-4A49-81C3-39AD904ED7D8}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -242,7 +246,7 @@ type
 
   { IDetallesPresupuestos }
   IDetallesPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{18414808-5E3F-4017-8DCF-885665361C3C}']
+  ['{58F9406A-6CF9-4DC6-A932-F3965154962E}']
     { Property getters and setters }
     function GetCODIGOPRESUPUESTOValue: Integer;
     procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
@@ -266,6 +270,8 @@ type
     procedure SetPUNTOSValue(const aValue: Integer);
     function GetIMPORTEPUNTOSValue: Currency;
     procedure SetIMPORTEPUNTOSValue(const aValue: Currency);
+    function GetVALORADOValue: String;
+    procedure SetVALORADOValue(const aValue: String);
 
 
     { Properties }
@@ -280,6 +286,7 @@ type
     property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue;
     property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue;
     property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
   end;
 
   { TDetallesPresupuestosDataTableRules }
@@ -309,6 +316,8 @@ type
     procedure SetPUNTOSValue(const aValue: Integer); virtual;
     function GetIMPORTEPUNTOSValue: Currency; virtual;
     procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual;
+    function GetVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
@@ -322,6 +331,7 @@ type
     property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue;
     property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue;
     property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -331,7 +341,7 @@ type
 
   { IPresupuestos }
   IPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{3B57E67A-BCF1-4A9C-8DE3-680F3FC7E851}']
+  ['{5659F9B7-0F5E-44BF-952F-BE0220081554}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -498,7 +508,7 @@ type
 
   { IPresupuestos_RefreshDataset }
   IPresupuestos_RefreshDataset = interface(IDAStronglyTypedDataTable)
-  ['{5097F042-BB92-4714-98E3-38D672728B8B}']
+  ['{0A043DC9-EC36-49B8-B7E6-1A2CE247027F}']
     { Property getters and setters }
     function GetCODIGOValue: Integer;
     procedure SetCODIGOValue(const aValue: Integer);
@@ -551,7 +561,7 @@ type
 
   { IInformeCabeceraPresupuesto }
   IInformeCabeceraPresupuesto = interface(IDAStronglyTypedDataTable)
-  ['{68F7F7E4-616C-464B-A795-E4ACAFC2D708}']
+  ['{7012F18F-7444-4649-9305-16548ABC900B}']
     { Property getters and setters }
     function GetCODIGOEMPRESAValue: Integer;
     procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@@ -766,7 +776,7 @@ type
 
   { IInformeDetallesPresupuesto }
   IInformeDetallesPresupuesto = interface(IDAStronglyTypedDataTable)
-  ['{25CACDCE-E4DB-42FC-B0B8-78493C06240D}']
+  ['{29DE425C-3C96-4736-9574-FFA7D8A279AB}']
     { Property getters and setters }
     function GetCODIGOPRESUPUESTOValue: Integer;
     procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
@@ -784,6 +794,8 @@ type
     procedure SetTIPOValue(const aValue: String);
     function GetPOSICIONValue: Integer;
     procedure SetPOSICIONValue(const aValue: Integer);
+    function GetVALORADOValue: String;
+    procedure SetVALORADOValue(const aValue: String);
 
 
     { Properties }
@@ -795,6 +807,7 @@ type
     property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
   end;
 
   { TInformeDetallesPresupuestoDataTableRules }
@@ -818,6 +831,8 @@ type
     procedure SetTIPOValue(const aValue: String); virtual;
     function GetPOSICIONValue: Integer; virtual;
     procedure SetPOSICIONValue(const aValue: Integer); virtual;
+    function GetVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
@@ -828,6 +843,7 @@ type
     property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
+    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -982,6 +998,16 @@ begin
   DataTable.Fields[idx_DetallesPresupuestosIMPORTEPUNTOS].AsCurrency := aValue;
 end;
 
+function TDetallesPresupuestosDataTableRules.GetVALORADOValue: String;
+begin
+  result := DataTable.Fields[idx_DetallesPresupuestosVALORADO].AsString;
+end;
+
+procedure TDetallesPresupuestosDataTableRules.SetVALORADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_DetallesPresupuestosVALORADO].AsString := aValue;
+end;
+
 
 { TPresupuestosDataTableRules }
 constructor TPresupuestosDataTableRules.Create(aDataTable: TDADataTable);
@@ -1726,6 +1752,16 @@ begin
   DataTable.Fields[idx_InformeDetallesPresupuestoPOSICION].AsInteger := aValue;
 end;
 
+function TInformeDetallesPresupuestoDataTableRules.GetVALORADOValue: String;
+begin
+  result := DataTable.Fields[idx_InformeDetallesPresupuestoVALORADO].AsString;
+end;
+
+procedure TInformeDetallesPresupuestoDataTableRules.SetVALORADOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_InformeDetallesPresupuestoVALORADO].AsString := aValue;
+end;
+
 
 initialization
   RegisterDataTableRules(RID_ListaAnosPresupuestos, TListaAnosPresupuestosDataTableRules);

Modulos/Presupuestos/Reglas/schPresupuestosServer_Intf.pas

@@ -9,17 +9,17 @@ 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_ListaAnosPresupuestosDelta = '{CBA70605-3C3B-48A1-A28C-B1E97902006E}';
+  RID_ListaAnosPresupuestosDelta = '{8D976F59-15D9-43F4-80BA-D2521FD3E7B3}';
-  RID_DetallesPresupuestosDelta = '{A06F07C8-8609-4E0C-A202-CDFD98C02B75}';
+  RID_DetallesPresupuestosDelta = '{4D049889-6828-4AC0-A146-65C6C3CABA37}';
-  RID_PresupuestosDelta = '{475CF11F-7C34-4390-B427-291574D72D01}';
+  RID_PresupuestosDelta = '{28799865-76E0-4A02-BBA9-47E008A6CB54}';
-  RID_Presupuestos_RefreshDatasetDelta = '{7B057008-D651-4A1C-B4B7-08C7C4A566F9}';
+  RID_Presupuestos_RefreshDatasetDelta = '{529CF287-BF4A-4985-B6C6-483744890AF4}';
-  RID_InformeCabeceraPresupuestoDelta = '{749B0EED-D424-4553-BE62-F24B9EE4B0DE}';
+  RID_InformeCabeceraPresupuestoDelta = '{75FB8BC9-9CEB-4C14-AB18-B0439CB4609C}';
-  RID_InformeDetallesPresupuestoDelta = '{322F58BC-E445-4DF9-9BFB-86086B38356B}';
+  RID_InformeDetallesPresupuestoDelta = '{71D7C955-A039-4F4B-BBC9-E805CB0DE329}';
 
 type
   { IListaAnosPresupuestosDelta }
   IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
-  ['{CBA70605-3C3B-48A1-A28C-B1E97902006E}']
+  ['{8D976F59-15D9-43F4-80BA-D2521FD3E7B3}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -48,7 +48,7 @@ type
 
   { IDetallesPresupuestosDelta }
   IDetallesPresupuestosDelta = interface(IDetallesPresupuestos)
-  ['{A06F07C8-8609-4E0C-A202-CDFD98C02B75}']
+  ['{4D049889-6828-4AC0-A146-65C6C3CABA37}']
     { Property getters and setters }
     function GetOldCODIGOPRESUPUESTOValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
@@ -61,6 +61,7 @@ type
     function GetOldVISIBLEValue : String;
     function GetOldPUNTOSValue : Integer;
     function GetOldIMPORTEPUNTOSValue : Currency;
+    function GetOldVALORADOValue : String;
 
     { Properties }
     property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue;
@@ -74,6 +75,7 @@ type
     property OldVISIBLE : String read GetOldVISIBLEValue;
     property OldPUNTOS : Integer read GetOldPUNTOSValue;
     property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
   end;
 
   { TDetallesPresupuestosBusinessProcessorRules }
@@ -114,6 +116,9 @@ type
     function GetIMPORTEPUNTOSValue: Currency; virtual;
     function GetOldIMPORTEPUNTOSValue: Currency; virtual;
     procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual;
+    function GetVALORADOValue: String; virtual;
+    function GetOldVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOPRESUPUESTO : Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
@@ -138,6 +143,8 @@ type
     property OldPUNTOS : Integer read GetOldPUNTOSValue;
     property IMPORTEPUNTOS : Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
     property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue;
+    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -147,7 +154,7 @@ type
 
   { IPresupuestosDelta }
   IPresupuestosDelta = interface(IPresupuestos)
-  ['{475CF11F-7C34-4390-B427-291574D72D01}']
+  ['{28799865-76E0-4A02-BBA9-47E008A6CB54}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -337,7 +344,7 @@ type
 
   { IPresupuestos_RefreshDatasetDelta }
   IPresupuestos_RefreshDatasetDelta = interface(IPresupuestos_RefreshDataset)
-  ['{7B057008-D651-4A1C-B4B7-08C7C4A566F9}']
+  ['{529CF287-BF4A-4985-B6C6-483744890AF4}']
     { Property getters and setters }
     function GetOldCODIGOValue : Integer;
     function GetOldNOMBREValue : String;
@@ -394,7 +401,7 @@ type
 
   { IInformeCabeceraPresupuestoDelta }
   IInformeCabeceraPresupuestoDelta = interface(IInformeCabeceraPresupuesto)
-  ['{749B0EED-D424-4553-BE62-F24B9EE4B0DE}']
+  ['{75FB8BC9-9CEB-4C14-AB18-B0439CB4609C}']
     { Property getters and setters }
     function GetOldCODIGOEMPRESAValue : Integer;
     function GetOldCODIGOValue : Integer;
@@ -640,7 +647,7 @@ type
 
   { IInformeDetallesPresupuestoDelta }
   IInformeDetallesPresupuestoDelta = interface(IInformeDetallesPresupuesto)
-  ['{322F58BC-E445-4DF9-9BFB-86086B38356B}']
+  ['{71D7C955-A039-4F4B-BBC9-E805CB0DE329}']
     { Property getters and setters }
     function GetOldCODIGOPRESUPUESTOValue : Integer;
     function GetOldNUMCONCEPTOValue : Integer;
@@ -650,6 +657,7 @@ type
     function GetOldIMPORTETOTALValue : Currency;
     function GetOldTIPOValue : String;
     function GetOldPOSICIONValue : Integer;
+    function GetOldVALORADOValue : String;
 
     { Properties }
     property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue;
@@ -660,6 +668,7 @@ type
     property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
     property OldTIPO : String read GetOldTIPOValue;
     property OldPOSICION : Integer read GetOldPOSICIONValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
   end;
 
   { TInformeDetallesPresupuestoBusinessProcessorRules }
@@ -691,6 +700,9 @@ type
     function GetPOSICIONValue: Integer; virtual;
     function GetOldPOSICIONValue: Integer; virtual;
     procedure SetPOSICIONValue(const aValue: Integer); virtual;
+    function GetVALORADOValue: String; virtual;
+    function GetOldVALORADOValue: String; virtual;
+    procedure SetVALORADOValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOPRESUPUESTO : Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
@@ -709,6 +721,8 @@ type
     property OldTIPO : String read GetOldTIPOValue;
     property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
     property OldPOSICION : Integer read GetOldPOSICIONValue;
+    property VALORADO : String read GetVALORADOValue write SetVALORADOValue;
+    property OldVALORADO : String read GetOldVALORADOValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -924,6 +938,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosIMPORTEPUNTOS] := aValue;
 end;
 
+function TDetallesPresupuestosBusinessProcessorRules.GetVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosVALORADO];
+end;
+
+function TDetallesPresupuestosBusinessProcessorRules.GetOldVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosVALORADO];
+end;
+
+procedure TDetallesPresupuestosBusinessProcessorRules.SetVALORADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosVALORADO] := aValue;
+end;
+
 
 { TPresupuestosBusinessProcessorRules }
 constructor TPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2019,6 +2048,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoPOSICION] := aValue;
 end;
 
+function TInformeDetallesPresupuestoBusinessProcessorRules.GetVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoVALORADO];
+end;
+
+function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldVALORADOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoVALORADO];
+end;
+
+procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetVALORADOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoVALORADO] := aValue;
+end;
+
 
 initialization
   RegisterBusinessProcessorRules(RID_ListaAnosPresupuestosDelta, TListaAnosPresupuestosBusinessProcessorRules);

Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas

@@ -51,6 +51,7 @@ type
                                   IBizImportesDetalle,
                                   IBizPuntosDetalle,
                                   IBizVisibleDetalle,
+                                  IBizValoradoDetalle,
                                   IParche)    // PARCHE ***********************
   private
     FIsAppend : Boolean;
@@ -396,6 +397,7 @@ begin
       PUNTOS := ADetallesPresupuesto.PUNTOS;
       IMPORTEPUNTOS := ADetallesPresupuesto.IMPORTEPUNTOS;
       VISIBLE := ADetallesPresupuesto.VISIBLE;
+      VALORADO := ADetallesPresupuesto.VALORADO;
     finally
       DataTable.EnableEventHandlers;
     end;
@@ -435,7 +437,7 @@ begin
   NUMCONCEPTO := -1;
   TIPO := TIPODETALLE_CONCEPTO;
   VISIBLE := VISIBLE_TRUE;
-
+  VALORADO := VALORADO_TRUE;
 
   Self.DataTable.DisableEventHandlers;
   try

Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm

@@ -64,8 +64,9 @@ object srvPresupuestos: TsrvPresupuestos
             SQL = 
               'SELECT '#10'    CODIGOPRESUPUESTO, NUMCONCEPTO, DESCRIPCION, CANTIDA' +
               'D, '#10'    IMPORTEUNIDAD, IMPORTETOTAL, TIPO, POSICION, VISIBLE,'#10'  ' +
-              '  PUNTOS, IMPORTEPUNTOS'#10'  FROM'#10'    DETALLESPRESUPUESTOS'#10'  WHERE ' +
+              '  PUNTOS, IMPORTEPUNTOS, VALORADO'#10'  FROM'#10'    DETALLESPRESUPUESTO' +
-              'CODIGOPRESUPUESTO = :CODIGOPRESUPUESTO'#10'  ORDER BY POSICION'
+              'S'#10'  WHERE CODIGOPRESUPUESTO = :CODIGOPRESUPUESTO'#10'  ORDER BY POSI' +
+              'CION'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -111,6 +112,10 @@ object srvPresupuestos: TsrvPresupuestos
               item
                 DatasetField = 'IMPORTEPUNTOS'
                 TableField = 'IMPORTEPUNTOS'
+              end
+              item
+                DatasetField = 'VALORADO'
+                TableField = 'VALORADO'
               end>
           end>
         Name = 'DetallesPresupuestos'
@@ -228,6 +233,17 @@ object srvPresupuestos: TsrvPresupuestos
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'VALORADO'
+            DataType = datString
+            Size = 1
+            BlobType = dabtUnknown
+            DictionaryEntry = 'DetallesPresupuestos_VALORADO'
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -1249,9 +1265,9 @@ object srvPresupuestos: TsrvPresupuestos
             TargetTable = 'DETALLESPRESUPUESTOS'
             SQL = 
               'SELECT '#10'    CODIGOPRESUPUESTO, NUMCONCEPTO, DESCRIPCION, CANTIDA' +
-              'D, '#10'    IMPORTEUNIDAD, IMPORTETOTAL, TIPO, POSICION'#10'  FROM'#10'    D' +
+              'D, '#10'    IMPORTEUNIDAD, IMPORTETOTAL, TIPO, POSICION, VALORADO'#10'  ' +
-              'ETALLESPRESUPUESTOS'#10'  WHERE CODIGOPRESUPUESTO = :CODIGOPRESUPUES' +
+              'FROM'#10'    DETALLESPRESUPUESTOS'#10'  WHERE CODIGOPRESUPUESTO = :CODIG' +
-              'TO'#10'  AND VISIBLE = '#39'S'#39#10'  ORDER BY POSICION'
+              'OPRESUPUESTO'#10'  AND VISIBLE = '#39'S'#39#10'  ORDER BY POSICION'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -1285,6 +1301,10 @@ object srvPresupuestos: TsrvPresupuestos
               item
                 DatasetField = 'POSICION'
                 TableField = 'POSICION'
+              end
+              item
+                DatasetField = 'VALORADO'
+                TableField = 'VALORADO'
               end>
           end>
         Name = 'InformeDetallesPresupuesto'
@@ -1371,6 +1391,18 @@ object srvPresupuestos: TsrvPresupuestos
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'VALORADO'
+            DataType = datString
+            Size = 1
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
@@ -1821,14 +1853,26 @@ object srvPresupuestos: TsrvPresupuestos
     ReportOptions.CreateDate = 37871.995398692100000000
     ReportOptions.Description.Strings = (
       'Demonstrates how to create simple list report.')
-    ReportOptions.LastChange = 39153.814578263890000000
+    ReportOptions.LastChange = 40251.793684884260000000
     ReportOptions.VersionBuild = '1'
     ReportOptions.VersionMajor = '12'
     ReportOptions.VersionMinor = '13'
     ReportOptions.VersionRelease = '1'
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
-      'procedure Band4OnBeforePrint(Sender: TfrxComponent);'
+      'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  DatosCliente.Lines.Clear;'
+      '  DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
+      ''
+      '  if (<frxDBCabecera."CODIGOPOSTAL"> <> '#39#39')'
+      '  or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
+      
+        '     DatosCliente.Lines.Add(<frxDBCabecera."CODIGOPOSTAL"> + <fr' +
+        'xDBCabecera."POBLACION">);'
+      'end;'
+      ''
+      'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
       'begin'
       '  case <frxDBDetalles."TIPO"> of'
       '  '#39'C'#39': begin'
@@ -1850,67 +1894,66 @@ object srvPresupuestos: TsrvPresupuestos
       '       MemoCampo4.Style := '#39'Concepto titulo'#39';'
       '       end;'
       '  end;'
-      ''
-      '  MemoCampo12.Height := 0;'
-      '  MemoCampo2.Height := 0;'
-      '  MemoCampo3.Height := 0;'
-      '  MemoCampo4.Height := 0;'
       'end;'
       ''
       'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
       'begin'
       
-        '       Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSum' +
+        '//       Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportS' +
-        'mary1.Height - 1;'
+        'ummary1.Height + 20;'
       'end;'
       ''
-      'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
+      'procedure Band3OnBeforePrint(Sender: TfrxComponent);'
-      'var'
-      '  cadenaAux: String;'
       'begin'
-      '  DatosCliente.Lines.Clear;'
-      '  DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
       ''
-      '  if (<frxDBCabecera."CODIGOPOSTAL"> <> '#39#39')'
+      '  if (<Page#> = <TotalPages#>) then'
-      '  or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
+      '  begin'
-      
+      '     shape6.Visible := True;'
-        '     DatosCliente.Lines.Add(<frxDBCabecera."CODIGOPOSTAL"> + <fr' +
+      '     memo14.Visible := True;'
-        'xDBCabecera."POBLACION">);'
+      '     memo35.Visible := True;'
-      ''
+      '     memo36.Visible := True;'
-      '  CadenaAux := '#39#39';'
+      '     memo37.Visible := True;'
-      '  if <frxDBCabecera."TELEFONO1"> <> '#39#39' then'
+      '     memo38.Visible := True;'
-      '     if CadenaAux = '#39#39' then'
+      '     memo39.Visible := True;'
-      
+      '     memo40.Visible := True;'
-        '        CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."TELEF' +
+      '     memo41.Visible := True;'
-        'ONO1">'
+      '     memo42.Visible := True;'
-      '     else'
+      '     memo43.Visible := True;'
-      
+      '     memo44.Visible := True;'
-        '        CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."TELEFON' +
+      '     memo45.Visible := True;'
-        'O1">;'
+      '  end'
-      ''
+      '  else'
-      '  if <frxDBCabecera."TELEFONO2"> <> '#39#39' then'
+      '  begin'
-      '     if CadenaAux = '#39#39' then'
+      '     shape6.Visible := False;'
-      
+      '     shape6.Visible := False;'
-        '        CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."TELEF' +
+      '     memo14.Visible := False;'
-        'ONO2">'
+      '     memo35.Visible := False;'
-      '     else'
+      '     memo36.Visible := False;'
-      
+      '     memo37.Visible := False;'
-        '        CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."TELEFON' +
+      '     memo38.Visible := False;'
-        'O2">;'
+      '     memo39.Visible := False;'
-      ''
+      '     memo40.Visible := False;'
-      '  if <frxDBCabecera."MOVIL"> <> '#39#39' then'
+      '     memo41.Visible := False;'
-      '     if CadenaAux = '#39#39' then'
+      '     memo42.Visible := False;'
-      
+      '     memo43.Visible := False;'
-        '        CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."MOVIL' +
+      '     memo44.Visible := False;'
-        '">'
+      '     memo45.Visible := False;'
-      '     else'
+      '  end;'
-      
-        '        CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."MOVIL">' +
-        ';'
-      ''
-      '  DatosCliente.Lines.Add(CadenaAux);'
       'end;'
       ''
+      'procedure MemoCampo3OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  case <frxDBDetalles."VALORADO"> of'
+      '  '#39'S'#39': begin'
+      '         MemoCampo3.Visible := True;'
+      '         MemoCampo4.Visible := True;'
+      '       end;'
+      '  '#39'N'#39': begin'
+      '         MemoCampo3.Visible := False;'
+      '         MemoCampo4.Visible := False;'
+      '       end;'
+      '  end;'
+      'end;'
       ''
       'begin'
       ''

Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas

@@ -30,8 +30,8 @@ type
     tbl_Presupuesto: TDACDSDataTable;
     tbl_DetallesPresupuesto: TDACDSDataTable;
     DABINAdapter: TDABINAdapter;
-    frxReport1: TfrxReport;
     schPresupuestos: TDASchema;
+    frxReport1: TfrxReport;
     procedure DARemoteServiceActivate(const aClientID: TGUID;
       aSession: TROSession; const aMessage: IROMessage);
   private

Modulos/Presupuestos_/Cliente/uDataModulePresupuestos.pas

@@ -83,6 +83,7 @@ begin
       FieldByName(fld_DetallesPresupuestosIMPORTEPUNTOS).BusinessRulesID := 'Client.Field.ImportePuntos';
 
       FieldByName(fld_DetallesPresupuestosVISIBLE).BusinessRulesID := 'Client.Field.Visible';
+      FieldByName(fld_DetallesPresupuestosVALORADO).BusinessRulesID := 'Client.Field.Valorado';
     end;
     (dtPresupuestos as IBizPresupuestos).Detalles := (dtDetalles as IBizDetallesPresupuesto);
 

Modulos/Presupuestos_/Cliente/uViewDetallesPresupuesto.dfm

@@ -36,6 +36,9 @@ inherited frViewDetallesPresupuesto: TfrViewDetallesPresupuesto
         Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle
         Width = 21
       end
+      inherited cxGridViewVALORADO: TcxGridDBColumn
+        Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle
+      end
     end
   end
   inherited cxStyleRepository1: TcxStyleRepository

Modulos/Presupuestos_/Cliente/uViewDetallesPresupuesto.pas

@@ -25,6 +25,9 @@ type
     procedure cxGridViewVISIBLEStylesGetContentStyle(
       Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
       AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+    procedure cxGridViewVALORADOStylesGetContentStyle(
+      Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+      AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
   private
     { Private declarations }
   public
@@ -95,4 +98,22 @@ begin
   end;
 end;
 
+procedure TfrViewDetallesPresupuesto.cxGridViewVALORADOStylesGetContentStyle(
+  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+  IndiceCol : Integer;
+  ATipo : String;
+begin
+  if Assigned(ARecord) then
+  begin
+    IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
+    ATipo := VarToStr(ARecord.Values[IndiceCol]);
+    if ATipo = TIPODETALLE_SUBTOTAL then
+      AStyle := cxStyle_SUBTOTAL;
+    if ATipo = TIPODETALLE_TITULO then
+      AStyle := cxStyle_TITULO;
+  end;
+end;
+
 end.

Modulos/Presupuestos_/Reglas/uBizPresupuestosCliente.pas

@@ -46,6 +46,7 @@ type
                                   IBizImportesDetalle,
                                   IBizPuntosDetalle,
                                   IBizVisibleDetalle,
+                                  IBizValoradoDetalle,
                                   IParche)    // PARCHE ***********************
   private
     FIsAppend : Boolean;
@@ -390,6 +391,7 @@ begin
       PUNTOS := ADetallesPresupuesto.PUNTOS;
       IMPORTEPUNTOS := ADetallesPresupuesto.IMPORTEPUNTOS;
       VISIBLE := ADetallesPresupuesto.VISIBLE;
+      VALORADO := ADetallesPresupuesto.VALORADO;
     finally
       DataTable.EnableEventHandlers;
     end;
@@ -429,7 +431,7 @@ begin
   NUMCONCEPTO := -1;
   TIPO := TIPODETALLE_CONCEPTO;
   VISIBLE := VISIBLE_TRUE;
-
+  VALORADO := VALORADO_TRUE;
 
   Self.DataTable.DisableEventHandlers;
   try

SCRIPT.SQL

@@ -0,0 +1,23 @@
+ALTER TABLE DETALLESPRESUPUESTOS
+ADD VALORADO CHAR(1) CHARACTER SET ISO8859_1 
+NOT NULL 
+COLLATE ISO8859_1;
+
+UPDATE DETALLESPRESUPUESTOS
+SET VALORADO = 'S';
+
+ALTER TABLE DETALLESALBARANPAGO
+ADD VALORADO CHAR(1) CHARACTER SET ISO8859_1 
+NOT NULL 
+COLLATE ISO8859_1;
+
+UPDATE DETALLESALBARANPAGO
+SET VALORADO = 'S';
+
+ALTER TABLE DETALLESFACTURASCLIENTE
+ADD VALORADO CHAR(1) CHARACTER SET ISO8859_1 
+NOT NULL 
+COLLATE ISO8859_1;
+
+UPDATE DETALLESFACTURASCLIENTE
+SET VALORADO = 'S';

Servidor/uDataModuleServer.dfm

@@ -772,6 +772,14 @@ object dmServer: TdmServer
         DisplayWidth = 0
         DisplayLabel = 'VISIBLE'
         Alignment = taLeftJustify
+      end
+      item
+        Name = 'DetallesPresupuestos_VALORADO'
+        DataType = datString
+        Size = 1
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
       end>
     Left = 40
     Top = 144