Visual FoxPro таблица

[*stRong*]

Добрый вечер, учусь создавать БД на VFP. Столкнулся с такой задачей: Нужно создать базу данных, в которой имеется 2 таблицы:
1)Сотрудники(фио, номер, должность, стаж)
2)Штат(должность, оклад)

Исходя из этих двух таблиц нужно сформировать третью - Зарплата(Фио, оклад, премия, итоговая зарплата)

Зарплата= оклад + премия. Премия зависит от стажа работы: до 5 лет - 50% от оклада, от 5 до 10 -75%, 10 и более - 100%

Две таблицы (сотруд. и штат) я создал и связал, теперь не могу понять каким образом сформировать третью таблицу? Может есть идеи как решить данную задачку?

P.S. задачу нужно решить без SQL-команд, только средствами языка FoxPro.

[Stilet]

задачу нужно решить без SQL-команд, только средствами языка FoxPro.

По твоему Select не является командой Фокспро? Чем SQL не угодил? Это же сердце Фокспро, без него нет смысла работать с базами.
Впрочем тебе нужно изучить команду SET RELATION.

[*stRong*]

По твоему Select не является командой Фокспро? Чем SQL не угодил? Это же сердце Фокспро, без него нет смысла работать с базами.
Впрочем тебе нужно изучить команду SET RELATION.

SET RELATION я и так использовал для связи таблиц, SELECT тоже использовал для выделеия области под таблицу, но третью таблицу я получить не могу...

Чем SQL не угодил?

Мне он ничего плохого не сделал) Преподаватель сказал, что использовать только те команды,не используя SQL запросы, которые были даны на лекциях, на лекциях мы изучали циклы, ветвления, массивы, способы связи таблиц.

Есть идеи какие-нибудь? Буду очень благодарен.

[Stilet]

Может есть идеи как решить данную задачку?

Хм... С потолка, ибо твоих таблиц у меня нет:

CREATE TABLE Zp (Fio C(50), oklad n(5,2), prem n(5,2), itogo n(7,2))
while not eof(sotrudn)  
   APPEND BLANK
   aprem=iif(sotrudn.stag<5,oklad/2,iif(sotrudn.stag>5 and  sotrudn.stag<10,oklad*2/3,oklad))
   REPLACE fio WITH sotrudn.fio, oklad WITH stat.oklad, Prem  WITH aprem,itogo WITH aprem+oklad
   skip(sotrudn); 
ENDFOR

Ито это еще нужно попробовать, я давно уже на таком уровне с Лисичкой не работал, всего не упомню.

[*stRong*]

Stilet, спс, но в строчке while not eof(sotrud) вылетает ошибка unrecognized command verb. Видимо синтаксис неверый, искал в чем ошибка - не нашел Может вы знаете как это исправить?

Так, с этим разобрался, правильная запись DO WHILE NOT EOF, но теперь ругается "Variable 'SOTRUD' not found", видимо пытается принять имя таблицы за имя переменной, есть мысли, как это подкорректировать?

[Stilet]

Дык вставь в параметр EOF имя таблицы сотрудников. Или Алиас. Смотря как ты ее открываешь.
Загляни в хелп фокса - там примеры есть по работе циклов и проходе по таблице.

[*stRong*]

Дык вставь в параметр EOF имя таблицы сотрудников. Или Алиас. Смотря как ты ее открываешь.

Это понятно, но выдается ошибка, ели что-то в скобках пишу.

Вот что получилось (а точнее не получилось, код ошибок не выдает, но в таблицу с зарплатой ничего не записывается)

Мои таблицы: [IMG][/IMG]

Вот получившийся код:

close tables
SELECT 1
USE sotrud
INDEX ON dol TO dol
SELECT 2
USE shtat
SET RELATION TO dol INTO 1


CREATE TABLE Zp (Fio C(15), oklad n(6), prem n(6), itogo n(7))
do while not eof()
  APPEND BLANK
  aprem=iif(A.staj<5,oklad/2,iif(A.staj>5 and  A.staj<10,oklad*2/3,oklad))
   REPLACE fio WITH A.fio, oklad WITH shtat.oklad, Prem  WITH aprem,itogo WITH aprem+oklad
  SKIP
 ENDDO

Помогите разобраться, по какой причине данные не записываются в новую таблицу?

[*stRong*]

Попытался разобраться, но все мои попытки не привели к успеху, может кто-нибудь знает, почему не работает код?

[Stilet]

А выложи ка свои таблицы сюдыть...

[Аватар]

У вас сплошная путаница c рабочими областями и использованием псевдонимов в функциях и командах. С фоксом давно не работал, CREATE TABLE кажется меняет рабочую область, тогда следующая команда по ней отрабатывает, а не по рабочей области 1. В результате сразу выход из цикла.