Sumar los productos que corresponden a la factura

[JairoC]

Hola gente del foro.... Estoy haciendo un sistema de facturacion. Tengo dos tablas: Facturas(id_factura, numero, totalfactura) Detalle(id_detalle, id_factura, id producto, cantidadproducto, preciounitario, totalproducto). Lo que quiero hacer es: cuando apreto el boton agregar producto, me sume todos los productos q correspoden a esa factura... osea una consulta sql con facturas.id_factura y detalle.id_factura... Gracias....

[ecfisa]

Hola JairoC.

Si no te estoy entendiendo mál, creo que podrías hacer:

Código SQL [-]
SELECT SUM(T1.TOTALPRODUCTO) AS TOTAL
FROM DETALLE T1, FACTURA T2
WHERE T1.ID_FACTURA = T2.ID_FACTURA

O también:

Código SQL [-]
SELECT SUM(T1.TOTALPRODUCTO) AS TOTAL
FROM DETALLE T1
INNER JOIN FACTURA T2 ON T1.ID_FACTURA = T2.ID_FACTURA

Saludos.

[JairoC]

Gracias ecfisa... Ahora me sale un error de que no encuentra el ID_DETALLE...

[JairoC]

TE ENVIO EL CODIGO, PARA QUE VEA SI VOY BIEN ENCAMINADO...

Código Delphi [-]
          begin
             try

             //FACTURA_DE_VENTAS

               DM.IBDataSet_FacturasVentasNUMERO.Value:= DM.IBQuery_NumerosNUMERO.Value;//NUMERO DE FACTURA...
               DM.IBDataSet_FacturasVentasCONDICION.Value:=ComboBox_CondicionVenta.Text;
               DM.IBDataSet_FacturasVentasTIPO_FACTURA.Value:=Label_Factura.Caption;
               DM.IBDataSet_FacturasVentasFECHA.Value:=DTPFecha.Date;
         
               IF ComboBox_Comprador.Text ='CLIENTE' THEN
                   DM.IBDataSet_FacturasVentasID_CLIENTE.Value:= DM.IBDataSet_ClientesID_CLIENTE.Value
               ELSE
                   DM.IBDataSet_FacturasVentasID_EMPLEADO.Value:=DM.IBDataset_EmpleadoID_EMPLEADO.Value;
               //DM.IBDataSet_FacturasVentasID_CAJA
               if CheckBox_Reparto.Checked=True then
                  DM.IBDataSet_FacturasVentasREPARTO.Value:='SI'
               else
                  DM.IBDataSet_FacturasVentasREPARTO.Value:='NO';
               DM.IBDataSet_FacturasVentasESTADO.Value:=1;
               DM.IBDataSet_FacturasVentas.Post;
              //DETALLE_VENTAS

               DM.IBDataSet_DetalleVentasESTADO.Value:=1;
               DM.IBDataSet_DetalleVentasID_FAC_V.Value:= DM.IBDataSet_FacturasVentasID_FAC_V.Value;
               DM.ibdataset_detalleventasPRODUCTO.Value:=DBLookupComboBoxAltaProductoFactura.Text;
               DM.IBDataSet_DetalleVentasPRECIO_UNITARIO.Value:=DM.IBDataSet_ProductosPRECIO_UNITARIO.Value;
               DM.IBDataSet_DetalleVentas.Post;
               DM.Transaction.CommitRetaining;
               ShowMessage('Producto agregado.');
               with (DM.IBQuery_DetalleVenta)do
               begin
                  SQL.Clear;
                  SQL.Add('SELECT SUM(T1.TOTAL) AS TOTALP FROM DETALLE_VENTAS T1, FACTURAS_DE_VENTAS T2 WHERE T1.ID_FAC_V = T2.ID_FAC_V');  
                  // Acá me sale el error...
               end;
               DM.IBDataSet_DetalleVentas.Append;
             except
               DM.IBDataSet_DetalleVentas.Cancel;
               DM.Transaction .RollbackRetaining;
             end;
          end;

[[oscarac]]

puedes colocar como quedo tu consulta?

[[Caral]]

Hola
Tienes un query que se llama IBQuery_DetalleVenta.
Dale doble click y quitale los campos que estan en esa pantalla pequeña.
Saludos

[JairoC]

Gracias!!!! Ahora no sale el error... Cómo hago para guardar el resultado de la suma al campo TOTAL de la tabla FACTURA_DE_VENTAS???

[ecfisa]

Hola JarioC.

Te borré un mensaje por que aparentemente (el código es extenso) contenía el mismo texto que el anterior.
Te ruego que me hagas saber si lo enviaste dos veces por error, así lo borro en forma definitiva o si tenía algún cambio que se me pudiera haber pasado y en ese caso lo restauro.

Muchas gracias.