Código Delphi [-] doquery1.close; Adoquery1.sql.text:='select * from MEDICAMENTOS where F_CADUCIDAD < :lafecha + :numerodias'; Adoquery1.Parameters[0].Value := datetimepicker1.date; Adoquery1.Parameters[1].value := strtoint(edit1.text); Adoquery1.open;
doquery1.close; Adoquery1.sql.text:='select * from MEDICAMENTOS where F_CADUCIDAD < :lafecha + :numerodias'; Adoquery1.Parameters[0].Value := datetimepicker1.date; Adoquery1.Parameters[1].value := strtoint(edit1.text); Adoquery1.open;