Report

Report

Postby Francisco Horta » Wed Nov 29, 2006 4: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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Postby jose_murugosa » Wed Nov 29, 2006 5: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. :D
Saludos/Regards,
José Murugosa
"Los errores en programación, siempre están entre la silla y el teclado y la IA!!"
User avatar
jose_murugosa
 
Posts: 1181
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Amigo creo que esto es lo que necesitas..

Postby leandro » Wed Nov 29, 2006 8:05 pm

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
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1682
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Postby Francisco Horta » Wed Nov 29, 2006 10:25 pm

Gracias a ambos, perfecto con su ayuda y la de armando, eso mero buscaba
salu2
Paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 55 guests