ayuda para poder generar al impresion de un tickes

[microbiano]

ya pude abrir tu archivo jejeje hasta ahora en la oficina pero la verdad no tengo idea que te parece impresion con el canvas?, o alguna idea de como pasar lso datos del StrinGrid al quickReport?

[[Caral]]

Hola
Me imagino que el stringrid lo cargas con los datos de la bd usando ado.
Pues es lo mismo en el qreport, se cargan los datos con ado.
No se que mas decirte.
Saludos

[microbiano]

si lo se pero por ejemplo en el TStringGrid tengo datos calculado por ejemplo el total por articulo, entonces eso es lo que no se como enviarlo al quick report en unos minutos te paso un codigo que quise intentar y no me sale :-(

[[Caral]]

Hola
Vale, lo espero a ver si entiendo.
Saludos

[microbiano]

les comento como esta resulta que puse un Reporte con lo siguiente

1 banda de tipo : rbColumnHeader
1 banda de tipo: rbDetail
1 banda de tipo: rbTitle

el reporte esta enlazado a un adoquery, de tipo dinamico

bueno pues en la banda de tipo detalle puse un componente QRDTExt de nombre txtcantidad.

ahora bien en un boton para imprimir pongo el siguiente codigo.

Código Delphi [-]
procedure TFfactura.btn3Click(Sender: TObject);
begin

 if wfactura_a_imprimir<>0 then
  begin
    Application.CreateForm(TFticket, Fticket);
    Fticket.show;
   with Fticket.Qry_ticket do
    begin
      sql.Clear;
      SQL.Add('select * from facturaItem');
      sql.Add('where nofac=factura');
      Parameters.ParamByName('pfactura').Value:=wfactura_a_imprimir;
      try
       Open;
       if not Fticket.Qry_ticket.IsEmpty then
         begin
           while not Fticket.Qry_ticket.Eof do
           begin
            Fticket.txtcantidad.Caption:=FieldByname('cantidad').AsVariant;
            Fticket.Refresh;
             Next;
           end;
          Fticket.Preview;
          Fticket.Free;
         end;
       except
        on E:EOleException do
         begin
          MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
         end;
       end;
    end;  
  end;  
end;

se supone tendria que actualizar los datos del reporte pero me muestra el reporte en blanco

[[Caral]]

Hola
A ver asi:

Código Delphi [-]
procedure TFfactura.btn3Click(Sender: TObject);
begin
 if wfactura_a_imprimir<>0 then
  begin
    Application.CreateForm(TFticket, Fticket);
  //  Fticket.show;
   Fticket.Dataset:= Qry_ticket;
   with Fticket.Qry_ticket do
    begin
      sql.Clear;
      SQL.Add('select * from facturaItem');
      sql.Add('where nofac=factura');
      Parameters.ParamByName('pfactura').Value:=wfactura_a_imprimir;
      try
       Open;
       if not Fticket.Qry_ticket.IsEmpty then
         begin
           while not Fticket.Qry_ticket.Eof do
           begin
            Fticket.txtcantidad.Caption:=FieldByname('cantidad').AsVariant;
            Fticket.Refresh;
             Next;
           end;
          Fticket.Preview;
          Fticket.Free;
         end;
       except
        on E:EOleException do
         begin
          MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
         end;
       end;
    end;
  end;  
end;

Saludos

[microbiano]

ummm sin funcionar, seguire intentando haber cual es el problema

[[Caral]]

Hola

Código Delphi [-]
procedure TFfactura.btn3Click(Sender: TObject);
begin
 if wfactura_a_imprimir<>0 then
  begin
   Application.CreateForm(TFticket, Fticket);
   Fticket.Dataset:= Qry_ticket;
   with Fticket.Qry_ticket do
    begin
      sql.Clear;
      SQL.Text:= 'select * from facturaItem where nofac = :Tfactura';
      Parameters.ParamByName('Tfactura').Value:=wfactura_a_imprimir;
      Open;
      try
      if not Fticket.Qry_ticket.IsEmpty then
      begin
      Fticket.txtcantidad.Caption:= FieldByname('cantidad').Value;
      Fticket.Preview;
      finally
      Fticket.Free;
      end;
      except
        on E:EOleException do
         begin
          MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
         end;
    end;
end;

Saludos