Динамически что ли?
procedure change-table:
define input parameter ip-table-name as character no-undo.
define variable qh as handle no-undo.
define variable bh as handle no-undo.
define variable fh as handle no-undo.
define variable cquery as char no-undo.
create query qh.
create buffer bh for table ip-table-name.
qh:set-buffers(bh).
cquery = "FOR EACH " + ip-table-name + " WHERE " +
ip-table-name + ".field_name = ""value"".
qh:query-prepare(cquery).
qh:query-open.
qh:get-first.
repeat while not (qh:query-off-end):
fh = bh:buffer-field("wh_num").
if fh:buffer-value = {&old_wh_num} then do TRANSACTION:
qh:get-current(exclusive-lock).
assign fh:buffer-value = {&new_wh_num}.
end.
qh:get-next.
end.
qh:query-close.
end. /* change-table */
Передача имени таблицы
Re: Передача имени таблицы
Последний раз редактировалось dmi 13 май 2013, 22:23, всего редактировалось 1 раз.
Re: Передача имени таблицы
Dmitri Levin and
-
- Старожил
- Сообщения: 98
- Зарегистрирован: 24 мар 2010, 16:20
Re: Передача имени таблицы
Дилетант построил ковчег, а профессионал - Титаник
Re: Передача имени таблицы
Информативно. Спасибо всем
-
- Старожил
- Сообщения: 98
- Зарегистрирован: 24 мар 2010, 16:20
Re: Передача имени таблицы
Дилетант построил ковчег, а профессионал - Титаник