Report

[Francisco Horta]

apens si empiezo a usar la report y me topo con una cuestion, parece facil pero si alguien me puede echar una manita muy agradecido,
voy a sacar un reporte de una dbf, hasta ahi todo bien, pero tengo una condicion de un campo si se cumple que lo imprima y si no pues no, con la tprinter lo hago metiendo un if dentro del while, aca que me recomiendan?
salu2
Paco

[jose_murugosa]

No entiendo bien, pero si la consulta es como hacer para que seleccione que registros de la base imprimir de acuerdo a una condición:

PRINTER FROM USER
REPORT oReport;
TITLE "**Listado**" ,;
.........
.........
ACTIVATE REPORT oReport;
FOR BASE->campo = "lo que sea"

No se si entendi tu necesidad pero quedo a tus órdenes.

[leandro]

Amigo creo que esto es lo que necesitas

Code: Select all  Expand view  RUN

REPORT oRepor1 PREVIEW;
  TITLE "OMALDY LTDA. ","NIT : 830.118.492-1 ","Reportes Bonos Lideres","Campaña:"+oR3vg1+" - Zona:"+oR3vg2+"-"+Noz;
  HEADER "Fecha: "+dtoc(date())+space(44)+"Hora:  "+time() ;
  FOOTER "Página: "+str(oRepor1:nPage,3);
  CAPTION "Reportes Bonos Lideres"

  SELE tRep3
  DBGOTOP()
  COLUMN DATA tRep3->Cedula  TITLE "Cedula" SIZE 10 LEFT
  COLUMN DATA tRep3->Nombre  TITLE "Nombre" SIZE 30 LEFT
  COLUMN DATA IF(tRep3->Valor#0,tRep3->Valor," ") TITLE "Total Pedido" PICTURE "999,999,999.99" SIZE 10 RIGHT
  COLUMN DATA IF(tRep3->Valor#0,tRep3->Cantidad," ") TITLE "Devoluciones" PICTURE "999,999,999.99" SIZE 10 RIGHT
  COLUMN DATA IF(tRep3->Valor#0,tRep3->Vrprom," ") TITLE "Vr.Bono" PICTURE "999,999,999.99" SIZE 10 RIGHT

END REPORT
ACTIVATE REPORT oRepor1


Espero te sirva

[Francisco Horta]

Gracias a ambos, perfecto con su ayuda y la de armando, eso mero buscaba
salu2
Paco