Etiqueta vacia VS etiqueta con datos

[ainhara123]

Hola buenos días, os cuento mi problema:

Tengo un Report en el que tengo 2 etiquetas de direcciones dentro del MasterData: BandaMaestra1:

[DET. DIRECCIONES."DIRECCION"]
[DET. DIRECCIONES AUXILIAR."DIRECCION"]

Todos los usuarios tienen dirección, pero alguno tiene la dirección auxiliar. Y estoy buscando la forma de sustituir una por otra cuando exista la dirección auxiliar, o de poner una visible y otra invisible. El caso es que cuando haya dirección Auxiliar se tiene que mostrar.

Me he metido con el código y he copiado esta base:


procedure BandaMaestra1OnBeforePrint(Sender: TfrxComponent);
begin
if <DET. DIRECCIONES AUXILIAR."DIRECCION"> <> ' ' then
begin
// No se que poner aquí para que me muestre la etiqueta DireccionesAuxiliar.Dirección en vez de Direcciones.Dirección
end
else
begin

end;
end;

begin
end.



Como podeis comprobar seguro que tengo muchos fallos. De hecho no se ni siquiera si está bien "procedure BandaMaestra1OnBeforePrint". Quiero que me lo haga en todos los usuarios listados, pero no tengo ni idea. Si que manejo algo otros lenguajes de programación como HTML, Visual, ... pero aquí estoy perdidísimo.

Si alguien me puede echar una mano se lo agradecería.

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias



En cuanto a tu pregunta, en un rato te contesta algún forero que conoce ese tema.
Saludos.

[ainhara123]

Hola, la verdad que no me había leido la guía, pero ahora le echo un ojo. Gracias por la aclaración.

[[oscarac]]

que te parece si en el qreport en lugar de colocar el campo direccion colocas un "label"
y en el beforeprint la pregunta

pseudocodigo:

Código Delphi [-]
if dm.direccionReal = '' then 
lblDireccion.caption := dm.DireccionAuxiliar 
else 
lblDireccion.caption := dm.DireccionReal

[ainhara123]

Hola Oscarac, muchas gracias por tu ayuda. Lo he traducido a mi código así:

Código Delphi [-]
procedure BandaMaestra1OnBeforePrint(Sender: TfrxComponent);
begin
if DET. DIRECCIONES DE ENVíO."DIRECCION" = '' then      
Memo1.text := DET. CLIENTES."DIRECCION"  
else
Memo1.text := DET. DIRECCIONES DE ENVíO."DIRECCION"      
end;

No me deja poner estos símbolos aqui: <>
Pero me salen las columnas vacías. ¿he hecho algo mal?

[[oscarac]]

si se puede colocar el simbolo <>

Código Delphi [-]
<>

no entiendo que quieres decir con columnas vacias

y que tiene que ver un Memo ahi?

[ainhara123]

Si, en el código puedo poner los símbolos <> sin problema, pero al pegar el mensaje en este foro se me borra lo de dentro, sin mas.

El Memo lo he puesto porque no se cual es el Label, no lo encuentro en mi paleta de botones.

Y con columnas vacías me refiero a que no me carga nada en el Memo.

Te pido disculpas por mi ignorancia, pero es que estoy empezando ahora con esto. Muchas gracias.

[[oscarac]]

no te preocupes
no nacemos sabiendo
el label que te menciono lo encuentras en la paleta del quickreport

si buscas en el FTP del foro encontraras buenos ejemplos sencillos y faciles de entender
que te pueden ayudar a entender mejor este lenguaje

[ainhara123]

Valla... pues creo que no podré hacerlo. Estoy con el FastReport, y es porque es el que viene integrado en el programa de Gestión que estoy tratando de modificar. Se edita desde el propio programa.

Muchas gracias de todas formas.

[[oscarac]]

no he usado el fastreport
pero me imagino que debe ser igual
solo busca en la paleta correspondiente el componente adecuado