Ver Mensaje Individual
  #8  
Antiguo 27-10-2004
chele chele is offline
Miembro
 
Registrado: feb 2004
Posts: 83
Reputación: 23
chele Va por buen camino
La cosa es que yo no lo llamo desde un datafield propiamente dicho, si no mas
bien desde :

Código PHP:
cadenaSQL := 'select distinct facturagastoext.gastoext, expedientes.refcomp as referencia, nombre as nombre, apellidos as apellidos,'
+ ' porciva as iva, FacturasCias.codexp as codexp, FacturasCias.CODFAC as numerofactura,'
+ 'femision as fecha,  compania.nombre as a, direccion as b, cp as c, provincia as d, poblacion as e,'
+ ' nif as f, codhonor as a1, facturagastoext.gastoext as pago,honormedcol as honorarios,'
+ ' (base - honormedcol) as gestion, totfac as total, compania.idioma'

+ ' from ((((compania inner join FacturasCias on compania.codcompania=facturascias.codcia)'
+ ' inner join honorcias on honorcias.codhoncia=FacturasCias.codhonor))'
+ ' inner join facturas on facturas.codexp=FacturasCias.codexp'
+ ' inner join expedientes on FacturasCias.codexp=expedientes.codexp)'
+ ' inner join facturagastoext on facturagastoext.expediente=expedientes.codexp'
+ ' inner join asegurados on expedientes.codaseg=asegurados.codaseg'

 


+ ' where FacturasCias.CODFAC = "'
       
+ inttostr(datamodule2.qryFacturasCiasCODFAC.Value) + '"';

       
qry := TIBQuery.Create(qry);
       
qry.database := datamodule2.database;
       
Qry.SQL.Text := cadenaSQL;
       
qry.open();

        
llistat := Tfactura2.create(Self);
        
llistat.idioma.DataSet :=qry;
        
llistat.QuickRep1.DataSet := qry; 
ME entiendes ???

ASi que no se como hacer lo que me pides luego
Responder Con Cita