Imprimir por seleccion?

[danytorres]

Hola a todos los del foro. Actualmente estoy realizando un sistema de impresion de etiquetas utilizo sql, el detalle esta en que realizo una consulta donde me trae unos datos, esos datos son desplegados en un lisbox de alli el usuario selecciona uno, dos o todos, esos datos que escogio los imprimo (cada dato es una etiqueta), hago otra consulta partiendo de lo que selecciono el usuario lo que no se es como hacer la Sql y como saco lo que selecciono el usuario de la lista? agradesco la ayuda, Gracias.


_______________________
Un saludo a todos...

[delphi.com.ar]

Yo tengo un sistema que hace algo similar, y a la hora de imprimir, lo que hace es utilizar el evento OnNeedData del QuickReports, y voy recorriendo el SelectedBookmark.

Saludos!

[danytorres]

Gracias por responder delphi.com.ar, pero nunca e utilizado eso de SelectedBookmark donde lo encuentro y como lo utilizo para imprimir una seleccion que el usuario relise de una consulta, ha estoy utilizando el Rave 5.

________________
Un saludo a todos..

[Marymania]

Danytorres a mi me pasa algo parecido, te cuento que quiero hacer un reporte en el que me muestre los datos que selecciono en DBEdit. Me explico mejor:
Estoy trabajando en la realización de un sistema de inventario en el cual tengo una pantalla de captación que tiene un navegador para mostrar cada uno de los datos y un DBGrid para visualizar todos los datos asociados.
Quiero que los datos que se me muestren en ese momento en los DBEdit o lo mismo la fila de datos que esté seleccionada sean solamente la que se muestren en el modelo de solicitud. Y aquí es cuando viene el problema solo me muestra los datos del primer movimiento en el reporte. Los reportes los hago en el FastReport, quizás en otro programa para hacer reportes sea mas fácil o menos complicado.

Espero que alguien que entre a este foro me ayude tanto a mi como a ti Danytorres, a fin de cuentas los dos queremos algo parecido.

Gracias por leer mi mensaje y muchisimas gracias mas si pueden ayudarme

Saludos a todos de

Marilyn

[[Lepe]]

Hola DanyTorres, hay varias cositas que me gustaría comentar:

Yo usaría un Tchecklistbox, al tiempo de añadir los elementos, se puede usar AddObject en lugar de usar Add, de esta forma harías algo así para rellenar el listbox.

Código Delphi [-]
   Tchecklistbox.items.AddObject( tabla1Campo.AsString, Pointer(tabla1ClavePrimaria.AsInteger);

Para saber los que marcó el usuario, es un simple bucle:

Código Delphi [-]
  str := emptystr;
  for i:=0 to checklistbox.items.count- 1 do
  with checklistbox do
   if Checked[i] then
      str := str + inttostr(Integer(Items.Objects[i]))+ ', ';
  if str <> emptystr then
     delete(str, length(str)-1, 1); // borramos la última coma

Por último el sql a lanzar se crea así:

Código Delphi [-]
   query1.sql.text := ' select * from tabla where ClavePrimaria in ('+ str+')';
   query1.open;

el resultado del sql sería:

Código SQL [-]
 
 select * from tabla where ClavePrimaria in (1,3,33,5);

Suponiendo que la clave primaria está definida como un entero en la base de datos.

Saludos