Código SQL [-] DM.CONSULTA.SQL.Add('UPDATE CLIENTES SET ULT_FECHA= :F1 WHERE COD_CLIENTE='+inttostr(CLIENTE)); Dm.Consulta.ParamByName('F1').AsDate:=Fecha; Dm.Consulta.ExecSql;
DM.CONSULTA.SQL.Add('UPDATE CLIENTES SET ULT_FECHA= :F1 WHERE COD_CLIENTE='+inttostr(CLIENTE)); Dm.Consulta.ParamByName('F1').AsDate:=Fecha; Dm.Consulta.ExecSql;