ayuda para poder generar al impresion de un tickes

[[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

[microbiano]

sin funcionar jeje ya intente ponerle al campo el dataset de la siguiente manera

fticket.txtcantidad.dataset:=ffactura.qry_ticket;
fticket.txtcantidad.dafafield:=fieldByname('cantidad'). asvariant

y sigue sin funcionar ummm me pregunto que de plano voy a utilizar canvas jejeje espero que no jejeje

[[Caral]]

Hola
Una pregunta tonta:
Tienes enlazados los QRDBText con el Qry_tiquet ?.
Lo digo por que si no muestra nada pero no da error es que los encuentra pero no los muestra.
Saludos

[microbiano]

bueno mi estimado amigo CARAL. gracias por la ayuda hasta ahora prestada de verdad y gracias por comparit la aplicacion de facturacion me sivio de mucho te comento que si tengo enlazados los QRDBTExt al query sin embargo no lo hacia sabes que tuve que hacer volverlos a enlazar por medio de codigo como aqui te muestro y tambien tuve que cambiar la manera de asignar el campo.

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

 if wfactura_a_imprimir<>0 then
  begin
   Application.CreateForm(TFticket, Fticket);
   //Fticket.Dataset:= Fticket.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.DataSet:=Fticket.Qry_ticket;
      Fticket.txtcantidad.DataSet:=Fticket.Qry_ticket;
      Fticket.txtcantidad.DataField:=('cantidad');
      Fticket.txtdescripcion.DataSet:=Fticket.Qry_ticket;
      Fticket.txtdescripcion.DataField:=('preciounitario');
      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;

aun asi muchas gracias mi estimado amigo, te molestare en cuanto se me vuelva a atravesar el chamaco jejeje