Релиб / Access / Базы данных / Автоподстановка / Latest Posts

RE: Автоподстановка

Andrey-74 — Mon, 07 May 2007 18:36:44 GMT

Ура! Все работает как надо!
Спасибо Вам огромное!!!!!!!!

RE: Автоподстановка

BoNiM — Mon, 07 May 2007 16:11:07 GMT

В той БД, которую я выложил все работает, следовательно при переносе, что-то не учли или потеряли. Сравнивайте, ищите или выкладывайте базу с таблицами и формами.

RE: Автоподстановка

Andrey-74 — Mon, 07 May 2007 15:07:54 GMT

Не работает. Перенес формы в свою БД. Изменил тип поля на числовой. Cхему данных привел в соответствие. При обновлении поля в форме выдает

Run-time error "13":
Type mismatch

RE: Автоподстановка

Andrey-74 — Mon, 07 May 2007 13:35:54 GMT

Спасибо, пробую разобраться

RE: Автоподстановка

BoNiM — Sun, 06 May 2007 13:18:40 GMT

Если Вы предполагаете работать только с таблицами (формы в приведенной базе отсутствуют), то автоматически заполнять поле "Расц" таблицы "Сведения о ЗП" при формировании записи не получится. Заполнение поля можно осуществить с помощью запроса (см. запрос "Запрос1" в прикрепленном файле) после формирования всех необходимых записей.
Там же, в прикрепленном файле, я набросал ескиз Ваших форм. При выборе товара с помощью комбобокса в подчиненной форме выполняется автоматическое заполнение поля "Расц" (см. процедуру "КодТовара_AfterUpdate").
P.S. Тип поля "Должность" таблицы "Сотрудники" изменил на числовой - Long.
Подкорректировал схему данных.

RE: Автоподстановка

Andrey-74 — Sun, 06 May 2007 00:11:21 GMT

Таблица "ЗПсотр" содержит фамилию и дату начисления зарплаты. Подчиненная таблица "Сведения о ЗП" содержит: наименование изготовленного, количество и тариф. В таблице "Сотрудники" имеется поле "Должность".

Задача для автозаполнения таблицы "Сведения о ЗП":
По фамилии сотрудника распознать его должность и если "Должность"=1, то в поле "Расц" после внесения наименования изделия подставить значение поля "Расц1" из таблицы "Товары". Если "Должность"=2, то "Расц2", 3 - 3.

RE: Автоподстановка

BoNiM — Sat, 05 May 2007 14:24:15 GMT

[quote][b]Andrey-74 (04.05.2007)[/b][hr]Еще нужно иметь возможность автоподстановки не путем умножения а из другого поля (это для расчета сдельной оплаты рабочих, которые в одном изделии выполняют разные операции по разным тарифам). Т.е. рабочему с участка №1 за изделие "А" подставить тариф из поля "Тариф1", рабочему с участка 2 - тариф 2 за это же изделие.[/quote]
При ответе на предыдущий вопрос был использован описаный Вами шаблон, поэтому структура базы и взаимодействие соответствующих форм были видны. Для ответе на этот вопрос , наверное, нужно пройти курсы телепатии. :-)
Если можно, то удалите из копии базы все лишнее, не относящееся к вопросу, сожмите ее, упакуйте архиватором и выложите на форум.

RE: Автоподстановка

Andrey-74 — Fri, 04 May 2007 18:27:02 GMT

Большооооооооооооое спасибо !!!!!!!!!!
Так все просто оказывается. Сколь же зря потрачено рабочего времени на забивание этих циферок годами. А сколько тратят пользователи 1С, когда им нужно что-то с другой наценкой отгрузить - ужас!

Говорила мне мама: "Учи, учи, сынок, Аксесс, не бегай на улицу!"

Me![Цена] = CLng(Me![КодТовара].Column(2)) * (Forms![Заказы по клиентам]![Прайс])

Теперь осталось с зарплатой разобраться, и общение с БД из каторги превратится в наслаждение ;)

RE: Автоподстановка

BoNiM — Fri, 04 May 2007 15:47:03 GMT

Напрашивается такое решение:
1. Создаем таблицу "Статус клиентов" с полями: ID, Статус, Коэффициент.
2. В таблице "Клиенты" вводим дополнительное поле Статус, связанное с полем ID таблицы "Статус клиентов".
3. В форме "Заказы по клиентам" создаем поле со списком "Статус" для выбора статуса клиента с тремя полями ID, статуса и коэффициента.
4. В подчиненной форме сведений заказов вместо
Me![Цена] = Me![КодТовара].Column(2)
процедуры обработки события КодТовара_AfterUpdate
поместить
Me![Цена] = CLng(Me![КодТовара].Column(2) * Forms![Заказы по клиентам]![Статус].Column(2) * 100) / 100

Вообще-то п.4 можно сделать по иному, если учесть, что в таблице "Сведения о заказе" и соответствующей подчиненной форме есть неиспользуемое Вами поле "Скидка". Его можно использовать для размещения коэффициента, а в обработчик события Form_Open формы "Заказы" добавить
Me![Подчиненная форма сведений заказов].Form![Скидка].DefaultValue = """" & Forms![Заказы по клиентам]![Статус].Column(2) & """"
Тогда в поле "Цена" будет отражаться каталожная цена, в поле "Скидка" (или как Вы его назовете) - коэффициент, а в поле "Сумма по строке" - сумма за товар с учетом коэффициента. Но, последнее будет справедливо, если изменить источник данных подчиненной формы сведений о заказах на
SELECT DISTINCTROW [Сведения о заказе].*, CLng(([Количество]*[Цена])*[Скидка]*100)/100 AS [Сумма по строке]
FROM [Сведения о заказе]
И еще, в этом варианте нужно в таблице "Сведения о заказе" и соответствующей подчиненной форме очистить у поля "Скидка" свойства "Условие на значение" и "Сообщение об ошибке".

RE: Автоподстановка

Andrey-74 — Fri, 04 May 2007 12:39:09 GMT

Каталожная цена умножается на 1; 1,3; 1,4, всего три группы клиентов, скидки не использую. У меня сделано так, что в открывающемся списке товаров эти три цены отображаются (чтобы не выискивать из кучи прайс-листов) и я вручную подставляю нужную, по умолчанию подставляется первая.

Еще нужно иметь возможность автоподстановки не путем умножения а из другого поля (это для расчета сдельной оплаты рабочих, которые в одном изделии выполняют разные операции по разным тарифам). Т.е. рабочему с участка №1 за изделие "А" подставить тариф из поля "Тариф1", рабочему с участка 2 - тариф 2 за это же изделие.