#1: функция Author: OlgaCherry, Location: ВишневскаяPosted: 01 Nov 2007 13:54 Привет !
Например у меня такой код. Какая именно функция отвечает за вывод значений
function main()
local gr, num, nm, code
netuse("spr_part",LoadPath()+"\sclad\spr_part.dbf",,.F.)
if (n:=spr_part-> cena_f_v)= 0 .and. (m:=spr_part->cena_p_v)= 0
Alert("Все верно ! Проверка прошла !")
else
Alert("У вас есть значение в карточке по полю валюта ! ")
end
gr:= (spr_part->GRUP)
//qinput(10,25,14,55,,,,,,,,,,,)
return 0
Как именно вывести это значение группы(например, У 1 ) на экран из этой таблицы и именно из текущей строки ?
#2: Author: Behemoth, Location: Новиков Алексей ЮрьевичPosted: 01 Nov 2007 16:43 Добрый день.
Смотря как Вы хотите вывести это значение.
В самом простом случае можно использовать функцию
dispoutat(nLine,nCol,cText,cColor)
nLine и nCol - y и x координаты
cText - строка, которая выводится
cColor - цвет
Или просто написать что-то вроде:
@ 10,20 SAY gr PICTURE "XXXXX" COLOR "N/BG"
#3: Author: nordk, Location: Горбунов КонстантинPosted: 01 Nov 2007 18:19 В help к БЭСТ есть функция SayScreen()
Она сделает все как Вам надо
#4: Author: OlgaCherry, Location: ВишневскаяPosted: 02 Nov 2007 10:10 Добрый день !
Подскажите, плиз, как мне вывести много значений из таблицы по моим условиям. Код работает только на вывод 1 значения! Может быть я неправильно организовала свои циклы ???
function main()
local gr, num, nm
altd()
netuse("spr_part",LoadPath()+"\sclad\spr_part.dbf",,.F.)
if (n:=spr_part-> cena_f_v) <> 0 .and. (m:=spr_part->cena_p_v) <> 0
while !EOF()
for i:=1 TO (spr_part-> cena_f_v)
Alert("У вас есть значения в карточке по полю валюта ! Рекомендуется не вводить туда значения !")
gr:= (spr_part->GRUP)
num:= (spr_part->NNUM)
nm:= (spr_part->NAME)
n = DIALOG({"Группа ","Ном номер ", "Наименование "},
{gr,num,nm},{"99999","99999","9999999999999999"},"Данные по карточке партии ",{0,0,0})
next i
enddo
else
Alert("Проверка прошла! Все верно !")
end
return 0
#5: Author: vla, Location: Гаклин Владимир ИльичPosted: 02 Nov 2007 10:19 Для начала нужно организовать перебор записей в spr_part, примерно так: