topic-5127

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Report
Posted: Wed Nov 29, 2006 04:56 PM

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

____________________

Paco

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

Report
Posted: Wed Nov 29, 2006 05:33 PM

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.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Amigo creo que esto es lo que necesitas..
Posted: Wed Nov 29, 2006 08:05 PM

Amigo creo que esto es lo que necesitas

Code: Select all Collapse

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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Report
Posted: Wed Nov 29, 2006 10:25 PM

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

____________________

Paco

FiveTech Support Forums

Continue the discussion