Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

функция

 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
OlgaCherry



Joined: 24 Oct 2007
Posts: 12
Location: Вишневская
Occupation: консальтант
Interests: Челябинск

PostPosted: 01 Nov 2007 13:54    Post subject: функция Reply with quote

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

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 ) на экран из этой таблицы и именно из текущей строки ?
Back to top
View user's profile Send private message
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь

PostPosted: 01 Nov 2007 16:43    Post subject: Reply with quote

Добрый день.

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

Или просто написать что-то вроде:
@ 10,20 SAY gr PICTURE "XXXXX" COLOR "N/BG"
_________________
С уважением, Новиков Алексей.
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 01 Nov 2007 18:19    Post subject: Reply with quote

В help к БЭСТ есть функция SayScreen()
Она сделает все как Вам надо
Back to top
View user's profile Send private message Send e-mail
OlgaCherry



Joined: 24 Oct 2007
Posts: 12
Location: Вишневская
Occupation: консальтант
Interests: Челябинск

PostPosted: 02 Nov 2007 10:10    Post subject: Reply with quote

Добрый день !
Подскажите, плиз, как мне вывести много значений из таблицы по моим условиям. Код работает только на вывод 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
Back to top
View user's profile Send private message
vla



Joined: 15 Mar 2005
Posts: 60
Location: Гаклин Владимир Ильич
Occupation: ООО БэстСиб, консультант
Interests: Новосибирск

PostPosted: 02 Nov 2007 10:19    Post subject: Reply with quote

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

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

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

spr_part->( DBCLOSEAREA() ) //закрыли таблицу
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru