Проблема со сворачиванием таблицы

sanya33 · 24 апр 2014, 08:49

Здравствуйте проблемка такая... Есть документ xls с колонками дата, номер, Склад, Контрагент, сырье, количество, сумма, ндс, сумма ндс.
При загрузки документа создаются документы по строчно. в документе ПОступление товаров и услуг
Например:
01.01.2001 | №2| Главный Склад | ООО Магазин | Мука |250| 2567руб| 0|0|
01.01.2001 | №2| Главный Склад | ООО Магазин | Тесто |250| 2567руб| 0|0|
01.01.2001 | №2| Главный Склад | ООО Магазин | Хлеб |250| 2567руб| 0|0|
01.01.2001 | №2| Главный Склад | ООО Магазин | Прироги |250| 2567руб| 0|0|

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

wise · 24 апр 2014, 09:37

(0) проверяй если в новой строке Контрагент = Контрагенту в предыдущей строки, то создаёшь строку документа, а если НЕ равен, то записываешь документ и создаёшь новый документ и далее по плану.

markgenuine · 24 апр 2014, 09:38

Типа того должно быть:

Код Выделить


ДокументПоступленияТиУ = Документы.ПоступленияТоваровИУслуг.СоздатьДокумент();
//ДокументПоступленияТиУ.......................................................
//заполняем шапку документа....................................................
//.............................................................................
Для Каждого СтрокаВашейТЗ Из ВашейТЗ Цикл
    НоваяСтрокаТЧ = ДокументПоступленияТиУ.Товары.Добавить();
    //Если у вас названия колонок в табличной части документа совпадают с той что в тз тогда так
    ЗаполнитьЗначениеСвойств(НоваяСтрокаТЧ,СтрокаВашейТЗ);
    //Если не совпадают то пробегаемся по каждой колонке в строке тз
    //Типа того: НоваяСтрока.Наименование = СтрокаВашейТЗ.Номенклатура;
    //и присваиваем каждую колонку соответствующей
КонецЦикла;

ДокументПоступленияТиУ.Записать();

sanya33 · 24 апр 2014, 09:43

Спасибо вам большое) буду пробовать)

Добавлено: 24 апр 2014, 10:03

Для Каждого ТекСтрокаТЗ Из ТаблицаЗначений Цикл


     СпрОСЭлемент = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
         СпрОСЭлемент.Организация = Справочники.Организации.НайтиПоКоду("000000001");
        СпрОСЭлемент.Дата = ПолучитьДатуИзСтроки(ТекСтрокаТЗ.Дата) + 22*60*60;
         СпрОСЭлемент.ОтражатьВБухгалтерскомУчете = ИСТИНА;
         СпрОСЭлемент.ОтражатьВУправленческомУчете = ИСТИНА;
         СпрОСЭлемент.ОтражатьВНалоговомУчете = ИСТИНА;
         СпрОСЭлемент.Проведен = Истина;
         СпрОСЭлемент.ВидПоступления = Перечисления.ВидыПоступленияТоваров.НаСклад;
         СпрОСЭлемент.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(ТекСтрокаТЗ.Контрагент);
         СпрОСЭлемент.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("000000197");
         СпрОСЭлемент.СкладОрдер = Справочники.Склады.НайтиПоНаименованию(ТекСтрокаТЗ.Склад);
         СпрОСЭлемент.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия;
         СпрОСэлемент.КурсВзаиморасчетов = истина;
         СпрОСЭлемент.КратностьВзаиморасчетов = истина;
         СпрОСЭлемент.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить();
         СпрОСЭлемент.Комментарий = Строка(ТекСтрокаТЗ.Номер);

   ///Получается здесь писать условие?

     НоваяСтрокаТовары = СпрОСЭлемент.Товары.Добавить();
          НоваяСтрокаТовары.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекСтрокаТЗ.Сырье);
          НоваяСтрокаТовары.Количество = Число(ТекСтрокаТЗ.Количество);
          НоваяСтрокаТовары.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("кг");
          НоваяСтрокаТовары.Сумма = Число(ТекСтрокаТЗ.Сумма);
          НоваяСтрокаТовары.Цена = Число(ТекСтрокаТЗ.Цена);
          НоваяСтрокаТовары.СтавкаНДС = Число(ТекСтрокаТЗ.НДС);
          НоваяСтрокаТовары.СуммаНДС = Число(ТекСтрокаТЗ.СуммаНДС);
          НоваяСтрокаТовары.СтавкаНДС = истина;
           СпрОСЭлемент.Записать();

КонецЦикла;

СветланаCC · 24 апр 2014, 10:06

Что то типа этого))

Код Выделить


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

СветланаCC · 24 апр 2014, 10:10

Вам же нужно делить контрагентам?

sanya33 · 24 апр 2014, 10:15

Цитата: СветланаCC от 24 апр 2014, 10:10
Вам же нужно делить контрагентам?

да...

Добавлено: 24 апр 2014, 10:33

Цитата: sanya33 от 24 апр 2014, 10:15
Цитата: СветланаCC от 24 апр 2014, 10:10
Вам же нужно делить контрагентам?

да...

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

так?)

СветланаCC · 24 апр 2014, 11:24

типа того

Код Выделить


ПредыдущийКонтрагент = "";
Для Каждого СтрокаВашейТЗ Из ВашейТЗ Цикл
  Если СтрокаВашейТЗ.Контрагент<>ПредыдущийКонтрагент Тогда
     СпрОСЭлемент = Документы.ПоступленияТоваровИУслуг.СоздатьДокумент();
     СпрОСЭлемент.Организация = Справочники.Организации.НайтиПоКоду("000000001");
     СпрОСЭлемент.Дата = ПолучитьДатуИзСтроки(ТекСтрокаТЗ.Дата) + 22*60*60;
     СпрОСЭлемент.ОтражатьВБухгалтерскомУчете = ИСТИНА;
     СпрОСЭлемент.ОтражатьВУправленческомУчете = ИСТИНА;
     СпрОСЭлемент.ОтражатьВНалоговомУчете = ИСТИНА;
     СпрОСЭлемент.Проведен = Истина;
     СпрОСЭлемент.ВидПоступления = Перечисления.ВидыПоступленияТоваров.НаСклад;
     СпрОСЭлемент.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(ТекСтрокаТЗ.Контрагент);
     СпрОСЭлемент.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("000000197");
     СпрОСЭлемент.СкладОрдер = Справочники.Склады.НайтиПоНаименованию(ТекСтрокаТЗ.Склад);
     СпрОСЭлемент.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия;
     СпрОСэлемент.КурсВзаиморасчетов = истина;
     СпрОСЭлемент.КратностьВзаиморасчетов = истина;
     СпрОСЭлемент.ВалютаДокумента =  Константы.ВалютаРегламентированногоУчета.Получить();
     СпрОСЭлемент.Комментарий  = Строка(ТекСтрокаТЗ.Номер);
  КонецЕсли;
    НоваяСтрокаТовары = СпрОСЭлемент.Товары.Добавить();
          НоваяСтрокаТовары.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекСтрокаТЗ.Сырье);
          НоваяСтрокаТовары.Количество = Число(ТекСтрокаТЗ.Количество);
          НоваяСтрокаТовары.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("кг");
          НоваяСтрокаТовары.Сумма = Число(ТекСтрокаТЗ.Сумма);
          НоваяСтрокаТовары.Цена = Число(ТекСтрокаТЗ.Цена);
          НоваяСтрокаТовары.СтавкаНДС = Число(ТекСтрокаТЗ.НДС);// ставка ндс в документе используется как перечисление
          НоваяСтрокаТовары.СуммаНДС = Число(ТекСтрокаТЗ.СуммаНДС);
    СпрОСЭлемент.Записать();
    ПредыдущийКонтрагент = ТекСтрокаТЗ.Контрагент;
КонецЦикла;

sanya33 · 24 апр 2014, 11:57

Цитата: СветланаCC от 24 апр 2014, 11:24
типа того
Код Выделить Развернуть
ПредыдущийКонтрагент = ""; Для Каждого СтрокаВашейТЗ Из ВашейТЗ Цикл Если СтрокаВашейТЗ.Контрагент<>ПредыдущийКонтрагент Тогда СпрОСЭлемент = Документы.ПоступленияТоваровИУслуг.СоздатьДокумент(); СпрОСЭлемент.Организация = Справочники.Организации.НайтиПоКоду("000000001"); СпрОСЭлемент.Дата = ПолучитьДатуИзСтроки(ТекСтрокаТЗ.Дата) + 22*60*60; СпрОСЭлемент.ОтражатьВБухгалтерскомУчете = ИСТИНА; СпрОСЭлемент.ОтражатьВУправленческомУчете = ИСТИНА; СпрОСЭлемент.ОтражатьВНалоговомУчете = ИСТИНА; СпрОСЭлемент.Проведен = Истина; СпрОСЭлемент.ВидПоступления = Перечисления.ВидыПоступленияТоваров.НаСклад; СпрОСЭлемент.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(ТекСтрокаТЗ.Контрагент); СпрОСЭлемент.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("000000197"); СпрОСЭлемент.СкладОрдер = Справочники.Склады.НайтиПоНаименованию(ТекСтрокаТЗ.Склад); СпрОСЭлемент.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия; СпрОСэлемент.КурсВзаиморасчетов = истина; СпрОСЭлемент.КратностьВзаиморасчетов = истина; СпрОСЭлемент.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить(); СпрОСЭлемент.Комментарий = Строка(ТекСтрокаТЗ.Номер); КонецЕсли; НоваяСтрокаТовары = СпрОСЭлемент.Товары.Добавить(); НоваяСтрокаТовары.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(ТекСтрокаТЗ.Сырье); НоваяСтрокаТовары.Количество = Число(ТекСтрокаТЗ.Количество); НоваяСтрокаТовары.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("кг"); НоваяСтрокаТовары.Сумма = Число(ТекСтрокаТЗ.Сумма); НоваяСтрокаТовары.Цена = Число(ТекСтрокаТЗ.Цена); НоваяСтрокаТовары.СтавкаНДС = Число(ТекСтрокаТЗ.НДС);// ставка ндс в документе используется как перечисление НоваяСтрокаТовары.СуммаНДС = Число(ТекСтрокаТЗ.СуммаНДС); СпрОСЭлемент.Записать(); ПредыдущийКонтрагент = ТекСтрокаТЗ.Контрагент; КонецЦикла;

Спасибо, Спасибо, Спасибо ОГРОМНОЕ!!!) Вы мне очень помогли) Здоровья ВАМ Крепкого не болейте)

Проблема со сворачиванием таблицы

sanya33

wise

markgenuine

sanya33

СветланаCC

СветланаCC

sanya33

СветланаCC

sanya33

Похожие темы (5)

Поиск