Добавление нового поля в документе 1с 7.7

@deeller · Регистрация: 20.04.2011

Author24 — интернет-сервис помощи студентам

думаю многие столкнулись с декларированием отчетности по алкоголю. в связи с этим для отчетности необходимо указывать для алкоголя производителя(ИНН, КПП). идея такая добавить в справочник номенклатура реквизит с типом контрагент. а в документ прихода добавить поле, аналогично количеству, объем в литрах, ну и насколько я понимаю нужно добавить это поле в регистрах. так вот где посмотреть в какой регистр заносятся сведения по документу, 1с8 знаю где смотреть а вот в семерке не могу найти это.

@Танцор_С_Бубном · 06.07.2012, 15:03

Модуль документа копать. Только так.

@duk337 · 06.07.2012, 22:00

Надо начать с отчетности: откуда что берётся. Вот туда и добавлять, глядя в ОбработкуПроведения().

@deeller · 09.07.2012, 09:06 **[ТС]**

в обработке проведения вызывается вот эта процедура:

1C

Процедура ПроведениеПоРегистрам()
    
    Перем ВремРегистры;
    Перем ВремПоставщики, ВремЗаказы, ВремЗаказыЗаявки;
    
    // Удаление движений по регистрам.
    Для Номер = 1 По Метаданные.Регистр() Цикл
        ОчиститьДвижения("Регистр."+Метаданные.Регистр(Номер).Идентификатор);
    КонецЦикла;
    
    ТаблицаДокумента=глПодготовитьТаблицуДокумента(Контекст);
    
    СписокПараметров=СоздатьОбъект("СписокЗначений");
    
    СписокПараметров.ДобавитьЗначение(ТекущийДокумент(),"ТекДок");
    СписокПараметров.ДобавитьЗначение(Склад,       "Склад");
    СписокПараметров.ДобавитьЗначение(Фирма,       "Фирма");
    СписокПараметров.ДобавитьЗначение(Контрагент, "Контрагент");
    СписокПараметров.ДобавитьЗначение(Договор,       "Договор");
    
    СписокПараметров.ДобавитьЗначение(КодОперации,   "КодОперации");
            
    ВремРегистры     = СоздатьОбъект("Регистры");
    ВремЗаказы         = ВремРегистры.Заказы;
    ВремЗаказыЗаявки = ВремРегистры.ЗаказыЗаявки;
    
    ФильтрЗаказов(ТаблицаДокумента, ВремЗаказы, ВремЗаказыЗаявки);
    Если (КодОперации=Перечисление.КодыОпераций.Закупка) или (КодОперации=Перечисление.КодыОпераций.ЗакупкаРозница) Тогда
        ВремПоставщики = ВремРегистры.Поставщики;
        глФильтрДолгов(Контекст, Договор, СписокПараметров, ВремПоставщики);
    КонецЕсли;
    
    Если ИтогиАктуальны() = 0 Тогда
        ВремРегистры.Актуальность(1);
        ВремРегистры.РассчитатьРегистрыНа(ТекущийДокумент());
    КонецЕсли;
    
    // Принимать на реализацию будет только товары
    Если КодОперации=Перечисление.КодыОпераций.ПриемНаРеализациюРозница  Тогда
                                  
        ТаблицаДокумента.ВыбратьСтроки();
        Пока ТаблицаДокумента.ПолучитьСтроку()=1 Цикл
            ТаблицаДокумента.ВидТМЦ       = Перечисление.ВидыТМЦ.Товар;
        КонецЦикла;      
    КонецЕсли;    
    
    ДвижениеЗаказов(ТаблицаДокумента, ВремЗаказы, ВремЗаказыЗаявки);
    глПриходОстатковТМЦ      (Контекст,ТаблицаДокумента,СписокПараметров);
    глОприходованиеПартийТМЦ(Контекст,ТаблицаДокумента,СписокПараметров);
                                                                     
    Если (КодОперации=Перечисление.КодыОпераций.Закупка) или (КодОперации=Перечисление.КодыОпераций.ЗакупкаРозница) Тогда
                                  
        ТаблицаДокумента.Свернуть("ВидТМЦ,СтавкаНДС","Сумма,СуммаУпр,СуммаРуб,СуммаНДС,СуммаНП");
        ТаблицаДокумента.НоваяКолонка("ВидДолга");
        ТаблицаДокумента.НоваяКолонка("КредДокумент");
        
        ТаблицаДокумента.ВыбратьСтроки();
        Пока ТаблицаДокумента.ПолучитьСтроку()=1 Цикл
            ТаблицаДокумента.ВидДолга       = ВидДолгаПоТМЦ(ТаблицаДокумента.ВидТМЦ);
            ТаблицаДокумента.КредДокумент   = ТекущийДокумент();
        КонецЦикла;      
        
        СписокПараметров.Установить("ЗнакДвижения", -1); // уменьшение долга контрагента
        глДвижениеДолгов(Контекст, Договор, ТаблицаДокумента,СписокПараметров,ВремПоставщики);
    КонецЕсли;    
 
КонецПроцедуры // ПроведениеПоРегистрам()

но из нее не понятно какие регистры используются, либо я не туда смотрю

@Танцор_С_Бубном · 09.07.2012, 09:41

Сообщение от deeller

ВремРегистры = СоздатьОбъект("Регистры");
ВремЗаказы = ВремРегистры.Заказы;
ВремЗаказыЗаявки = ВремРегистры.ЗаказыЗаявки;

Сообщение от deeller

ВремПоставщики = ВремРегистры.Поставщики;

Т.е. регистры "Заказы", "ЗаказыЗаявки", "Поставщики"

@deeller · 09.07.2012, 09:48 **[ТС]**

Танцор_С_Бубном, спасибо теперь понял. хотя я был уверен что должен быть регистр ПартииНаличие из него вытаскивается вся инфа по остаткам.

@Fenomen · 09.07.2012, 23:57

Вы правы насчет регистра партий. Танцор_С_Бубном указывает не на те регистры.
Смотрите процедуры глобального модуля:

1C

1
2

 глПриходОстатковТМЦ     (Контекст,ТаблицаДокумента,СписокПараметров);
 глОприходованиеПартийТМЦ(Контекст,ТаблицаДокумента,СписокПараметров);

Модифицировать регистр партий непростая задача. Если Вы не имеете достаточного опыта, нужно делать это с большой осторожностью. В ТИС алгоритм списания партий совсем не простой.

@deeller · 10.07.2012, 08:51 **[ТС]**

отказался от модификации регистров. пошел другим путем.

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1
		1
	1C 7.x Добавление нового поля в документе 1с 7.7 06.07.2012, 14:28. Показов 4345. Ответов 7 Метки нет (Все метки) думаю многие столкнулись с декларированием отчетности по алкоголю. в связи с этим для отчетности необходимо указывать для алкоголя производителя(ИНН, КПП). идея такая добавить в справочник номенклатура реквизит с типом контрагент. а в документ прихода добавить поле, аналогично количеству, объем в литрах, ну и насколько я понимаю нужно добавить это поле в регистрах. так вот где посмотреть в какой регистр заносятся сведения по документу, 1с8 знаю где смотреть а вот в семерке не могу найти это. 0

@Танцор_С_Бубном 34 / 34 / 3 Регистрация: 31.03.2011 Сообщений: 197
	06.07.2012, 15:03	2
	Модуль документа копать. Только так. 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	06.07.2012, 22:00	3
	Надо начать с отчетности: откуда что берётся. Вот туда и добавлять, глядя в ОбработкуПроведения(). 0

@Танцор_С_Бубном 34 / 34 / 3 Регистрация: 31.03.2011 Сообщений: 197
	09.07.2012, 09:41	5
	Сообщение от deeller ВремРегистры = СоздатьОбъект("Регистры"); ВремЗаказы = ВремРегистры.Заказы; ВремЗаказыЗаявки = ВремРегистры.ЗаказыЗаявки; Сообщение от deeller ВремПоставщики = ВремРегистры.Поставщики; Т.е. регистры "Заказы", "ЗаказыЗаявки", "Поставщики" 0

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1
	09.07.2012, 09:48 [ТС]	6
	Танцор_С_Бубном, спасибо теперь понял. хотя я был уверен что должен быть регистр ПартииНаличие из него вытаскивается вся инфа по остаткам. 0

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1
	10.07.2012, 08:51 [ТС]	8
	отказался от модификации регистров. пошел другим путем. 0