esto es lo que tengo en mi componente FIBDataset en el UPdateSQL
UPDATE FACTURAS
SET FOLIO=:FOLIO,
FECHA=:FECHA,
CLIENTE=:CLIENTE,
CONCEPTO=:CONCEPTO,
TOTAL=:TOTAL,
RFC=:RFC,
SUBTOTAL=:SUBTOTAL,
IVA=:IVA,
DOMICILIO=
OMICILIO,
CIUDAD=:CIUDAD,
DIA=
IA,
MES=:MES,
ANNO=:ANNO,
ESTADO=:ESTADO,
LETRAS=:LETRAS
WHERE FOLIO=:OLD_FOLIO
y esto en mi componente edit en el evento change
procedure TFrm_ConsultaCliente.Edt_NombreChange(Sender: TObject);
Var
total:real;
begin
total:=0;
DataModule1.FIBDS_Facturas.Close;
DataModule1.FIBDS_Facturas.SelectSQL.Clear;
DataModule1.FIBDS_Facturas.SelectSQL.Add('select *');
DataModule1.FIBDS_Facturas.SelectSQL.Add('from Facturas');
DataModule1.FIBDS_Facturas.SelectSQL.Add('Where upper(Cliente) like:Cli');
DataModule1.FIBDS_Facturas.SelectSQL.Add('and estado<>"C a n c e l a d a"');
DataModule1.FIBDS_Facturas.SelectSQL.Add('Order by Folio');
DataModule1.FIBDS_Facturas.ParamByName('Cli').asstring:='%'+uppercase(Edt_Nombre.text)+'%';
DataModule1.FIBDS_Facturas.Open;
while not DataModule1.FIBDS_Facturas.Eof do
begin
total:=DataModule1.FIBDS_FacturasTotal.Value+Total;
DataModule1.FIBDS_Facturas.Next;
end;
Edit1.Text:=Copy(FormatFloat('#,##0.00',total),0,18);
end;
creo que el campo que me esta dando problemas, es el campo Estado, pero es de tipo texto. No se como es que me da problemas?
Y digo que este campo es el que da problamas porque si elimino de la consulta la opcion de:
DataModule1.FIBDS_Facturas.SelectSQL.Add('and estado<>"C a n c e l a d a"'); el programa corre correctamente.
bueno ese es el problema haber si me puedes ayudar en esto porque la verdad no logro resolver este problema.
Bueno gracias se que cuento con su ayuda.
