Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-01-2009
Avatar de jcarteagaf
[jcarteagaf] jcarteagaf is offline
Miembro Premium
 
Registrado: abr 2006
Ubicación: La Paz, Bolivia
Posts: 651
Poder: 19
jcarteagaf Va por buen camino
Problema con expresion en FastReport

Hola amigos del Foro, tengo el siguiente problema con una reporte hecho en FastReport: Mi reporte genera un informe que puede estar expresado en 1 de 3 monedas, de acuerdo a esto el usuario elige la moneda en la que desea ver el informe (inicialmente la información es desplegada en un Grid, por lo que el usuario puede elegir mas de una moneda a la vez para visualizar esta info, sin embargo en el reporte solo se imprime una)

Uso el siguiente codigo para modificar el reporte para imprima el detalle segun la moneda elegida:
Código Delphi [-]
var
  fmvDebe,fmvHaber,fmvSaldo : TfrxMemoView;
  fmvDebeCaption,fmvHaberCaption,fmvSaldoCaption  : TfrxMemoView;
  sSimbolo : string;
begin
  inherited;
  sMoneda := GetMoneda();  // Obtiene la moneda elegida (solo una)
  sDebe   := 'DEBE'+sMoneda;  // Crea el nombre del campo segun la moneda
  sHaber  := 'HABER'+sMoneda;
  sSaldo  := 'SALDO'+sMoneda;

  case sMoneda of
  'B' : sSimbolo := 'Bs.';
  'D' : sSimbolo := '$us';
  'E' : sSimbolo := 'Euro';
  'F' : sSimbolo := 'UFV';
  end;

  with frxReporte do
  begin
    fmvDebe := FindObject('fmvDebe') as TfrxMemoView;  // obtiene el objeto
    fmvHaber := FindObject('fmvHaber') as TfrxMemoView;
    fmvSaldo := FindObject('fmvSaldo') as TfrxMemoView;

    fmvDebe.DataField  := sDebe;
    fmvHaber.DataField := sHaber;
    fmvSaldo.DataField := sSaldo;

    fmvDebeCaption := FindObject('fmvDebeCaption') as TfrxMemoView;
    fmvHaberCaption := FindObject('fmvHaberCaption') as TfrxMemoView;
    fmvSaldoCaption := FindObject('fmvSaldoCaption') as TfrxMemoView;

    fmvDebeCaption.Text := 'Debe '+sSimbolo;
    fmvHaberCaption.Text := 'Haber '+sSimbolo;
    fmvSaldoCaption.Text := 'Saldo '+sSimbolo;

Hasta ahi todo funciona bien, sin embargo no puedo hacer lo mismo con los totales y subtotales, uso un TfrxSysMemoView con el siguiente formato : [SUM(<Tabla."DebeB">,MasterData2)], al querer realizar una operación parecida a la anterior (reemplazando el nombre del campo por el campo adecuado segun la moneda elegida) no se muestra el valor sino el texto mismo de la funcion: SUM(<.....

Podrian darme un tip para poder realizar esta operación.

Gracias de antemano por su tiempo.

Saludos
Responder Con Cita
  #2  
Antiguo 26-01-2009
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Poder: 29
jhonny Va camino a la famajhonny Va camino a la fama
Podría ser que tu TfrxSysMemoView no este aceptando expresiones, por lo que deberías verificarlo, haciendo click derecho sobre dicho objeto y mirando que la opción "Permitir expresiones" este activa.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita
  #3  
Antiguo 26-01-2009
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Poder: 29
jhonny Va camino a la famajhonny Va camino a la fama
Ademas, verifica que al reemplazar la formula, realmente quede encerrada dentro de los corchetes [Sum<...>]
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita
  #4  
Antiguo 27-01-2009
Avatar de jcarteagaf
[jcarteagaf] jcarteagaf is offline
Miembro Premium
 
Registrado: abr 2006
Ubicación: La Paz, Bolivia
Posts: 651
Poder: 19
jcarteagaf Va por buen camino
Gracias Jhonny por tus respuestas, efectivamente el control tiene activa la opcion Permitir expresiones y he probado de ambas formas con corchetes y sin ellos y aun no funciona....alguna otra sugerencia?

Nuevamente gracias por su tiempo.

Saludos
Responder Con Cita
  #5  
Antiguo 27-01-2009
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Poder: 29
jhonny Va camino a la famajhonny Va camino a la fama
Cita:
Empezado por jcarteagaf Ver Mensaje
Gracias Jhonny por tus respuestas, efectivamente el control tiene activa la opcion Permitir expresiones y he probado de ambas formas con corchetes y sin ellos y aun no funciona....alguna otra sugerencia?

Nuevamente gracias por su tiempo.

Saludos
Prueba cambiando el TfrxSysMemoView por un TfrxMemoView normalito... si no funciona, muestranos el pedazo de codigo, donde haces ese cambio.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Tengo un problema con una expresion en delphi 6 mp3968 Internet 1 17-05-2007 19:25:12
Problema con variable en FastReport JULIOCTORRESG Impresión 5 03-10-2006 14:22:44
Problema al evaluar una expresión matemática JesusG Varios 2 08-09-2006 15:41:46
Problema al imprimir con Fastreport serhasae Varios 0 08-08-2005 14:51:37
Problema con FastReport scooterjgm Impresión 4 21-09-2004 14:01:09


La franja horaria es GMT +2. Ahora son las 14:07:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi