Имя: Пароль:
1C
1С v8
Перенос остатков в докумен операция бух
0 blueisacolour
 
06.12.16
10:12
Добрый день,2 сутки не могу выгрузить данные по остаткам.Я из Казахстана, есть стандартная БП 2.0 и БП для Гос Учреж.Создаю правило для операций Бух,но там как ни странно нет табличной части регистра бух,но в БП 2.0 есть.Вот я пытаюсь сначала заполнить шапку документа,потом после загрузки ПКО,хочу передать ТЗ для формирание проводок по текущему документу.Как передать Табличную часть в параметр.
ДатаСреза = '20161231';
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
                |&ДатаСреза КАК Период,
                |ТиповойОстатки.Счет КАК СчетДт,
                |&СчетКт,
                |ТиповойОстатки.Субконто1 КАК ОсновнаяКасса,
                |ТиповойОстатки.Валюта,
                |ТиповойОстатки.СуммаОстаток КАК Сумма,
                |"""" КАК Содержание
                |ИЗ
                |РегистрБухгалтерии.Типовой.Остатки(&ДатаСреза, Счет = &Счет1010, , ) КАК ТиповойОстатки";
    
       Запрос.УстановитьПараметр("ДатаСреза",ДатаСреза);
       Запрос.УстановитьПараметр("СчетКт",ПланыСчетов.Типовой.НайтиПоКоду("000"));
       Запрос.УстановитьПараметр("Счет1010",ПланыСчетов.Типовой.НайтиПоКоду("1010"));
      
      
       Результат = Запрос.Выполнить().Выгрузить();

      
        СуммаИтог = 0;
        
        СчетШапка = ПланыСчетов.Типовой.НайтиПоКоду("1010");
        
       Если Результат.Количество()= 0 Тогда
          
           Отказ = Истина;
      
       Иначе
          
       ВходящиеДанные = Новый Структура("Дата,СуммаОперации,Содержание,Комментарий,Типовой");
       ВходящиеДанные.Дата = ДатаСреза;
       ВходящиеДанные.Содержание = "Остатки по Счету 1010";
       ВходящиеДанные.Комментарий = "Остатки по Счету 1010";
       ВходящиеДанные.Типовой = Результат;

        
         Для Каждого ТекСтрока Из Результат Цикл
           ТекСтрока.Содержание = "Ввод остатков по счету" + " " + СчетШапка;
           СуммаИтог = СуммаИтог + ТекСтрока.Сумма;
         КонецЦикла;
       //Параметры.Вставить("Типовой",Результат);
      
       Сообщить("Конец обработки, начало загрузки");
       ВходящиеДанные.СуммаОперации = СуммаИтог;
       ВыгрузитьПоПравилу(,,ВходящиеДанные,, "ОперацияБухПоСчету1010");
       КонецЕсли;
       Параметры.Типовой = Результат;

В ПКО После Загрузки :
Сообщить("Начало записи проводки");
Объект.Движения.Типовой.Записывать = Истина;
Набор = Объект.Движения.Типовой;
ТаблицаПоОстаткам = Параметры.Типовой;

Если ТаблицаПоОстаткам.Количество() = 0 Тогда

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

Ошибка при загрузке данных: {ВнешняяОбработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(1629)}: Ошибка в обработчике события ПослеЗагрузкиОбъекта
    ИмяПКО                 =  ОперацияБухПоСчету1010
    ТипОбъекта             =  Операция (бухгалтерский и налоговый учет)
    Объект                 =  Операция (бухгалтерский и налоговый учет) 00000000001 от 31.12.2016 0:00:00
    Обработчик             =  ПослеЗагрузкиОбъекта
    ОписаниеОшибки         =  Поле объекта не обнаружено (Типовой)
    ПозицияМодуля          =  (6)
    КодСообщения           =  21
1 DrShad
 
06.12.16
10:16
ну так нет у тебя плана счетов Типовой
2 DrShad
 
06.12.16
10:17
в приемнике
3 DrShad
 
06.12.16
10:18
вернее даже не плана счетов, а регистра
4 blueisacolour
 
06.12.16
10:34
(3) Типовой это Таблица Значения,которуюя выгрузил,ради того что после выгрузки данных шапки документа,заполнить проводку,хотел передать его в виде параметра,а потом пройтись по колекций.у этой конфигураций нет таблицы движениями,а так мог бы через произвольную выгрузку
5 h-sp
 
06.12.16
11:30
(4) а это что?

Набор = Объект.Движения.Типовой;
6 blueisacolour
 
06.12.16
11:58
(5) Движения регистра бух,там же отбор уже есть