Имя: Пароль:
1C
 
как программно установить тип субконто
,
0 falselight
 
16.12.17
07:51
Программно делаю движени по регистру бухгалтерии.
Но у плана видов характеристик нет предопределенных видов субконто
у плана счетов 3 субконто.
1 Mankubus
 
16.12.17
07:54
(0) смотри процедуру БухгалтерскийУчет.УстановитьСубконто()
2 falselight
 
16.12.17
07:56
(1) Я сотрю, но как это применить не догоняю (
3 falselight
 
16.12.17
07:56
(1) Там так


// Процедура устанавливает субконто на счете. Если такое субконто на счете
// отсутствует, то ничего не делается.
//
// Параметры:
//        Счет - Счет, к которому относится субконто
//      Субконто - набор субконто
//        Номер или имя устанавливаемого субконто
//      Значение субконто - значение устанавливаемого субконто
//
Процедура УстановитьСубконто(Счет, Субконто, ИмяСубконто, ЗначениеСубконто, Сообщать = Ложь, Заголовок = "", ВидыСубконтоСчета = Неопределено) Экспорт

    Если Счет = Неопределено ИЛИ Счет.Пустая() Тогда
        Возврат;
    КонецЕсли;

    Если ВидыСубконтоСчета = Неопределено Тогда
         ВидыСубконтоСчета = Счет.ВидыСубконто;
    КонецЕсли;
    
    Если ТипЗнч(ИмяСубконто) = Тип("Число") Тогда

        Если ИмяСубконто > ВидыСубконтоСчета.Количество() Тогда
            Возврат;
        КонецЕсли;

        ВидСубк = ВидыСубконтоСчета[ИмяСубконто - 1].ВидСубконто;

    Иначе

        ВидСубк = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные[ИмяСубконто];

        Если ВидыСубконтоСчета.Найти(ВидСубк) = Неопределено Тогда
            Если Сообщать тогда
                ОбщегоНазначения.СообщитьОбОшибке("Вид субконто <" + ВидСубк + "> для счета """+Счет.Код +" ("+Счет.Наименование+")"" не определен.",, Заголовок );
            КонецЕсли;
            Возврат;
        КонецЕсли;

    КонецЕсли;

    Если ВидСубк.ТипЗначения.СодержитТип(ТипЗнч(ЗначениеСубконто)) Тогда
        Субконто.Вставить(ВидСубк, ЗначениеСубконто);

    ИначеЕсли Сообщать тогда
        ОбщегоНазначения.СообщитьОбОшибке("Неверное значение """ + ЗначениеСубконто + """ для вида субконто <" + ВидСубк + ">",, Заголовок);

    КонецЕсли;

КонецПроцедуры // УстановитьСубконто()
4 falselight
 
16.12.17
07:57
(1) Мне вот нужно


Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    // регистр ОСНОВНОЙ
    Движения.ОСНОВНОЙ.Записывать = Истина;
    Движения.ОСНОВНОЙ.Очистить();
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение                         = Движения.ОСНОВНОЙ.Добавить();
        Движение.НаправлениеДеятельности = НаправлениеДеятельности;
        Движение.Валюта                  = Валюта;
        Движение.Период                  = Дата;
        Движение.СчетДт                  = ТекСтрокаТовары.СчетУчета;
        //



как сейчас задать тип субконто склады и установить значение склада?
5 DDwe
 
16.12.17
08:01
(2) " Я сотрю, но как это применить не догоняю (", ты по жизни не догоняешь )))
6 falselight
 
16.12.17
08:02
//1-й вариант. Установить значение субконто
        НовЗапись.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат] = Справочники.СтатьиЗатрат.НайтиПоНаименованию("Текущий ремонт");

        //2-й вариант. Установить значение субконто
        НовЗапись.СубконтоДт.Вставить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат, Справочники.СтатьиЗатрат.НайтиПоНаименованию("Текущий ремонт"));        



тут задается тим субконто статьи затрат, статьи затрат я так понимаю предопределенные, а если у меня нет предопределенных, как тогда?
7 DDwe
 
16.12.17
08:04
(6) Тебе все говорят, что это не твое. Успокойся уже.
8 falselight
 
16.12.17
08:05
вот это у меня идет с ошибкой:

        Движение.СубконтоДт.Вставить(ПланыВидовХарактеристик.ВидыСубконто.Склады, ТекСтрокаТовары.Склад);
9 falselight
 
16.12.17
08:05
как правильно будет в (8)
10 Mankubus
 
16.12.17
08:05
(4)
БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,1,Склад)
11 Mankubus
 
16.12.17
08:06
(10) это если склад первое субконто
12 falselight
 
16.12.17
08:08
(11) Так не заданы предопределенные виды субконто вообще
13 Mankubus
 
16.12.17
09:18
(12) и что дальше?
14 DDwe
 
16.12.17
09:21
(13) Дальше он сдулся и ждет готовый код. Посмотри его темы, он уже всем надоел. ))
15 h-sp
 
16.12.17
09:27
(8)

Движение.СубконтоДт.Вставить(ПланыВидовХарактеристик.ВидыСубконто.НайтиПоНаименованию("ХреньСНаименованием"));