var char_sql,rq,:string
begin
char_sql:='SELECT dates, card_id ,mans ,fact_sales ,(mans*15)/0.45 ,fact_sales/mans ,(mans*15)/0.5 ,distill ,mans*15 ,fact_sales*0.45 ,fact_sales*0.5 '+
' FROM CREDIT WHERE Distill>mans*15 AND DATES='''+RQ+''' order by card_id' ;