Problemas con query y parametros

[ContraVeneno]

no pongas el query con el quickreport
ponlo en el formulario principal o puedes usar un módulo de datos

[Petolansa]

Buenas gente aca de nuevo, realmente no se que es lo que puede estar pasando, las sentencias sql estan bien y uso el siguiente codigo para asignarle valores a los parametros y no me da error, ni nada, asigne a todos los dbtext el query2 que es el que corresponde y al reporte le asigno el dataset que es el query2.
Que mas puede ser, porque lo unico que hace es mostrarme el form del reporte pero no aparece nada!

uso este codigo, realmente no le encuentro error, como me dijo contraveneno, y tampoco veo nada raro, cuando me fijo en las propiedades del query me aparecen lo dos parametros 0-nrofact y 1-tipofact

este es el codigo sql

Código SQL [-]
SELECT F.NumFactura, F.Fecha, F.Clicod, F.Efectivo, F.Ctacte, F.Tarjeta, F.Tipofac , F.Emplecod, F.SubTotal, F.Descuento, F.importetotal, 
C.Clinom, C.Clidom, C.Clicuit, C.Clitel,
FD.Codipro,  FD.Concepto, FD.Cantidad, FD.Precio
FROM Stock S
JOIN Facturadetalle FD ON S.Procod = FD.Codipro
JOIN Factura F ON (FD.Tipofac = F.Tipofac AND FD.Numfactura = F.Numfactura) 
JOIN Clientes C ON F.Clicod = C.Clicod
WHERE F.Numfactura= :Nrofact AND F.Tipofac= :TipoFact

este es el codigo para acceder al reporte

Código Delphi [-]
    
    try
    qrfactura:=tqrfactura.Create(self);
    Query2.Params.ParamByName('Nrofact').Value := numfa;
    Query2.Params.ParamByName('Tipofact').Value := tipofa;
    Query2.Open;
    qrfactura.preview;
    finally
    qrfactura.Free;
    end;

Lo que hice es convertir las variables numfa y tipofa y
mostrarlas en dos qrlabel para comprobar que si tiene los
valos que quiero
y si los tienen.

Que se puede estar escapando?

Gracias, disculpen la molestia.

[Petolansa]

Buenas gente, yo de nuevo, disculpen, se que me ayudaron bastante, pero estoy haciendo lo mismo una y otra vez y no logro que me muestre en un reporte los datos que le pido, nada da error, que me puede estar faltando, existe algo mas por hacer para hacer funcionar un reporte, es la primera vez que hago una factura, hasta ahora vine haciendo listados simples sin consultas.


Gracias y disculpen si actualizo el hilo...

[[duilioisola]]

Antes de seguir, asegúrate de que el select que has puesto devuelve valores.

Imagina que haces esto

Tabla facturas

Factura    campo1   campo2   campo3
     1      AAA      BBB      CCC
     2      AAA      BBB      DDD
     3      JJJ      KKK      LLL
     5      EEE      DDD      NNN

SELECT:

Código SQL [-]
select campo1,campo2,campo3 from facturas
where factura=:factura

Luego le dices que el parámetro factura = 4

Código Delphi [-]
 try
    ...
    qrfactura.Params.ParamByName('factura').Value := 4;
    qrfactura.Open;
    ...
 finally
    qrfactura.Free;
 end;

No te devuelve nada porque no hay ningún registro con factura=4

[[Lepe]]

Cambia la línea:

qrfactura.preview;

por

qrfactura.previewModal;

Preview permite seguir ejecutando las líneas de código, por lo que ejecutará qrFactura.Free destruyendo el informe que quieres visualizar, por ello no ves nada en el informe.

Con PreviewModal, el código se queda parado hasta que se cierre la ventana de previsualizar, y después, se continúa el código.

Saludos

[Petolansa]

Gracias por los consejos, pero al crear el reporte le pase los valres que necesito los de los dos parametros y si me sale, 11 y A que son el numero de factura y el tipo.

Lepe probe poniendo el previewmodal; en vez de .preview y nada!

aca pongo el codigo del boton en el que guardo y quiero imprimir la factura, disculpen si no esta bien programado, es que es mi primer sistemita de prueba.
Despues lo ordenare un poco, Lo que me interesa es que me guarda las en las tablas factura y facturadetalle...tambien me descuenta el stock.
Acepto criticas sobre tabulacion y en caso de que muy desordenado.

Código Delphi [-]
procedure TFrmfdepago.BitBtn1Click(Sender: TObject);
begin
If messagedlg('Los datos de la Factura son correctos?',MTwarning,mbOKCancel,0)<>
  mrok
then
exit
else //Aca gguardo el nro de factura y le incremento uno segun sea el tipo
    case frmtipofac.RadioGroup1.ItemIndex of
      0:begin
      frmtipofac.Query1.Close;
      frmtipofac.Query1.SQL.Clear;
      frmprincipal.Query1.SQL.Add('update contfaca');
      frmprincipal.Query1.SQL.Add('set numfaca='+inttostr(numfaca));
      frmprincipal.Query1.ExecSQL;
    end;
    1:begin
      frmtipofac.Query2.Close;
      frmtipofac.Query2.SQL.Clear;
      frmtipofac.Query2.SQL.Add('update contfacb');
      frmtipofac.Query2.SQL.Add('set numfacb='+inttostr(numfacb));
      frmtipofac.Query2.ExecSQL;
    end;
    2:begin
      frmtipofac.Query2.Close;
      frmtipofac.Query2.SQL.Clear;
      frmtipofac.Query2.SQL.Add('update contfacb');
      frmtipofac.Query2.SQL.Add('set numfacb='+inttostr(numfacb));
      frmtipofac.Query2.ExecSQL;
      end;
    3:begin
      frmtipofac.Query2.Close;
      frmtipofac.Query2.SQL.Clear;
      frmtipofac.Query2.SQL.Add('update contfacb');
      frmtipofac.Query2.SQL.Add('set numfacb='+inttostr(numfacb));
      frmtipofac.Query2.ExecSQL;
    end;
    4:begin
      frmtipofac.Query2.Close;
      frmtipofac.Query2.SQL.Clear;
      frmtipofac.Query2.SQL.Add('update contfacb');
      frmtipofac.Query2.SQL.Add('set numfacb='+inttostr(numfacb));
      frmtipofac.Query2.ExecSQL;
    end;
    end;

//Guarda los datos en la tabla factura
with dmzingueria do begin
      factura.Insert;
      facturanumfactura.Value:=strtofloat(frmfactura.Label12.Caption);
      facturaclicod.Value:=strtofloat(frmfactura.DBText1.Caption);
      facturafecha.Value:=strtodate(fecha);
      facturadescuento.Value:=strtofloat(frmfactura.eddescmonto.Text);
      facturatipofac.Value:=frmfactura.Label9.Caption;
        //Pregunto la forma de pago
        if radiobutton1.Checked then begin
          facturactacte.Value:=strtofloat(currencyedit2.Text);
          facturapagado.Value:=false;
          facturaimportetotal.Value:=strtofloat(currencyedit2.Text)
        end else if radiobutton2.Checked then begin
          facturaefectivo.Value:=strtofloat(currencyedit2.Text);
          facturapagado.Value:=true;
          facturatartipo.Value:='Ninguna';
          facturaimportetotal.Value:=strtofloat(currencyedit2.Text)
        end else if radiobutton3.Checked then
          facturatarjeta.Value:=strtofloat(currencyedit2.Text);
          facturatartipo.Value:=edit3.Text;
          facturatarcupon.Value:=edit1.Text;
          facturaobservacion.Value:=edit2.Text;
          facturaimportetotal.Value:=strtofloat(currencyedit2.Text);
          facturapagado.Value:=true
         end;
      dmzingueria.Factura.Post;


//Guardo los datos en factura detalle
      dmzingueria.facdetalle.Insert;
      frmfactura.MDtemporal.Insert;
      frmfactura.MDtemporal.First;
      while not frmfactura.MDtemporal.Eof do
      begin
      dmzingueria.facdetalle.Append;
      dmzingueria.facdetalleNumfactura.Value:=strtofloat(frmfactura.Label12.Caption);
      dmzingueria.facdetalleTipofac.Value:= frmfactura.Label9.Caption;
      dmzingueria.facdetalleCantidad.Value:=frmfactura.MDtemporalCantidad.Value;
      dmzingueria.facdetalleCodipro.Value:=frmfactura.MDtemporalCodigo.Value;
      dmzingueria.facdetalleConcepto.Value:=frmfactura.MDtemporalDescripcion.Value;
      dmzingueria.facdetallePrecio.Value:=frmfactura.MDtemporalPreciou.Value;
      //dmzingueria.facdetallePrecioneto:=frmfactura.MDtemporal.fieldbyname('total').ascurrency;
      dmzingueria.facdetalle.Post;
      frmfactura.MDtemporal.Next;
      end;
//Actualizo el stock
  frmfactura.Query1.Close;
  frmfactura.Query1.SQL.Text:='Update stock set prostkact=prostkact-rcantidad where procod=rprocod';
  frmfactura.Query1.Prepare;
  frmfactura.MDtemporal.First;
  frmfactura.MDtemporal.DisableControls;
  try
    while not frmfactura.MDtemporal.Eof do
      begin
      frmfactura.Query1.ParamByName('prcantidad').AsFloat:=frmfactura.MDtemporal.fieldbyname('Cantidad').A  sFloat;
      frmfactura.Query1.ParamByName('prprocod').AsFloat:=frmfactura.MDtemporal.fieldbyname('codigo').AsFlo  at;
      frmfactura.Query1.ExecSQL;
      frmfactura.MDtemporal.Next;
    end;
      finally
      frmfactura.MDtemporal.First;
      frmfactura.MDtemporal.EnableControls;
       end;

//Aca despues de todo lo mando a imprimir
  try
    if query2.Active then close;
        quickrfactura:=tquickrfactura.Create(self);
       Query2.Params.ParamByName('Nrofact').Value := numfa;
        Query2.Params.ParamByName('Tipofact').Value := tipofa;
        quickrfactura.QRLabel1.Caption:=floattostr(numfa);//ACA LE PASO ESTAS VARIABLES Y ME LAS MUESTRA EN EL REPORT
        quickrfactura.QRLabel2.Caption:=(tipofa);         //COMPRUEBO QUE NO ESTAN VACIAS Y ME MUESTRA LA ULTIMA FACTURA QUE POSTIE ARRIBA
        Query2.Open;
        quickrfactura.PreviewModal;
    finally
        quickrfactura.Free;
    end;

Desde ya muchas gracias por su atencion.

[[Lepe]]

Para guardar se usa tabla.Post, pero tú has usado ¿tabla.Insert? ¿insertar un nuevo registro? ... eso provocará guardar el registro actual, pero no creo sea correcto.

El "case" ese grande, se resume en este:

Código Delphi [-]
const sqlU = 'update contfac%s set numfac%s = %d';
var strSQL :string;
begin

  case frmtipofac.RadioGroup1.ItemIndex of
      0: strSQL := Format(sqlU, ['a', 'a',numfaca]
      1,2,3,4: strSQL := Format(sqlU, ['b', 'b',numfacb];
  end;
  frmtipofac.Query1.Close;
  frmtipofac.Query1.SQL.Text := strSQL;
  frmprincipal.Query1.ExecSQL;

El fallo que comentas no lo veo, pero "numfa" no veo donde se le asigna el valor.

Además veo algunos .Insert innecesarios (ya que crea registros en blanco), como por ejemplo aquí:

Código Delphi [-]
//Guardo los datos en factura detalle
      dmzingueria.facdetalle.Insert; // <<<<<<<<<< ¿para qué? si más abajo usas Append
      frmfactura.MDtemporal.Insert; // <<<<<<<<<< ¿para qué? 
      frmfactura.MDtemporal.First;
      while not frmfactura.MDtemporal.Eof do
      begin
      dmzingueria.facdetalle.Append; // <<<<<<<< este si lo veo correcto.

Saludos