|
0 / 0 / 0
Регистрация: 14.09.2007
Сообщений: 428
|
|
| 1 | |
Приходование одной фирмой расходование другой (ТиС)09.02.2010, 11:12. Показов 16102. Ответов 10
Метки нет (Все метки)
У меня получается так: Необходимо завести дополнительный справочник с правилами обмена в собственных фирмах (ОрганизацияОтКуда, ОрганизацияКуда, СкладОтКуда, СкладКуда, Наценка) Далее в документе реализации необходимо дописать проверку на наличее остатков в других фирмах, после которого если нам не хватает товара 1С автоматом должна создать куплю продажу и поступление... Еще необходимо указать с какой наценкой продается товар "нашей" фирме от "нашей" - где это (и как) можно реализовать автоматом или прийдется в справочнике правил указывать наценка (а если по списку товару нужно разные???) Или у меня опять велосипед опять проектируется? Добавлено: Скорее всего туда необходимо добавить бытсрая продажа "Продажа собственной фирме"? (после проверки остатков конечнои выправки сколько необходимо)
0
|
|
(| 09.02.2010, 11:12 | |
|
Ответы с готовыми решениями:
10
Собрал сборку за 27000 тис.грн.Посоветуйте может что взять лучше?Бюджет-30000 тис Приходование(проведение) Документов без Ключа(hasp) Переход от одной формы к другой и ошибка при закрытии одной из них |
Сообщение от Bap
|
0 / 0 / 1
Регистрация: 22.06.2013
Сообщений: 9
|
|
| 09.02.2010, 13:17 | 8 |
|
Делал я когда-то подобную штуку. Порылся - не нашел (5 компьютеров утекло с тех пор :RTFM: ). Идея такова (впрочем, лежит на поверхности) :
Исследуются остатки, на них (полностью или выборочно) оформляется приход на фирму 1 (с указанной наценкой), после чего производится продажа фирме 2 тех же позиций. Помнится, для этого использовался некий фиктивный контрагент, выступающий вначале поставщиком, затем покупателем, но это optional. Задача, в общем, несложная, повозиться только придется
0
|
|
|
0 / 0 / 0
Регистрация: 14.09.2007
Сообщений: 428
|
|
| 11.02.2010, 16:36 | 11 |
|
Не могу врубится почему-то цены в формируемой реализации по недостоющим позициям ставит не те ведь впринципе прописал везде все:
Код
РеализацияСобственнойФирме=Создатьобъект("Документ.Реализация");
РеализацияСобственнойФирме.Новый();
РеализацияСобственнойФирме.ДатаДок = ДатаДок;
РеализацияСобственнойФирме.АвтоВремяНачалоДня();
РеализацияСобственнойФирме.Фирма=ОптФирма;
РеализацияСобственнойФирме.Склад=ОптСклад;
РеализацияСобственнойФирме.Контрагент=ПравилаПродажФирмам.КонтрагентПосредник;
Если ПустоеЗначение(ПравилаПродажФирмам.ДоговорПродажи)=1 Тогда
РеализацияСобственнойФирме.Договор=РеализацияСобственнойФирме.Контрагент.Основно
йДоговор;
Иначе
РеализацияСобственнойФирме.Договор=ПравилаПродажФирмам.ДоговорПродажи;
КонецЕсли;
РеализацияСобственнойФирме.ТипЦен=ТипЦенРеализации;
РеализацияСобственнойФирме.Валюта=ТипЦенРеализации.Валюта;
РеализацияСобственнойФирме.УчитыватьНП=ТипЦенРеализации.ЦенаВклНП;
РеализацияСобственнойФирме.УчитыватьНДС=ТипЦенРеализации.ЦенаВклНДС;
// уникальные реквизиты шапки
РеализацияСобственнойФирме.КодОперации = глКО.Продажа;
РеализацияСобственнойФирме.ДатаОплаты = ДатаДок;
РеализацияСобственнойФирме.ЗагрузитьТабличнуюЧасть(ТаблицаНедостатков);
//**************************
// Цикл по всем товарам в документе
РеализацияСобственнойФирме.ВыбратьСтроки();
Пока РеализацияСобственнойФирме.ПолучитьСтроку() = 1 Цикл
ТекТМЦ = РеализацияСобственнойФирме.Номенклатура;
// Получаем цену
ПЦена = 0;
ПЕдиницаКонт = РеализацияСобственнойФирме.Единица;
ПЕдиницаЦены = ПЕдиницаКонт;
ПВалютаЦены = ТипЦенРеализации.Валюта;
ПЦенаВклНП = ТипЦенРеализации.ЦенаВклНП;
ПЦенаВклНДС = ТипЦенРеализации.ЦенаВклНДС;
Если глВернутьЦену(ТекТМЦ, РеализацияСобственнойФирме.ТипЦен, РеализацияСобственнойФирме.ДатаДок, ПЦена, ПЕдиницаЦены, ПВалютаЦены) = 1 Тогда
// Приводим к одной единице (если в документе она есть)
Если ПЕдиницаЦены.Коэффициент <> РеализацияСобственнойФирме.Коэффициент Тогда
Если ПЕдиницаЦены.Коэффициент <> 0 Тогда
ПЦена = (ПЦена * РеализацияСобственнойФирме.Коэффициент) / ПЕдиницаЦены.Коэффициент;
КонецЕсли;
КонецЕсли;
глПересчитатьЦенуВДокументе(РеализацияСобственнойФирме, РеализацияСобственнойФирме.УчитыватьНП, РеализацияСобственнойФирме.УчитыватьНДС, ПЦена, ПВалютаЦены, ПЦенаВклНП, ПЦенаВклНДС);
Иначе
РеализацияСобственнойФирме.Цена = 0;
КонецЕсли;
КонецЦикла;
глПересчетТаблЧасти(РеализацияСобственнойФирме,"Цена");
РеализацияСобственнойФирме.Комментарий = "Продажа собственной фирме";
РеализацияСобственнойФирме.Записать();
РеализацияСобственнойФирме.Провести();
Если РеализацияСобственнойФирме.Проведен() = 0 Тогда
ОтменитьТранзакцию();
Возврат;
КонецЕсли;
0
|
|
| 11.02.2010, 16:36 | |
| 11.02.2010, 16:36 | |
|
Помогаю со студенческими работами здесь
11
Использование двух записей одной таблицы в одной записи другой Как привязать несколько записей из одной таблица к одной записи в другой таблице Заявка на расходование средств
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
