Инфо-Предприятие - Форум
ПрограммыПоддержкаКупитьПартнерам

Вернуться   Инфо-Предприятие - Форум > Основные продукты > Прочие вопросы
Регистрация Обмен опытом Справка Пользователи Календарь Поиск Сообщения за день Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
Внимание! Этой ветке форума больше трех лет. Возможно, обсуждаемые здесь вопросы уже не актуальны. Тем не менее, Вы можете отвечать в этой теме, если при ответе поставите флажок.
  #1  
Старый 17.10.2013, 06:22
Cool Cool вне форума
Форумчанин
 
Регистрация: 09.04.2008
Адрес: Иркутск
Сообщений: 289
По умолчанию программный выбор вида ТО

Добрый день! Клиент попросил написать оперыцию которая брала бы из состава операции товыры и выпускили из них изделие. Все вроде хорошо только не понятно почему при создании накладной всегда встает реализация хотя я явно указываю нужную мне операцию код ниже


Код:
ОПЕРАЦИЯ Выпуск готовых изделий
ВЫЧИСЛИТЬ
 ЦИКЛ ИЗ_ЖУРНАЛА тс_операции т
  тмц ЭТО с_товары
  тов ЭТО с_сборка
  тмц.название="Готовое изденлие № "+ СТР(т.ном_накл)
   ВЫБРАТЬ с_товары_категории.ид вид_тов (название = "Товар")
  тмц.группа_ид=вид_тов
   тмц.цена_розн=т.сумма
   тмц.цена_уч_=т.сумма
   ц=т.сумма
  ЦИКЛ ПО ЖУРНАЛУ тс_операции_доп тд (идлинк=т.ид)
  тов.материал_название=тд.товар_наз
  тов.код_товара =тд.код_товара
  тов.код_материала=тд.код_товара
  тов.кол =тд.кол
  тов.кол_с_отх  =тд.кол
  тов.аналитика1_ид=тд.аналитика1_ид
  тов.аналитика2_ид=тд.аналитика2_ид
  тов.атрибут1_название=тд.атрибут1_название
  тов.атрибут2_название=тд.атрибут2_название
  тмц.ЗАП_ДЕТАЛЬ(тов)
  КОНЕЦ_ЦИКЛА  
  тмц.ДОБАВИТЬ(ДА)
 кодт=тмц.код
 КОНЕЦ_ЦИКЛА
                
 вып ЭТО тс_операции
 выпд ЭТО тс_операции_доп
 выпд.код_товара =кодт
 выпд.цена =ц     
 выпд.кол =1
 ВЫБРАТЬ тс_виды_то.ид вид_то (ид_стр = "вып_гот_изд")
                  
 вып.вид_то_ид = вид_то
 вып.код_склада=28
 вып.статус_операции = счетНакл
 вып.ЗАП_ДЕТАЛЬ(выпд) 
 вып.ДОБАВИТЬ(ДА)      



  вып ЭТО тс_операции  
 выпд ЭТО тс_операции_доп
 выпд.код_товара =кодт
 выпд.цена =ц
 выпд.кол =1
 ВЫБРАТЬ тс_виды_то.ид вид_то (ид_стр = "внутр_перем")

 вып.вид_то_ид = вид_то
 вып.код_склада=28
 вып.статус_операции = счетНакл
 вып.ЗАП_ДЕТАЛЬ(выпд)
 вып.ДОБАВИТЬ(ДА)    
  КОНЕЦ
Ответить с цитированием
  #2  
Старый 22.10.2013, 17:43
Cool Cool вне форума
Форумчанин
 
Регистрация: 09.04.2008
Адрес: Иркутск
Сообщений: 289
По умолчанию

Не бывало не у кого таких проблем?
Ответить с цитированием
  #3  
Старый 22.10.2013, 21:09
Аватар для Artem
Artem Artem вне форума
Завсегдатай
 
Регистрация: 27.01.2008
Адрес: Калуга
Сообщений: 2,330
По умолчанию

Да сплошь и рядом. Вот пример из ДЦУ

дцу = б_тмц
дцу.дата = датар!индд
дцу.операция_ид = кд_операции
код_кл_дог = СЛОВО(1,индд,"#")
дцу.ПередДиалогом(ДА)
дцу.ТМЦНомерПодтвердить(ДА)


Обращаю внимание на выделенное жирным шрифтом.

Лучше код операций публиковать в закрытом разделе.
Ответить с цитированием
  #4  
Старый 23.10.2013, 00:35
Писарев Петр Писарев Петр вне форума
Гуру
 
Регистрация: 22.01.2008
Адрес: Ростов-на-Дону
Сообщений: 11,390
По умолчанию

Есть такая проблема, но она решаема.

Я делал операцию выпуска одновременно со списанием и пересчетом цен, чтобы СРАЗУ были проводки такие, какие нужны(по суммам).
Ответить с цитированием
Ответ


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование фильтра или вида справочника при подборе(БУХ) Писарев Петр Общий 2 22.08.2013 22:27
создание Формулы расчета для вида начислений зарплаты. некоторое неудобство Шалупов Николай Зарплата и кадры 0 15.02.2011 14:00
Групповой выбор и КУРСОР Писарев Петр Общий 0 05.09.2010 19:45
Вопрос по функциям ВЫБОР, ВЫБРАТЬ_ЗНАЧЕНИЕ и ВВЕСТИ_ЗНАЧЕНИЕ Artem Общий 6 03.04.2009 18:17


Часовой пояс GMT +4, время: 16:11.


vBulletin® Version 3.6.8.
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Перевод: zCarot
© 1999 Новасофт