Как зарегистрироваться на форуме?

Блог имени Den (темы, которые создал(а) участник форума Den)

Перебор и замена реквизитов в проводках операции в 1С 8

Программы серии 1C для бухгалтерии Казахстана (1С:Предприятие, Бухгалтерский учет, Зарплата и Управление Персоналом, Управление Торговлей, Торговля и Склад, Зарплата и Kадры и т.д.).

Перебор и замена реквизитов в проводках операции в 1С 8

Сообщение Den » 22 июл 2010, 17:37

Есть документ "ОперацияБух" которая непосредственно редактирует регистры бухгалтерии, и не имеет табличных частей.
Нужно перебрать все проводки, и в случае если на заполнено субконто 3 на счетах 3120 3150 установить туда некого контрагента.
Кто подскажет правильный код?
Последний раз редактировалось shurik_kz 22 июл 2010, 21:42, всего редактировалось 1 раз.
Причина: Подправил название темы
Аватара пользователя
Den

 
Сообщения: 390
Зарегистрирован: 10 сен 2008, 17:07
Профессия: Программист 1С
Блог имени Den
Активность участника


    Эта тема в сообществах:


    Re: v8 - Перебор и замена реквизитов в проводках операции

    Сообщение Нуреке » 22 июл 2010, 17:41

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

     
    Сообщения: 8976
    Зарегистрирован: 06 апр 2009, 09:25
    Откуда: Шымкент
    Блог имени Нуреке
    Активность участника

    Re: v8 - Перебор и замена реквизитов в проводках операции

    Сообщение Gosti » 22 июл 2010, 17:45

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

     
    Сообщения: 3851
    Зарегистрирован: 12 май 2010, 13:46
    Откуда: From bunch of crap
    Профессия: Безработный
    Блог имени Gosti
    Активность участника

      Re: v8 - Перебор и замена реквизитов в проводках операции

      Сообщение Нуреке » 22 июл 2010, 17:47

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

       
      Сообщения: 8976
      Зарегистрирован: 06 апр 2009, 09:25
      Откуда: Шымкент
      Блог имени Нуреке
      Активность участника

      Re: v8 - Перебор и замена реквизитов в проводках операции

      Сообщение Den » 22 июл 2010, 17:50

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

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

       
      Сообщения: 390
      Зарегистрирован: 10 сен 2008, 17:07
      Профессия: Программист 1С
      Блог имени Den
      Активность участника

        Re: v8 - Перебор и замена реквизитов в проводках операции

        Сообщение Gosti » 22 июл 2010, 17:55

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

         
        Сообщения: 3851
        Зарегистрирован: 12 май 2010, 13:46
        Откуда: From bunch of crap
        Профессия: Безработный
        Блог имени Gosti
        Активность участника

          Re: v8 - Перебор и замена реквизитов в проводках операции

          Сообщение Den » 22 июл 2010, 18:04

          Я же написал v8 :D
          C 7.7 проблем нет, делов на 5 минут!
          Про v8 - делов на 15 минут когда ни разу этого не делал...
          Оказалось просто до безобразия :D
          Код: Выделить всё
             НаборЗаписейБУ = РегистрыБухгалтерии.Типовой.СоздатьНаборЗаписей();
             НаборЗаписейБУ.Отбор.Регистратор.Использование = Истина;
             НаборЗаписейБУ.Отбор.Регистратор.Значение = ОперацияБух;
             НаборЗаписейБУ.Прочитать();
             Для Каждого ЗаписьБУ Из НаборЗаписейБУ Цикл
                Если (ЗаписьБУ.СчетКт = ПланыСчетов.Типовой.ИндивидуальныйПодоходныйНалог) или
                    (ЗаписьБУ.СчетКт = ПланыСчетов.Типовой.СоциальныйНалог) Тогда
                   ПроцедурыБухгалтерскогоУчета.УстановитьСубконто(ЗаписьБУ.СчетКт, ЗаписьБУ.СубконтоКт, 3, Контрагент);
                   //ЗаписьБУ.СубконтоКт3 = Контрагент;
                   ЕстьИзменения = Истина;
                КонецЕсли;
             КонецЦикла;
             Если ЕстьИзменения Тогда
                НаборЗаписейБУ.Записать();
             КонецЕсли;

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

           
          Сообщения: 390
          Зарегистрирован: 10 сен 2008, 17:07
          Профессия: Программист 1С
          Блог имени Den
          Активность участника

            Re: v8 - Перебор и замена реквизитов в проводках операции

            Сообщение Den » 22 июл 2010, 18:05

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

            Не использовать, привычка с 7.7 осталась :D
            Аватара пользователя
            Den

             
            Сообщения: 390
            Зарегистрирован: 10 сен 2008, 17:07
            Профессия: Программист 1С
            Блог имени Den
            Активность участника

              Re: v8 - Перебор и замена реквизитов в проводках операции

              Сообщение Gosti » 22 июл 2010, 18:07

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

               
              Сообщения: 3851
              Зарегистрирован: 12 май 2010, 13:46
              Откуда: From bunch of crap
              Профессия: Безработный
              Блог имени Gosti
              Активность участника

                Re: v8 - Перебор и замена реквизитов в проводках операции

                Сообщение Gosti » 22 июл 2010, 18:08

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

                 
                Сообщения: 3851
                Зарегистрирован: 12 май 2010, 13:46
                Откуда: From bunch of crap
                Профессия: Безработный
                Блог имени Gosti
                Активность участника

                  Re: v8 - Перебор и замена реквизитов в проводках операции

                  Сообщение Den » 22 июл 2010, 18:23

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

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

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

                  Да, так задумано.
                  Аватара пользователя
                  Den

                   
                  Сообщения: 390
                  Зарегистрирован: 10 сен 2008, 17:07
                  Профессия: Программист 1С
                  Блог имени Den
                  Активность участника

                    Re: v8 - Перебор и замена реквизитов в проводках операции

                    Сообщение Den » 22 июл 2010, 18:26

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

                     
                    Сообщения: 390
                    Зарегистрирован: 10 сен 2008, 17:07
                    Профессия: Программист 1С
                    Блог имени Den
                    Активность участника

                      Re: v8 - Перебор и замена реквизитов в проводках операции

                      Сообщение shurik_kz » 22 июл 2010, 18:46

                      Den
                      Вообще в массивах всегда с нулевого, может в этом?
                      Аватара пользователя
                      shurik_kz
                      -------
                       
                      Сообщения: 6927
                      Зарегистрирован: 17 сен 2008, 15:02
                      Откуда: Almaty
                      Профессия: IT Специалист
                      Блог имени shurik_kz
                      Активность участника

                        Re: v8 - Перебор и замена реквизитов в проводках операции

                        Сообщение Den » 22 июл 2010, 18:48

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

                         
                        Сообщения: 390
                        Зарегистрирован: 10 сен 2008, 17:07
                        Профессия: Программист 1С
                        Блог имени Den
                        Активность участника

                          Re: v8 - Перебор и замена реквизитов в проводках операции

                          Сообщение Gosti » 22 июл 2010, 19:31

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

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

                           
                          Сообщения: 3851
                          Зарегистрирован: 12 май 2010, 13:46
                          Откуда: From bunch of crap
                          Профессия: Безработный
                          Блог имени Gosti
                          Активность участника

                            Re: v8 - Перебор и замена реквизитов в проводках операции

                            Сообщение Gosti » 22 июл 2010, 19:34

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

                             
                            Сообщения: 3851
                            Зарегистрирован: 12 май 2010, 13:46
                            Откуда: From bunch of crap
                            Профессия: Безработный
                            Блог имени Gosti
                            Активность участника

                              Re: v8 - Перебор и замена реквизитов в проводках операции

                              Сообщение Gosti » 22 июл 2010, 19:36

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

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

                              Den, прежде чем ляпать языком я внимательно прочел условие задачи ;)
                              нужно перебрать все проводки, и в случае если на заполнено субконто 3 на счетах 3120 3150 установить туда некого контрагента.
                              Аватара пользователя
                              Gosti

                               
                              Сообщения: 3851
                              Зарегистрирован: 12 май 2010, 13:46
                              Откуда: From bunch of crap
                              Профессия: Безработный
                              Блог имени Gosti
                              Активность участника

                                Re: v8 - Перебор и замена реквизитов в проводках операции

                                Сообщение Den » 22 июл 2010, 19:47

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

                                Ню да, оно у меня везде пустое :D
                                Аватара пользователя
                                Den

                                 
                                Сообщения: 390
                                Зарегистрирован: 10 сен 2008, 17:07
                                Профессия: Программист 1С
                                Блог имени Den
                                Активность участника

                                  Re: v8 - Перебор и замена реквизитов в проводках операции

                                  Сообщение Gosti » 22 июл 2010, 19:50

                                  ааа :D
                                  Аватара пользователя
                                  Gosti

                                   
                                  Сообщения: 3851
                                  Зарегистрирован: 12 май 2010, 13:46
                                  Откуда: From bunch of crap
                                  Профессия: Безработный
                                  Блог имени Gosti
                                  Активность участника

                                    Re: Перебор и замена реквизитов в проводках операции в 1С 8

                                    Сообщение shurik_kz » 22 июл 2010, 21:44

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

                                    Сейчас 8.1 или 8.2?
                                    Аватара пользователя
                                    shurik_kz
                                    -------
                                     
                                    Сообщения: 6927
                                    Зарегистрирован: 17 сен 2008, 15:02
                                    Откуда: Almaty
                                    Профессия: IT Специалист
                                    Блог имени shurik_kz
                                    Активность участника

                                      След.

                                      Привет. Мы ищем таланты:
                                      • Тебе интересен форум? Ты хочешь участвовать и развивать его?
                                      • Тебе интересно в твоей профессии?
                                      • Тебе есть чем поделиться из твоего опыта с коллегами на форуме? Есть чем поделиться из собственного опыта, научить или рассказать?
                                      Мы ищем таланты, которые помогут развить форум. Что взамен:
                                      • Получить приглашение на форум
                                      • Радость общения
                                      • Совместное развитие
                                      Как: об этом написано на странице: http://tandem.f2.kz/

                                      Вернуться в 1С Казахстан

                                       


                                      • Похожие темы
                                        Ответы
                                        Просмотры
                                        Последнее сообщение

                                      Кто сейчас на конференции

                                      Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9


                                      Лучшие темы за неделю:



                                      Вам помог наш сайт?

                                      Тогда и мы с радостью примем Вашу помощь
                                      Перечислите любую сумму на Билайн-номер +7-777-398-41-00

                                      Каждое перечисление поможет форуму!



                                      Новые сообщения:

                                      Работа налоговых серверов в 1 квартале 2024 года
                                      Кайрат-F2
                                      Вчера, 20:26

                                      [Новость] pki.gov.kz Национальный удостоверяющий центр РК
                                      Кайрат-F2
                                      Вчера, 14:12

                                      Соболезнуем...
                                      Кайрат-F2
                                      27 мар 2024, 17:13

                                      Экономика Казахстана к 2060 годам и сегодняшней рождаемость
                                      Кайрат-F2
                                      26 мар 2024, 21:11

                                      [12.03.2024 обновлена] Шаблоны форм на 2022 год для ИС СОНО
                                      Кайрат-F2
                                      12 мар 2024, 14:36

                                      День благодарности
                                      daur
                                      03 мар 2024, 16:11

                                      Работа сайта и форума bb.f2.kz
                                      Кайрат-F2
                                      01 мар 2024, 21:19

                                      [Новость] Версия ИС СОНО 4.0.38 [29.02.2024]
                                      Кайрат-F2
                                      01 мар 2024, 20:09

                                      [Новость] Предельные цены на нефтепродукты в Казахстане
                                      Кайрат-F2
                                      28 фев 2024, 11:15

                                      Кино: новинки, любимые, советую посмотреть
                                      Кайрат-F2
                                      23 фев 2024, 12:26

                                      Статус "Обрабатывается в ЦУЛС"
                                      Кайрат-F2
                                      14 фев 2024, 19:37

                                      [05.02.2024 обновлена] Шаблоны форм на 2023 год для ИС СОНО
                                      Кайрат-F2
                                      05 фев 2024, 22:02

                                      [05.02.2024 обновлена] Шаблоны форм на 2024 год для ИС СОНО
                                      Кайрат-F2
                                      05 фев 2024, 22:02

                                      [05.02.2024 обновлена] Шаблоны форм на 2021 год для ИС СОНО
                                      Кайрат-F2
                                      05 фев 2024, 21:58

                                      [05.02.2024 обновлена] Шаблоны форм на 2020 год для ИС СОНО
                                      Кайрат-F2
                                      05 фев 2024, 21:57

                                      [05.02.2016 обновлена] Обновления "Бухгалтерия для Казахстана" 1С 8.2 редакции 2.0
                                      vad1
                                      05 фев 2024, 21:41

                                      [05.02.2024 обновлена] Правила заполнения налоговых форм на 2019 год
                                      Кайрат-F2
                                      05 фев 2024, 15:57

                                      А вы знаете, что.............
                                      Кайрат-F2
                                      03 фев 2024, 18:53

                                      [02.02.2024 обновлена] Правила заполнения налоговых форм на 2018 год
                                      Кайрат-F2
                                      02 фев 2024, 18:35

                                      [Новость] Перспективы развития интернета в Казахстане
                                      Кайрат-F2
                                      31 янв 2024, 14:50

                                      Производство зерна в Казахстане
                                      Кайрат-F2
                                      25 янв 2024, 23:44

                                      Девальвация или инфляция в Казахстане?
                                      Кайрат-F2
                                      24 янв 2024, 05:31

                                      Цены на овощи и фрукты в Казахстане
                                      Кайрат-F2
                                      23 янв 2024, 18:39

                                      Трясет, однако !!!!
                                      Кайрат-F2
                                      23 янв 2024, 01:43

                                      Новогодняя тема
                                      Кайрат-F2
                                      29 дек 2023, 13:25

                                      [28.12.2023 обновлена] AKMedia Browser 23.12.28[ЭСФ, обновление форм СОНО, Кабинет]
                                      Кайрат-F2
                                      28 дек 2023, 22:41


                                      Хостинг предоставлен Компанией Хостинг–Сервис HS.kz