Имя: Пароль:
1C
1С v8
создание проводок
0 lamme
 
29.12.12
05:51
собственно ..
идет заполнение ТЧ документа из обработки по заполнению тч.
потом в док ставится признак -
Объект.РучнаяКорректировка = истина;
   Объект.записать(режимзаписидокумента.Проведение);

// проводки делаем

Проводки = Объект.Движения.Хозрасчетный;


   
   для каждого Стр из ТабличнаяЧасть цикл
       Проводка = Проводки.Добавить();

       Проводка.СчетДт    = Стр.Счет;
       
   //    //БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,"Статьи затрат", Стр.СтатьяЗатрат ,Истина, );
       //БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,"Склады",       СтруктураШапкиДокумента.Склад);

       
       Проводка.СчетКт   = стр.СчетЗатрат;
       Проводка.КоличествоКт = Стр.Количество;
       
       
       Проводка.Содержание   = "Списание материалов в производство";
       Проводка.Сумма        = Стр.Себестоимость;


       
   конеццикла;



молча отрабатывает. проводок нет.
что не так делаю
1 Ursus maritimus
 
29.12.12
05:59
Не записываешь
2 lamme
 
29.12.12
06:01
чую что  Проводка.записать();
не взлетит
3 lamme
 
29.12.12
06:05
ну да ... особенно если смотреть типовые проводки - которые создаются
там про запись вообще ни слова
4 lamme
 
29.12.12
06:08
вот типовой пример из кода.
Проводки = Движения.Хозрасчетный;
   
   // Проводки по таре
   Для Каждого СтрокаТаблицы Из ТаблицаПоТаре Цикл
       
       // Бухгалтерский учет
       Проводка = Проводки.Добавить();
       Проводка.Период       = Дата;
       Проводка.Организация  = СтруктураШапкиДокумента.Организация;
       Проводка.Содержание   = "Передача тары";
       Проводка.Сумма        = СтрокаТаблицы.Сумма;
       
       Проводка.СчетДт       = СтрокаТаблицы.СчетУчета;
       БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,"Номенклатура", СтрокаТаблицы.Номенклатура,Истина, Заголовок);
       БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,"Склады",       СтруктураШапкиДокумента.Склад);
       
       // Для товаров, принятых на комиссию партия прописывается всегда
       Если (ПартионныйУчет) Тогда
           БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,"Партии", Ссылка, Истина, Заголовок);
       КонецЕсли;
       
       Проводка.КоличествоДт = СтрокаТаблицы.Количество;
       
       // Проверка - вид Операции - комиссия
       Если СтрокаТаблицы.СчетУчета.Забалансовый Тогда
           
           Если НЕ (СтрокаТаблицы.СчетУчета.ВидыСубконто.Найти(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты ,"ВидСубконто") = Неопределено) Тогда
               Проводка.СубконтоДт.Контрагенты = СтруктураШапкиДокумента.Контрагент;
           КонецЕсли;
           
       Иначе
           
           Проводка.СчетКт   = СтруктураШапкиДокумента.СчетУчетаРасчетовПоТаре;
           БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Контрагенты",        СтруктураШапкиДокумента.Контрагент, Истина, Заголовок);
           БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,"Договоры",           СтруктураШапкиДокумента.ДоговорКонтрагента);
           
           Если СтруктураШапкиДокумента.СчетУчетаРасчетовПоТаре.Валютный Тогда
               Проводка.ВалютаКт        = СтруктураШапкиДокумента.ВалютаДокумента;
               Проводка.ВалютнаяСуммаКт = СтрокаТаблицы.СуммаВал;
           КонецЕсли;
           
       КонецЕсли;
       
       БухгалтерскийУчет.УстановитьПодразделенияПроводки(
           Проводка, СтруктураШапкиДокумента.ПодразделениеОрганизации, СтруктураШапкиДокумента.ПодразделениеОрганизации);
       
   КонецЦикла; // Проводки по таре


Документ = Помступление из переработки.
по аналогии - делаю и я.
Однако - результата нет
что не так?
5 Kavar
 
29.12.12
06:10
Пример он внутри документа.
А ты обработкой делаешь.
6 lamme
 
29.12.12
06:12
мм ... тогда ткните если не сложно пальцем - куда смотреть
7 Kavar
 
29.12.12
06:12
ДокументОбъект.<Имя документа> (DocumentObject.<Имя документа>)
Записать (Write)
Синтаксис:

Записать(<РежимЗаписи>, <РежимПроведения>)
Параметры:

<РежимЗаписи> (необязательный)

Тип: РежимЗаписиДокумента.
Позволяет выбрать один из возможных режимов записи.
Значение по умолчанию: Запись
<РежимПроведения> (необязательный)

Тип: РежимПроведенияДокумента.
Позволяет выбрать один из возможных режимов проведения.
Значение по умолчанию: Неоперативный
Описание:

Записывает документ в базу данных.

Доступность:

Сервер, толстый клиент, внешнее соединение.
Примечание:

Для документов с поддержкой уникальности номеров в процессе записи, если нужно, проверяется уникальность номера.
Пример:

Попытка
   НовДокумент.Записать(РежимЗаписиДокумента.Проведение);
Исключение
   Текст = "ru = ""Невозможно провести документ."";"
    + " en = ""Document needs reposting.""";
   Предупреждение(НСтр(Текст));
КонецПопытки;
8 lamme
 
29.12.12
06:15
7
не уловил.

я сначала в делаю
Объект.РучнаяКорректировка = истина;
Объект.записать(режимзаписидокумента.Проведение);


потом уже делаю проводки у документа.
9 Kavar
 
29.12.12
06:17
Записать  - после проводок. )
10 lamme
 
29.12.12
06:19
(9)
Проводка.записать();  -внутри цикла не рабоет.
ругается - метод Записать не обнаружен

как то так ... не дослвно
11 Ursus maritimus
 
29.12.12
06:19
(2) Слущай, ты столько лет занимаешься 1С. Пора бы уметь проводки-то записывать.
12 Ursus maritimus
 
29.12.12
06:20
(10) Небор записей надо записывать, а не проводку
13 Ursus maritimus
 
29.12.12
06:20
Набор.
14 lamme
 
29.12.12
06:20
13
да. это уже понял.
15 lamme
 
29.12.12
06:21
все. есть контакт!
спасибо