функция

[OlgaCherry]

Привет !
Например у меня такой код. Какая именно функция отвечает за вывод значений

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 ) на экран из этой таблицы и именно из текущей строки ?

[Behemoth]

Добрый день.

Смотря как Вы хотите вывести это значение.
В самом простом случае можно использовать функцию
dispoutat(nLine,nCol,cText,cColor)
nLine и nCol - y и x координаты
cText - строка, которая выводится
cColor - цвет

Или просто написать что-то вроде:
@ 10,20 SAY gr PICTURE "XXXXX" COLOR "N/BG"
_________________
С уважением, Новиков Алексей.

[nordk]

В help к БЭСТ есть функция SayScreen()
Она сделает все как Вам надо

[OlgaCherry]

Добрый день !
Подскажите, плиз, как мне вывести много значений из таблицы по моим условиям. Код работает только на вывод 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

[vla]

Для начала нужно организовать перебор записей в spr_part, примерно так:

netuse("spr_part",LoadPath()+"\sclad\spr_part.dbf",,.F.) //открыли таблицу

while !EOF() //организовали цикл
// ваши проверки и диалоги для каждой записи
dbskip() //перешли к следующей записи
enddo

spr_part->( DBCLOSEAREA() ) //закрыли таблицу