Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Комплексная 7.7, выбор Партии по наименованию ГТД

MaxTi
читатель
офлайн
Дата регистрации: 10.02.2010
Сообщений: 52
Пост №1
 
09.06.2010 16:16

Есть таблица значений с колонкой ГТД.Наименование, создаю расходную накладную(Документ.Реализация), как мне подставить Партию для товара по наименованию ГТД?

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №2
 
09.06.2010 18:02

"есть механизм по создании партий, например в документе ПоступлениеТМЦИмпорт<br>по аналогии и создаём<br><br><br>Процедура СоздатьПартию(ПартияИсточник = 0)<br> <br> Если ПустоеЗначение(Номенклатура) = 1 Тогда<br> Возврат;<br> КонецЕсли; <br> Если ПустоеЗначение(Партия) = 0 Тогда<br> // если партия уже записана - не трогаем ее!<br> Возврат;<br> КонецЕсли; <br> <br> Если ПустоеЗначение(ПартияИсточник) = 0 Тогда<br> Если (ПартияИсточник.СтранаПроисхождения.Выбран() = 1)<br> или (ПартияИсточник.Свойство.Выбран() = 1) <br> Тогда<br> СпрПартии.ИспользоватьВладельца(Номенклатура);<br> СпрПартии.Новый();<br> СпрПартии.ГТД             = ПартияИсточник.ГТД;<br> СпрПартии.СтранаПроисхождения = ПартияИсточник.СтранаПроисхождения;<br> СпрПартии.Свойство            = ПартияИсточник.Свойство;<br> Попытка<br> СпрПартии.Записать();<br> Исключение <br> Сообщить(ОписаниеОшибки(),"I");<br> Возврат;<br> КонецПопытки;<br> Партия = СпрПартии.ТекущийЭлемент();<br> КонецЕсли;<br> Иначе <br> Если Номенклатура.СтранаПроисхождения.Выбран() = 1 Тогда<br> СпрПартии.ИспользоватьВладельца(Номенклатура);<br> СпрПартии.Новый();<br> СпрПартии.ГТД             = Номенклатура.НомерГТД;<br> СпрПартии.СтранаПроисхождения = Номенклатура.СтранаПроисхождения;<br> Попытка<br> СпрПартии.Записать();<br> Исключение <br> Сообщить(ОписаниеОшибки(),"I");<br> Возврат;<br> КонецПопытки;<br> Партия = СпрПартии.ТекущийЭлемент();<br> КонецЕсли;<br> КонецЕсли;<br> <br>КонецПроцедуры"

MaxTi
читатель
офлайн
Дата регистрации: 10.02.2010
Сообщений: 52
Пост №3
 
10.06.2010 10:10

нет, партия уже есть в справочнике партии, ее просто нужно выбрать, новую не надо создавать

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №4
 
10.06.2010 10:40

"> нет, партия уже есть в справочнике партии, ее просто нужно выбрать, новую не надо создавать<br><br>тогда в ТЗ передавать не Партия.Наименование ,а Партия.ТекущийЭлемент();"

MaxTi
читатель
офлайн
Дата регистрации: 10.02.2010
Сообщений: 52
Пост №5
 
11.06.2010 01:17

да, но так не хочется((( хотелось бы свернуть

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №6
 
11.06.2010 11:59

> да, но так не хочется((( хотелось бы свернуть<br><br>так и свернёшь не по наименованиям, а элементам !

MaxTi
читатель
офлайн
Дата регистрации: 10.02.2010
Сообщений: 52
Пост №7
 
11.06.2010 14:38

подскажи что и как можно свернуть ТЗ или сам документ?

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №8
 
11.06.2010 16:07

> подскажи что и как можно свернуть ТЗ или сам документ?<br><br>покажи, как ТЗ формируешь

MaxTi
читатель
офлайн
Дата регистрации: 10.02.2010
Сообщений: 52
Пост №9
 
15.06.2010 11:46

" ТаблицаНоменклатуры = СоздатьОбъект("ТаблицаЗначений");<br> ТаблицаНоменклатуры.НоваяКолонка("Номенклатура","Справочник.Номенклатура",,,,,,);<br> ТаблицаНоменклатуры.НоваяКолонка("Количество","Число",,,,,,);<br> ТаблицаНоменклатуры.НоваяКолонка("Цена","Число",,,,,,);<br> ТаблицаНоменклатуры.НоваяКолонка("ГТД",,,,,,,);<br>       Номенклатура=СоздатьОбъект("Справочник.Номенклатура");<br>       ДокИз=СоздатьОбъект("Документ.ПоступлениеТМЦ"); <br> ДокИз.ВыбратьДокументы(ДатаНачала, ДатаКонца); <br> Пока ДокИЗ.ПолучитьДокумент()=1 Цикл <br> ДокИз.ВыбратьСтроки(); <br> Пока ДокИз.ПолучитьСтроку() = 1 Цикл<br> ТаблицаНоменклатуры.НоваяСтрока();<br> ТаблицаНоменклатуры.Номенклатура = ДокИз.Номенклатура;<br> ТаблицаНоменклатуры.Количество = ДокИз.Количество;<br> ТаблицаНоменклатуры.Цена = ДокИз.Цена; <br> ТаблицаНоменклатуры.ГТД = ДокИЗ.Партия;<br>...<br>ДокВ=СоздатьОбъект("Документ.Реализация");<br>ДокВ.Новый();<br>ДокВ.Партия=ТаблицаНомеклатуры.ГТД;<br>"

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация