[[Caral]]

Hola
Me estoy haciendo viejo, cada vez veo menos:

Código Delphi [-]
sqlFactura.SQL.Clear;
sqlFactura.SQL.Text:= 'SELECT numefact AS Factura, sum(valor) AS Valor,'+
                   'fechinivig AS Inicio_Vigencia, fechfinvig AS Fin_Vigencia' +
                   'FROM factura' +
                   'WHERE cedula = :sCedula and sum(valor) <> 0 and compania ='+     
                   ':sCompania and producto = :sProducto' +
                   'GROUP BY cedula, numefact, fechinivig, fechfinvig,'+
                   'compania, producto' +                                             
                   'ORDER BY cedula, fechinivig' +
sqlFactura.ParamByName('sCedula').AsString := F_Recaudos.eCedula.Text;
sqlFactura.ParamByName('sCompania').AsString := F_Recaudos.cbxCompania.Text;
sqlFactura.ParamByName('sProducto').AsString := F_Recaudos.cbxProducto.Text;
sqlFactura.Open;

Saludos