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

Блог имени 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

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

     
    Сообщения: 8446
    Зарегистрирован: 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-ке есть в меню - "сервис" - "групповая обработка справочников и документов". Попробуйте.
      Аватара пользователя
      Нуреке

       
      Сообщения: 8446
      Зарегистрирован: 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С Казахстан

                                       


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

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

                                      Сейчас этот форум просматривают: Bing [Bot] и гости: 13




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

                                      Тогда и мы с радостью примем Вашу помощь
                                      Отправьте С.М.С. на номер 3350 c текстом CE2333
                                      Латинскими (английскими, не русскими) буквами (для абонентов KCell, Activ, Dalacom, Pathword, Neo, Beeline, K-Mobile)
                                      Стоимость одной С.М.С. 170 тенге (KZT) с НДС

                                      Каждая Ваша С.М.С. сделает сайт лучше



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

                                      Кино: новинки, любимые, советую посмотреть
                                      Кайрат-F2
                                      Вчера, 11:06

                                      [Новость] Новости от 1С
                                      makfromkz
                                      Вчера, 09:48

                                      Проблемы образования.
                                      Кайрат-F2
                                      19 янв 2018, 22:56

                                      Начисление пени по налогам и другим обязательным платежам в
                                      Tanyshencia
                                      19 янв 2018, 16:47

                                      Музыка. Кто что любит и слушает.
                                      Кайрат-F2
                                      19 янв 2018, 16:19

                                      gov4c.kz - Официальный сайт ГК "Правительство для граждан"
                                      Кайрат-F2
                                      19 янв 2018, 01:05

                                      Футбол-футбол
                                      Senator_I
                                      18 янв 2018, 16:12

                                      Пеня по социальным и пенсионным отчислениям
                                      timur_26_
                                      18 янв 2018, 15:29

                                      Интересные факты, фото, новости...
                                      Кайрат-F2
                                      18 янв 2018, 15:22

                                      [Новость] Правила заполнения налоговых форм на 2018 год
                                      timur_26_
                                      18 янв 2018, 15:14

                                      [Новость] Новый Налоговый Кодекс РК 2018 года
                                      timur_26_
                                      18 янв 2018, 15:11

                                      [Новость] Смешные новости и глупые инициативы.
                                      Senator_I
                                      18 янв 2018, 12:25

                                      [Справочный материал] Ставки платы за эмиссии в окружающую среду на 2018 год
                                      Senator_I
                                      17 янв 2018, 12:24

                                      [17.01.2018 обновлена] JRE необходимый для работы в Кабинете налогоплательщика
                                      Кайрат-F2
                                      17 янв 2018, 10:39

                                      ИС Декларант (ИС Акциз) версия 1.0.3.72 [от 25 декабря 2017]
                                      Кайрат-F2
                                      16 янв 2018, 16:18

                                      [05.10.2016 обновлена] ИС Декларант (ИС Акциз) версия 1.0.3.71 [от 4 октября 2016]
                                      lyubashulya
                                      16 янв 2018, 16:00

                                      Девальвация или инфляция в Казахстане?
                                      Necytij
                                      16 янв 2018, 12:39

                                      Теряем своих кумиров...
                                      Нуреке
                                      16 янв 2018, 11:12

                                      [Новость] Базовые ставки МРП, МЗП на 2018 год в Казахстане
                                      timur_26_
                                      15 янв 2018, 23:03

                                      Трудоустройство, вакансии, работа
                                      Senator_I
                                      15 янв 2018, 12:36

                                      [Новость] Касательно применения ККМ
                                      Senator_I
                                      15 янв 2018, 10:27

                                      Новости Астаны и Акмолинской области.
                                      Senator_I
                                      15 янв 2018, 08:54

                                      [Новость] Смена налогового режима, уведомление о применяемом режиме
                                      timur_26_
                                      14 янв 2018, 14:06

                                      [Новость] Ужесточение розничной торговли алкоголем
                                      timur_26_
                                      14 янв 2018, 13:52

                                      [Делимся опытом] Некоторые сервисы в 1С7.7
                                      daur
                                      12 янв 2018, 17:04

                                      [Новость] Налоговые регистры
                                      honey_3112
                                      12 янв 2018, 11:22


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