• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Приходование одной фирмой расходование другой (ТиС)

  • Автор темы SeverBap
  • Дата начала
S

SeverBap

Кто-нибудь такое делал в ТиС?
У меня получается так:
Необходимо завести дополнительный справочник с правилами обмена в собственных фирмах
(ОрганизацияОтКуда, ОрганизацияКуда, СкладОтКуда, СкладКуда, Наценка)
Далее в документе реализации необходимо дописать проверку на наличее остатков в других фирмах, после которого если нам не хватает товара 1С автоматом должна создать куплю продажу и поступление...
Еще необходимо указать с какой наценкой продается товар "нашей" фирме от "нашей" - где это (и как) можно реализовать автоматом или прийдется в справочнике правил указывать наценка (а если по списку товару нужно разные???)

Или у меня опять велосипед опять проектируется?

Добавлено: Скорее всего туда необходимо добавить бытсрая продажа "Продажа собственной фирме"? (после проверки остатков конечнои выправки сколько необходимо)
 
P

Pro

велосипед...
в ТиС есть механизм продажа собственной фирме, посмотри туда....
 
S

SeverBap

Значит его необходимо доработать (получается только правила забора товара прикрутить в автоматическом режиме!) в реализации

Косяк тот что если склады разные оптовый и розничный!!!!!!
 
V

vbs

А почему не рассматривается документ "ПеремещениеТМЦ" ?
 
S

SeverBap

а что можно перемещать между "разными" фирмами?
 
S

SeverBap

Нет не мой: разные юр. лица! (хоть и собственные)
 
V

vbs

Делал я когда-то подобную штуку. Порылся - не нашел (5 компьютеров утекло с тех пор :RTFM: ). Идея такова (впрочем, лежит на поверхности) :
Исследуются остатки, на них (полностью или выборочно) оформляется приход на фирму 1 (с указанной наценкой),
после чего производится продажа фирме 2 тех же позиций. Помнится, для этого использовался некий фиктивный контрагент,
выступающий вначале поставщиком, затем покупателем, но это optional.
Задача, в общем, несложная, повозиться только придется
 
S

SeverBap

У кого-нибудь есть наработки в этой обасти? :(
 
S

SeverBap

Не могу врубится почему-то цены в формируемой реализации по недостоющим позициям ставит не те ведь впринципе прописал везде все:
Код:
РеализацияСобственнойФирме=Создатьобъект("Документ.Реализация");
РеализацияСобственнойФирме.Новый();
РеализацияСобственнойФирме.ДатаДок = ДатаДок;
РеализацияСобственнойФирме.АвтоВремяНачалоДня();
РеализацияСобственнойФирме.Фирма=ОптФирма;
РеализацияСобственнойФирме.Склад=ОптСклад;
РеализацияСобственнойФирме.Контрагент=ПравилаПродажФирмам.КонтрагентПосредник;
Если ПустоеЗначение(ПравилаПродажФирмам.ДоговорПродажи)=1 Тогда
РеализацияСобственнойФирме.Договор=РеализацияСобственнойФирме.Контрагент.Основно
йДоговор;
Иначе
РеализацияСобственнойФирме.Договор=ПравилаПродажФирмам.ДоговорПродажи;
КонецЕсли;
РеализацияСобственнойФирме.ТипЦен=ТипЦенРеализации;
РеализацияСобственнойФирме.Валюта=ТипЦенРеализации.Валюта;
РеализацияСобственнойФирме.УчитыватьНП=ТипЦенРеализации.ЦенаВклНП;
РеализацияСобственнойФирме.УчитыватьНДС=ТипЦенРеализации.ЦенаВклНДС;
// уникальные реквизиты шапки
РеализацияСобственнойФирме.КодОперации = глКО.Продажа;
РеализацияСобственнойФирме.ДатаОплаты  = ДатаДок;
РеализацияСобственнойФирме.ЗагрузитьТабличнуюЧасть(ТаблицаНедостатков);
//**************************
// Цикл по всем товарам в документе
РеализацияСобственнойФирме.ВыбратьСтроки();
Пока РеализацияСобственнойФирме.ПолучитьСтроку() = 1 Цикл
ТекТМЦ = РеализацияСобственнойФирме.Номенклатура;
// Получаем цену
ПЦена = 0;
ПЕдиницаКонт = РеализацияСобственнойФирме.Единица;
ПЕдиницаЦены = ПЕдиницаКонт;						 
ПВалютаЦены  = ТипЦенРеализации.Валюта; 
ПЦенаВклНП	= ТипЦенРеализации.ЦенаВклНП; 
ПЦенаВклНДС  = ТипЦенРеализации.ЦенаВклНДС;
Если глВернутьЦену(ТекТМЦ, РеализацияСобственнойФирме.ТипЦен, РеализацияСобственнойФирме.ДатаДок, ПЦена, ПЕдиницаЦены, ПВалютаЦены) = 1 Тогда
// Приводим к одной единице (если в документе она есть)
Если ПЕдиницаЦены.Коэффициент <> РеализацияСобственнойФирме.Коэффициент Тогда
Если ПЕдиницаЦены.Коэффициент <> 0 Тогда
ПЦена = (ПЦена * РеализацияСобственнойФирме.Коэффициент) / ПЕдиницаЦены.Коэффициент;
КонецЕсли;
КонецЕсли;
глПересчитатьЦенуВДокументе(РеализацияСобственнойФирме, РеализацияСобственнойФирме.УчитыватьНП, РеализацияСобственнойФирме.УчитыватьНДС, ПЦена, ПВалютаЦены, ПЦенаВклНП, ПЦенаВклНДС);
Иначе
РеализацияСобственнойФирме.Цена = 0;
КонецЕсли; 
КонецЦикла;
глПересчетТаблЧасти(РеализацияСобственнойФирме,"Цена");
РеализацияСобственнойФирме.Комментарий = "Продажа собственной фирме";
РеализацияСобственнойФирме.Записать();
РеализацияСобственнойФирме.Провести();
Если РеализацияСобственнойФирме.Проведен() = 0 Тогда
ОтменитьТранзакцию();
Возврат;
КонецЕсли;
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!