Уважаемы коллеги, подскажите пожалуйста:У меня конфигурация Торговля+Склад 7.70.948, программа используется в организации которая торгует газетами по киоскам, её надо переделать так чтобы в документах Поступление ТМЦ и Реализация в табличной части была колонка №Выпуска,и в документе реализация №Выпуска автоматически вставал при подборе партии на реализацию, т.е своеобразный партионный учёт.Подскажите как это можно реализовать если можно то по детальней.
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
В табличную часть документа "Поступление ТМЦ" и в справочник "Партии" добавляешь реквизит №Выпуска.
При проведении документа "Поступление ТМЦ" когда он создает новую партию, заполняешь реквизит №Выпуска в справочнике "Партии", по данным из табличной части документа.
В документе Реализация в ручную выбираешь нужную партию.
При проведении документа "Поступление ТМЦ" когда он создает новую партию, заполняешь реквизит №Выпуска в справочнике "Партии", по данным из табличной части документа.
В документе Реализация в ручную выбираешь нужную партию.
В табличную часть документа "Поступление ТМЦ" и в справочник "Партии" я уже добавил реквизит №Выпуска,
В модуль док Поступление ТМЦ я добавил в процедуру Создать партию следующие:
Процедура СоздатьПартию(ПартияИсточник = 0)
Если ПустоеЗначение(Номенклатура) = 1 Тогда
Возврат;
КонецЕсли;
Если ПустоеЗначение(Партия) = 0 Тогда
// если партия уже записана - не трогаем ее!
Возврат;
КонецЕсли;
Если ПустоеЗначение(ПартияИсточник) = 0 Тогда
Если (ПартияИсточник.ГТД.Выбран() = 1)
или (ПартияИсточник.СтранаПроисхождения.Выбран() = 1)
или (ПартияИсточник.Свойство.Выбран() = 1)
или (ПартияИсточник.Выпуск.Выбран() = 1)
Тогда
СпрПартии.ИспользоватьВладельца(Номенклатура);
СпрПартии.Новый();
СпрПартии.ГТД = ПартияИсточник.ГТД;
СпрПартии.СтранаПроисхождения = ПартияИсточник.СтранаПроисхождения;
СпрПартии.Свойство = ПартияИсточник.Свойство;
СпрПартии.Свойство = ПартияИсточник.Выпуск;
Попытка
СпрПартии.Записать();
Исключение
Сообщить(ОписаниеОшибки(),"I");
Возврат;
КонецПопытки;
Партия = СпрПартии.ТекущийЭлемент();
КонецЕсли;
Иначе
Если (Номенклатура.НомерГТД.Выбран() = 1)
или (Номенклатура.СтранаПроисхождения.Выбран() = 1)
Тогда
СпрПартии.ИспользоватьВладельца(Номенклатура);
СпрПартии.Новый();
СпрПартии.ГТД = Номенклатура.НомерГТД;
СпрПартии.СтранаПроисхождения = Номенклатура.СтранаПроисхождения;
Попытка
СпрПартии.Записать();
Исключение
Сообщить(ОписаниеОшибки(),"I");
Возврат;
КонецПопытки;
Партия = СпрПартии.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
КонецПроцедуры // СоздатьПартию()
Это всё что я сделал....при открытии Реализация ТМЦ при выборе партии открывается выбор партий там есть колонка № выпуска но в ней не чё отображаются.
Что вы мне посоветуете сделать?Может ещё надо кое куда добавить? меня интересует как данные о № выпска попадут в регистр?или это не надо?
В модуль док Поступление ТМЦ я добавил в процедуру Создать партию следующие:
Процедура СоздатьПартию(ПартияИсточник = 0)
Если ПустоеЗначение(Номенклатура) = 1 Тогда
Возврат;
КонецЕсли;
Если ПустоеЗначение(Партия) = 0 Тогда
// если партия уже записана - не трогаем ее!
Возврат;
КонецЕсли;
Если ПустоеЗначение(ПартияИсточник) = 0 Тогда
Если (ПартияИсточник.ГТД.Выбран() = 1)
или (ПартияИсточник.СтранаПроисхождения.Выбран() = 1)
или (ПартияИсточник.Свойство.Выбран() = 1)
или (ПартияИсточник.Выпуск.Выбран() = 1)
Тогда
СпрПартии.ИспользоватьВладельца(Номенклатура);
СпрПартии.Новый();
СпрПартии.ГТД = ПартияИсточник.ГТД;
СпрПартии.СтранаПроисхождения = ПартияИсточник.СтранаПроисхождения;
СпрПартии.Свойство = ПартияИсточник.Свойство;
СпрПартии.Свойство = ПартияИсточник.Выпуск;
Попытка
СпрПартии.Записать();
Исключение
Сообщить(ОписаниеОшибки(),"I");
Возврат;
КонецПопытки;
Партия = СпрПартии.ТекущийЭлемент();
КонецЕсли;
Иначе
Если (Номенклатура.НомерГТД.Выбран() = 1)
или (Номенклатура.СтранаПроисхождения.Выбран() = 1)
Тогда
СпрПартии.ИспользоватьВладельца(Номенклатура);
СпрПартии.Новый();
СпрПартии.ГТД = Номенклатура.НомерГТД;
СпрПартии.СтранаПроисхождения = Номенклатура.СтранаПроисхождения;
Попытка
СпрПартии.Записать();
Исключение
Сообщить(ОписаниеОшибки(),"I");
Возврат;
КонецПопытки;
Партия = СпрПартии.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
КонецПроцедуры // СоздатьПартию()
Это всё что я сделал....при открытии Реализация ТМЦ при выборе партии открывается выбор партий там есть колонка № выпуска но в ней не чё отображаются.
Что вы мне посоветуете сделать?Может ещё надо кое куда добавить? меня интересует как данные о № выпска попадут в регистр?или это не надо?
Блин, как все сложно.
У меня знакомый "газетчик" ведет учет так.
Каждая периодика (н-р: ж-л "Юный техник") находится в отдельной папке. В этой папке вложены папки по годам, если надо, то еще и по кварталам. Т.е. логика в том, что каждый номер - это отдельный товар.
Если товар не актуален, в карточке номенклатуры необходимо указать "Не включать в прайс". В подборе выбери флаг, "Показывать только включенную в прайс номенклатуру".
Непонятно зачем ты хочешь уродовать новую конфу.
Хороший програмист - ленивый програмист.
Хотя тебе наверно за твою "идею" денежку дают.
Еще совет, не следует внедрять самый свежий релиз ТиСа, он может быть глюкавый.
У меня знакомый "газетчик" ведет учет так.
Каждая периодика (н-р: ж-л "Юный техник") находится в отдельной папке. В этой папке вложены папки по годам, если надо, то еще и по кварталам. Т.е. логика в том, что каждый номер - это отдельный товар.
Если товар не актуален, в карточке номенклатуры необходимо указать "Не включать в прайс". В подборе выбери флаг, "Показывать только включенную в прайс номенклатуру".
Непонятно зачем ты хочешь уродовать новую конфу.
Хороший програмист - ленивый програмист.
Хотя тебе наверно за твою "идею" денежку дают.
Еще совет, не следует внедрять самый свежий релиз ТиСа, он может быть глюкавый.
bn Написал:
-------------------------------------------------------
> Это всё что я сделал....при открытии Реализация
> ТМЦ при выборе партии открывается выбор партий там
> есть колонка № выпуска но в ней не чё
> отображаются.
Запусти отладчик.
>меня интересует как данные о №
> выпска попадут в регистр?или это не надо?
В регистр попадет партия, а вместе с ней реквизит №выпуска
-------------------------------------------------------
> Это всё что я сделал....при открытии Реализация
> ТМЦ при выборе партии открывается выбор партий там
> есть колонка № выпуска но в ней не чё
> отображаются.
Запусти отладчик.
>меня интересует как данные о №
> выпска попадут в регистр?или это не надо?
В регистр попадет партия, а вместе с ней реквизит №выпуска
Всё это понятно, но у меня почемуто нечего не отображаеть, при реализации я чёлкаю по партии выпадает окошко выбора партии, я там вижу партии и вижу колонку № выпуска но она там пустая, почемуто????может кто подскажет что ещё можно сделать ????
На сегодня я имею :
В табличную часть документа "Поступление ТМЦ" и в справочник "Партии" я уже добавил реквизит №Выпуска (тип число)
+вот этот исходный код подредактировал и всё
В модуль док Поступление ТМЦ я добавил в процедуру Создать партию следующие:
Процедура СоздатьПартию(ПартияИсточник = 0)
Если ПустоеЗначение(Номенклатура) = 1 Тогда
Возврат;
КонецЕсли;
Если ПустоеЗначение(Партия) = 0 Тогда
// если партия уже записана - не трогаем ее!
Возврат;
КонецЕсли;
Если ПустоеЗначение(ПартияИсточник) = 0 Тогда
Если (ПартияИсточник.ГТД.Выбран() = 1)
или (ПартияИсточник.СтранаПроисхождения.Выбран() = 1)
или (ПартияИсточник.Свойство.Выбран() = 1)
или (ПартияИсточник.Выпуск.Выбран() = 1)
Тогда
СпрПартии.ИспользоватьВладельца(Номенклатура);
СпрПартии.Новый();
СпрПартии.ГТД = ПартияИсточник.ГТД;
СпрПартии.СтранаПроисхождения = ПартияИсточник.СтранаПроисхождения;
СпрПартии.Свойство = ПартияИсточник.Свойство;
СпрПартии.Свойство = ПартияИсточник.Выпуск;
Попытка
СпрПартии.Записать();
Исключение
Сообщить(ОписаниеОшибки(),"I");
Возврат;
КонецПопытки;
Партия = СпрПартии.ТекущийЭлемент();
КонецЕсли;
Иначе
Если (Номенклатура.НомерГТД.Выбран() = 1)
или (Номенклатура.СтранаПроисхождения.Выбран() = 1)
Тогда
СпрПартии.ИспользоватьВладельца(Номенклатура);
СпрПартии.Новый();
СпрПартии.ГТД = Номенклатура.НомерГТД;
СпрПартии.СтранаПроисхождения = Номенклатура.СтранаПроисхождения;
Попытка
СпрПартии.Записать();
Исключение
Сообщить(ОписаниеОшибки(),"I");
Возврат;
КонецПопытки;
Партия = СпрПартии.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
КонецПроцедуры // СоздатьПартию()
На сегодня я имею :
В табличную часть документа "Поступление ТМЦ" и в справочник "Партии" я уже добавил реквизит №Выпуска (тип число)
+вот этот исходный код подредактировал и всё
В модуль док Поступление ТМЦ я добавил в процедуру Создать партию следующие:
Процедура СоздатьПартию(ПартияИсточник = 0)
Если ПустоеЗначение(Номенклатура) = 1 Тогда
Возврат;
КонецЕсли;
Если ПустоеЗначение(Партия) = 0 Тогда
// если партия уже записана - не трогаем ее!
Возврат;
КонецЕсли;
Если ПустоеЗначение(ПартияИсточник) = 0 Тогда
Если (ПартияИсточник.ГТД.Выбран() = 1)
или (ПартияИсточник.СтранаПроисхождения.Выбран() = 1)
или (ПартияИсточник.Свойство.Выбран() = 1)
или (ПартияИсточник.Выпуск.Выбран() = 1)
Тогда
СпрПартии.ИспользоватьВладельца(Номенклатура);
СпрПартии.Новый();
СпрПартии.ГТД = ПартияИсточник.ГТД;
СпрПартии.СтранаПроисхождения = ПартияИсточник.СтранаПроисхождения;
СпрПартии.Свойство = ПартияИсточник.Свойство;
СпрПартии.Свойство = ПартияИсточник.Выпуск;
Попытка
СпрПартии.Записать();
Исключение
Сообщить(ОписаниеОшибки(),"I");
Возврат;
КонецПопытки;
Партия = СпрПартии.ТекущийЭлемент();
КонецЕсли;
Иначе
Если (Номенклатура.НомерГТД.Выбран() = 1)
или (Номенклатура.СтранаПроисхождения.Выбран() = 1)
Тогда
СпрПартии.ИспользоватьВладельца(Номенклатура);
СпрПартии.Новый();
СпрПартии.ГТД = Номенклатура.НомерГТД;
СпрПартии.СтранаПроисхождения = Номенклатура.СтранаПроисхождения;
Попытка
СпрПартии.Записать();
Исключение
Сообщить(ОписаниеОшибки(),"I");
Возврат;
КонецПопытки;
Партия = СпрПартии.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
КонецПроцедуры // СоздатьПартию()
ineoosaki ты мне предлогаешь вести кучу журналов и кучу номенклатуры, дело в том что газет около 100 + сопутствующие товары около 50, каждую неделю выход как мин 70 свежих номеров!!! и операторы и менеджеры просто будут неуспевать создавать эти все объекты.
Я думаю что лутще внести дополнительный реквизит № выпуска в табличную часть, не на чём это не отразиться мне кажеться
Я думаю что лутще внести дополнительный реквизит № выпуска в табличную часть, не на чём это не отразиться мне кажеться
bn Написал:
-------------------------------------------------------
> ineoosaki ты мне предлогаешь вести кучу журналов
Ни о каках "куче журналов" я не писал. Количеством номенклатуры ты меня не поразил. Ответственным за ввод приходных накладных и ввод новой номенклатуры должен быть ОДИН человек. У тебя куча менеджеров/операторов не успевает работой заниматься, а деньги получать наверно успевают. :)
Боишся вести кучу номенклатуры, а кучу партий вести не боишся?
А переоценка, уценять/списывать как будеш"? Инвентаризации тоже по партиях хочеш, так это в ТиС 9х не реализовано. А отчеты.
Сначало почитай рукодство по ТиС и поюзай в режиме пользователя, а тогда уже кодируй.
Ж-л "Мурзилка" №1 и ж-л "Мурзилка" №2 ИМХО два разных товара, в отличие например от майонеза "Кальве Французкий 200г" выпущенного 10.10.2007 и 15.10.2007, или например от медикамента отличающегося серией.
Кстати в форме списка справочника "Номенклатура" есть большая кнопка "Копировать с подчиненными справочниками" специально для тех кто не успевает. Я несколько переделал процедуру копирования. У меня выдается запрос, как будет называться новая номенклатура.
Если опять тебя не убедил, то предлагаю еще вариант менее геморный.
Создай справочник "Товары" и подчини ему существующий справочник "Номенклатура".
В справочнике "Товары" будут храниться названия газет/журналов, в справочнике "Номенклатура" их номера. Такую переделку ТиС9х я видел для аптечной сети. Работы на 5 минут.
В накладных будет сначала запрашиваться владелец ("Товар"), а затем подбираеш номер из справочника "Номенклатура".
-------------------------------------------------------
> ineoosaki ты мне предлогаешь вести кучу журналов
Ни о каках "куче журналов" я не писал. Количеством номенклатуры ты меня не поразил. Ответственным за ввод приходных накладных и ввод новой номенклатуры должен быть ОДИН человек. У тебя куча менеджеров/операторов не успевает работой заниматься, а деньги получать наверно успевают. :)
Боишся вести кучу номенклатуры, а кучу партий вести не боишся?
А переоценка, уценять/списывать как будеш"? Инвентаризации тоже по партиях хочеш, так это в ТиС 9х не реализовано. А отчеты.
Сначало почитай рукодство по ТиС и поюзай в режиме пользователя, а тогда уже кодируй.
Ж-л "Мурзилка" №1 и ж-л "Мурзилка" №2 ИМХО два разных товара, в отличие например от майонеза "Кальве Французкий 200г" выпущенного 10.10.2007 и 15.10.2007, или например от медикамента отличающегося серией.
Кстати в форме списка справочника "Номенклатура" есть большая кнопка "Копировать с подчиненными справочниками" специально для тех кто не успевает. Я несколько переделал процедуру копирования. У меня выдается запрос, как будет называться новая номенклатура.
Если опять тебя не убедил, то предлагаю еще вариант менее геморный.
Создай справочник "Товары" и подчини ему существующий справочник "Номенклатура".
В справочнике "Товары" будут храниться названия газет/журналов, в справочнике "Номенклатура" их номера. Такую переделку ТиС9х я видел для аптечной сети. Работы на 5 минут.
В накладных будет сначала запрашиваться владелец ("Товар"), а затем подбираеш номер из справочника "Номенклатура".
Извени ну ты меня всёровно не убидил.....партия пришла и ушла потом вернулась из киоска и списалась и всё это с №Выпуска, это всё я делаю путём создание карточки партии в которой есть реквизит № Выпуска.(эта карточка создаётся автоматически) Всё давольно очень просто)))! Моя конфигурация скоро будит закончина, обязательно её тебе покажу. Я решил полностью переделать конфу Торговля+Склад.да я сам нащёл свою ошубку она была в другом.
У каждой партии есть своя карточка партии в которой есть куча реквизитов типа свойства,ГТД, и страна, вот туда я и добавил реквизит №Выпуска и всё+добавил в табличные части и печатные формы всех доков графу №Выпуска. Сейчас перерабатываеться стандартный метод FIFO LIFO, после чего я думаю будет готова конфа!
У каждой партии есть своя карточка партии в которой есть куча реквизитов типа свойства,ГТД, и страна, вот туда я и добавил реквизит №Выпуска и всё+добавил в табличные части и печатные формы всех доков графу №Выпуска. Сейчас перерабатываеться стандартный метод FIFO LIFO, после чего я думаю будет готова конфа!
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот