From ab106540f3e2f122b02c42ab49e322f8ad5ff434 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 31 Dec 2008 09:01:54 +0000
Subject: [PATCH] =?UTF-8?q?Informes=20base=20->=20en=20la=20generaci=C3=B3?=
 =?UTF-8?q?n=20de=20los=20sumarios=20se=20aplica=20el=20formato=20que=20te?=
 =?UTF-8?q?nga=20la=20columna=20de=20ese=20sumario=20(en=20vez=20de=20comp?=
 =?UTF-8?q?robar=20los=20tipos)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@304 c93665c3-c93d-084d-9b98-7d5f4a9c3376
---
 .../Informes base/Views/uViewSumarios.dfm     |  1 +
 .../Informes base/Views/uViewSumarios.pas     | 20 +++++++++----------
 2 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/Source/Modulos/Informes base/Views/uViewSumarios.dfm b/Source/Modulos/Informes base/Views/uViewSumarios.dfm
index b3bb4cad..2cdfdca5 100644
--- a/Source/Modulos/Informes base/Views/uViewSumarios.dfm	
+++ b/Source/Modulos/Informes base/Views/uViewSumarios.dfm	
@@ -88,6 +88,7 @@ inherited frViewSumarios: TfrViewSumarios
   object cxStyleRepository1: TcxStyleRepository
     Left = 216
     Top = 104
+    PixelsPerInch = 96
     object cxStyleNombreColumna: TcxStyle
       AssignedValues = [svColor, svTextColor]
       Color = clWindow
diff --git a/Source/Modulos/Informes base/Views/uViewSumarios.pas b/Source/Modulos/Informes base/Views/uViewSumarios.pas
index ee71f19c..cdbe3acb 100644
--- a/Source/Modulos/Informes base/Views/uViewSumarios.pas	
+++ b/Source/Modulos/Informes base/Views/uViewSumarios.pas	
@@ -104,27 +104,25 @@ end;
 procedure TfrViewSumarios.AplicarSumarioVista (
   const APosition: TcxSummaryPosition; const AColumnCaption: String;
   const AKind: TcxSummaryKind);
-const
-  MASK_MONEDA = ',0.## €;-,0.## €';
-  MASK_NUMERO = '#,##0';
 var
   AColumn : TcxGridDBColumn;
+  ADisplayFormat : string;
 begin
   AColumn := ViewInformeBaseGrid.GetColumnByCaption(AColumnCaption);
+
+  if (AColumn.Properties is TcxCustomTextEditProperties) then
+    ADisplayFormat := TcxCustomTextEditProperties(AColumn.Properties).DisplayFormat
+  else
+    ADisplayFormat := '';
+
   if APosition = spFooter then
   begin
     AColumn.Summary.FooterKind := AKind;
-    if (AKind in [skSum, skAverage]) and (AColumn.PropertiesClassName = 'TcxCurrencyEditProperties') then
-      AColumn.Summary.FooterFormat := MASK_MONEDA
-    else
-      AColumn.Summary.FooterFormat := MASK_NUMERO;
+   //AColumn.Summary.FooterFormat := ADisplayFormat;
   end
   else begin
     AColumn.Summary.GroupFooterKind := AKind;
-    if (AKind in [skSum, skAverage]) and (AColumn.PropertiesClassName = 'TcxCurrencyEditProperties') then
-      AColumn.Summary.GroupFooterFormat := MASK_MONEDA
-    else
-      AColumn.Summary.GroupFooterFormat := MASK_NUMERO;
+   // AColumn.Summary.GroupFooterFormat := ADisplayFormat;
   end;
 end;