Форум казахстанского налогоплательщика

Есть документ "ОперацияБух" которая непосредственно редактирует регистры бухгалтерии, и не имеет табличных частей.
Нужно перебрать все проводки, и в случае если на заполнено субконто 3 на счетах 3120 3150 установить туда некого контрагента.
Кто подскажет правильный код?

А через групповую обработку не получится?

На семерке - раз плюнуть, 8-ку, к сожалению не ковырял

В 8-ке есть в меню - "сервис" - "групповая обработка справочников и документов". Попробуйте.

Den писал(а):Есть документ "ОперацияБух" которая непосредственно редактирует регистры бухгалтерии, и не имеет табличных частей.

Эта обработка позволяет изменять реквизиты формы и табличных частей, не более !

на семёрке делается так:
выбираются операции, фильтруются по типу дока, в цикле бежишь по проводкам, смотришь какие счета, при нахождении нужного, смотришь на заполненность субконто, если не заполнено, создаешь объект документ и ищещь наш нужный, заполняешь реквизиты субконто и перепроводишь док, как-то так...

Я же написал v8
C 7.7 проблем нет, делов на 5 минут!
Про v8 - делов на 15 минут когда ни разу этого не делал...
Оказалось просто до безобразия

Код: Выделить всё

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


Где Контрагент - реквизит формы
Где ОперацияБух - тоже реквизит формы
Но можно их найти и программно, но так как в разных операциях используются разные значения, перенес выбор в форму.

//ЗаписьБУ.СубконтоКт3 = Контрагент;

Не использовать, привычка с 7.7 осталась

Дык у тя ж так перезапишет все субконто, даже те которые уже заполнены

Нужно поставить условие, делать присвоение и запись в случае пустого 3-го субконто, или я не прав

Забыл сказать что работать будет только там где есть глобальная процедура "УстановитьСубконто"

ПроцедурыБухгалтерскогоУчета.УстановитьСубконто(ЗаписьБУ.СчетКт, ЗаписьБУ.СубконтоКт, 3, Контрагент);

Нормальный код, без привязки конфигурации:

Код: Выделить всё

   НаборЗаписейБУ = РегистрыБухгалтерии.Типовой.СоздатьНаборЗаписей();
   НаборЗаписейБУ.Отбор.Регистратор.Использование = Истина;
   НаборЗаписейБУ.Отбор.Регистратор.Значение = ОперацияБух;
   НаборЗаписейБУ.Прочитать();
   Для Каждого ЗаписьБУ Из НаборЗаписейБУ Цикл
      Если (ЗаписьБУ.СчетКт = ПланыСчетов.Типовой.ИндивидуальныйПодоходныйНалог) или
          (ЗаписьБУ.СчетКт = ПланыСчетов.Типовой.СоциальныйНалог) Тогда
         
         ВидСубк = ЗаписьБУ.СчетКт.ВидыСубконто[2].ВидСубконто;
         ЗаписьБУ.СубконтоКт.Вставить(ВидСубк, Контрагент);
      
         ЕстьИзменения = Истина;
      КонецЕсли;
   КонецЦикла;
   Если ЕстьИзменения Тогда
      НаборЗаписейБУ.Записать();
   КонецЕсли;


Gosti писал(а):Дык у тя ж так перезапишет все субконто, даже те которые уже заполнены

Да, так задумано.

Нафига вот только сделали обращение к первому субконто в регистре бухгалтерии как Субконто[0]
второе как Субконто[1]
третье как Субконто[2]
в 7.7 нормальное было
если Субконто(1) значит Субконто1
А в 8 сместили, в чем прикол ?

Den
Вообще в массивах всегда с нулевого, может в этом?

Может... но я не об этом, раньше платформа преобразование 1 в 0 брала на себя, и кодер не задумывался об этом.
А сейчас получается путаница, в одних местах приходится писать 0 в других 1
О чем в типовой уже замечал...

shurik_kz писал(а):Den
Вообще в массивах всегда с нулевого, может в этом?

в разных языках по разному на си да с нулевого, в бейсике (:mrgreen:)
можно задавать при помощи дефайнера option base, в паскале в массивах строк вообще первый (по индексу 0) байт - длина строки

Думаю что в 7-ке тип "субконто" не был абстрагирован, потому и нумерация была с 1, а в 8-ке сделали полную абстракцию типов данных, и в данном случае набор субконто есть указатель на массив типа "субконто"

Gosti писал(а):Дык у тя ж так перезапишет все субконто, даже те которые уже заполнены

Да, так задумано.

Den, прежде чем ляпать языком я внимательно прочел условие задачи

нужно перебрать все проводки, и в случае если на заполнено субконто 3 на счетах 3120 3150 установить туда некого контрагента.

Gosti писал(а):Den, прежде чем ляпать языком я внимательно прочел условие задачи

Ню да, оно у меня везде пустое

ааа

Den писал(а):раньше платформа преобразование 1 в 0 брала на себя

Сейчас 8.1 или 8.2?