1C 7.7 Бухгалтерия
28.09.2010
10:25
#1
Нужно заполнить документ на основании нескольких документов, не очищая предыдущего значения в табличной части
28.09.2010
10:37
#2
"//пусть есть ТЗ, которую надо подгрузить в табличную часть дока
//ТЧ дока тоже имеет "заполненность"
ТабЧастьДок = СоздатьОбъект("ТаблицЗначений");
ВыгрузитьТабличнуюЧасть(ТабЧастьДок);
БылоСтрокВТабЧастьДок = ТабЧастьДок.КоличествоСтрок();
ТабЧастьДок.КоличествоСтрок(БылоСтрокВТабЧастьДок +ТЗ.КоличествоСтрок());
ТабЧастьДок.Заполнить(ТЧ, БылоСтрокВТабЧастьДок + 1);
ЗагрузитьТабличнуюЧасть(ТабЧастьДок);
и радуемся =)"
//ТЧ дока тоже имеет "заполненность"
ТабЧастьДок = СоздатьОбъект("ТаблицЗначений");
ВыгрузитьТабличнуюЧасть(ТабЧастьДок);
БылоСтрокВТабЧастьДок = ТабЧастьДок.КоличествоСтрок();
ТабЧастьДок.КоличествоСтрок(БылоСтрокВТабЧастьДок +ТЗ.КоличествоСтрок());
ТабЧастьДок.Заполнить(ТЧ, БылоСтрокВТабЧастьДок + 1);
ЗагрузитьТабличнуюЧасть(ТабЧастьДок);
и радуемся =)"
28.09.2010
16:24
#4
Простите, пожалуйста, поясните поподробнее как мне ТЗ и ТЧ описать.
Заранее спасибо. (Простите за глупый впрос)
Заранее спасибо. (Простите за глупый впрос)
29.09.2010
16:23
#5
> Простите, пожалуйста, поясните поподробнее как мне ТЗ и ТЧ описать.
> Заранее спасибо. (Простите за глупый впрос)
что дано ?
> Заранее спасибо. (Простите за глупый впрос)
что дано ?
07.10.2010
11:20
#8
РасходнаяНакладная,
Мне надо из нескольких поступлений сделать одну расходную накладную
Мне надо из нескольких поступлений сделать одну расходную накладную
07.10.2010
11:23
#9
> РасходнаяНакладная,
> Мне надо из нескольких поступлений сделать одну расходную накладную
так это документ или таблица значений?
весь код покажите
> Мне надо из нескольких поступлений сделать одну расходную накладную
так это документ или таблица значений?
весь код покажите
07.10.2010
11:34
#10
"Функция ЗаполнитьНаОсновании()
Если ПустоеЗначение(ДокументПоступления) = 1 Тогда
Предупреждение("Выберите документ, которым ранее было
|отражено поступление товаров от поставщика!");
Возврат 0;
ИначеЕсли
Вопрос("Документ будет заполнен на основании
|выбранного документа. Продолжить?", "Да+Нет" ) <> "Да" Тогда
Возврат 0;
КонецЕсли;
// Заполненеие шапки.
МестоХранения = ДокументПоступления.МестоХранения;
Контрагент = ДокументПоступления.Контрагент;
Договор = ДокументПоступления.Договор;
Курс = ДокументПоступления.Курс;
ТипЦен = ДокументПоступления.ТипЦен;
ВариантРасчетаНалогов(ДокументПоступления.ВариантРасчетаНалогов);
НДСВключатьВСтоимость = ДокументПоступления.НДСВключатьВСтоимость;
Если (ДокументПоступления.ВидПоступления = 2) или (ДокументПоступления.ВидПоступления = 1) Тогда // возврат из розничной продажи
СписокВидовОтгрузки.ТекущаяСтрока(3);
ВидОтгрузки = 13;
КонецЕсли;
ПриВыбореДоговора();
УправлениеКурсом(0);
// Заполнение табличной части.
УдалитьСтроки();
ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");
ДокументПоступления.ВыгрузитьТабличнуюЧасть(ТаблицаДокумента, "Товар, Количество, Цена, Сумма, НДС, НП, Всего, ГТД");
//СА
ТабЧастьДок = СоздатьОбъект("ТаблицаЗначений");
ТЧ = СоздатьОбъект ("ТабличнаяЧасть");
ВыгрузитьТабличнуюЧасть(ТабЧастьДок);
БылоСтрокВТабЧастьДок = ДокументПоступления.КоличествоСтрок();
ТабЧастьДок.КоличествоСтрок(БылоСтрокВТабЧастьДок + ТаблицаДокумента.КоличествоСтрок());
ТабЧастьДок.Заполнить(ТЧ, БылоСтрокВТабЧастьДок + 1);
ЗагрузитьТабличнуюЧасть(ТабЧастьДок);
//СА Кон
// ЗагрузитьТабличнуюЧасть(ТаблицаДокумента);
Форма.НДС.Видимость(глПризнакУчетаНалога(Контекст, "НДС"));
Форма.НП.Видимость(глПризнакУчетаНалога(Контекст, "НП"));
УправлениеВидимостьюГТД(1);
КонецФункции // ЗаполнитьНаОсновании()"
Если ПустоеЗначение(ДокументПоступления) = 1 Тогда
Предупреждение("Выберите документ, которым ранее было
|отражено поступление товаров от поставщика!");
Возврат 0;
ИначеЕсли
Вопрос("Документ будет заполнен на основании
|выбранного документа. Продолжить?", "Да+Нет" ) <> "Да" Тогда
Возврат 0;
КонецЕсли;
// Заполненеие шапки.
МестоХранения = ДокументПоступления.МестоХранения;
Контрагент = ДокументПоступления.Контрагент;
Договор = ДокументПоступления.Договор;
Курс = ДокументПоступления.Курс;
ТипЦен = ДокументПоступления.ТипЦен;
ВариантРасчетаНалогов(ДокументПоступления.ВариантРасчетаНалогов);
НДСВключатьВСтоимость = ДокументПоступления.НДСВключатьВСтоимость;
Если (ДокументПоступления.ВидПоступления = 2) или (ДокументПоступления.ВидПоступления = 1) Тогда // возврат из розничной продажи
СписокВидовОтгрузки.ТекущаяСтрока(3);
ВидОтгрузки = 13;
КонецЕсли;
ПриВыбореДоговора();
УправлениеКурсом(0);
// Заполнение табличной части.
УдалитьСтроки();
ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");
ДокументПоступления.ВыгрузитьТабличнуюЧасть(ТаблицаДокумента, "Товар, Количество, Цена, Сумма, НДС, НП, Всего, ГТД");
//СА
ТабЧастьДок = СоздатьОбъект("ТаблицаЗначений");
ТЧ = СоздатьОбъект ("ТабличнаяЧасть");
ВыгрузитьТабличнуюЧасть(ТабЧастьДок);
БылоСтрокВТабЧастьДок = ДокументПоступления.КоличествоСтрок();
ТабЧастьДок.КоличествоСтрок(БылоСтрокВТабЧастьДок + ТаблицаДокумента.КоличествоСтрок());
ТабЧастьДок.Заполнить(ТЧ, БылоСтрокВТабЧастьДок + 1);
ЗагрузитьТабличнуюЧасть(ТабЧастьДок);
//СА Кон
// ЗагрузитьТабличнуюЧасть(ТаблицаДокумента);
Форма.НДС.Видимость(глПризнакУчетаНалога(Контекст, "НДС"));
Форма.НП.Видимость(глПризнакУчетаНалога(Контекст, "НП"));
УправлениеВидимостьюГТД(1);
КонецФункции // ЗаполнитьНаОсновании()"
Отчетность РСВ-1 ПФР и ФСС (1С 8.1 (1.6.25.9))ЗУП 8.1 тип. релиз 26. РСВ-1 9 месяцев. Не правильно считает строку 200.
Читают тему
(гостей: 1)