BEST logo логотип компании БЭСТ - программы для бизнеса ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
ПОДДЕРЖКА
+7 (495) 775-66-76
consult@bestnet.ru
СКАЧАТЬ
Обновления
Дистрибутивы
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Главная  / Поддержка  / Форум  / Публичные форумы  / БЭСТ-5  / Применние функции поиска проводок в групповой операции.

Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Применние функции поиска проводок в групповой операции.
 
Формирую данные по фин деятельности в групповых операциях.
Необходимо отобрать фирмы поставщиков, у которых суммы больше 50000. Суммировать по каждому и написать за что.
А всех остальных суммировать в прочие.
Использую функцию ПРОТОКОЛ, чтоб получить эти данные на экране.
Подскажите как организовать это в групповой.
Например
имеются следующие проводки:
Фирма1 150 000 - ремонт автомобиля
Фирма1 314 000 - ремонт автомобиля грузового
Фирма2 200 000 - продажа гаража
Фирма3 3 000 - ремонт принтера
Фирма4 1 500 - поставка канцтоваров

Должно получится
Фирма1 ремонт автомобиля 464 000
Фирма2 продажа гаража 200 000
Прочие 4 500

Применил данный код выбора проводок. Проводки выбрались. А как их отранжировать и рассортировать не знаю.
Код
 * гр1 =ПОЛ_ПРОВ("2601","601",А12,А2)
  * В1  = "1"
  * ПОКА (В1=="1")
  *   В = гр1.СУММА
  *   Р12А169 =В+Р12А169
  *    В1 =СЛЕД_ПРОВ(гр1)
  * ВСЕ_ПОКА
  *   Р12А169=Р12А169

Попробовал хотя бы набрать сумму прочих затрат
Код
СУМ = 0
ПОКА ( ШАУ ("Б1") = 1)
ЕСЛИ (СУМ < 50000)
ВЫВОД СУМ
  СУМ1 = СУМ1+СУМ
ВЫВОД СУМ1
ИНАЧЕ
  ВСЕ_ЕСЛИ
ВСЕ_ПОКА

Но выдает ноль. Как поправить групповую?

Имею пока вот такой код

Код
 М1 = "Заработная плата         "
 М2 = "Налоги:               "
 М3 = "В том числе: отчисления от з/платы"
 М4 = "Усн                "
 М5 = "Транспортный налог          "
 М6 = "Экология              "
 М7 = "Начисленная амортизация        "
 М8 = "Списание материалов         "
 М9 = "В том числе ГСМ          "
 М10= "Расходы от списания ОС      "
 М11= "РКО                "
 М12= "% по кредитам            "
 А1 = ДАТА()
 А2 = ДАТА()
 А3 = "2601"
 А5 = "70"
 А6 = "200*"
 А7 = "912"
 Б1 = "601"
 А11 = "01/01/13"
 А1 = СТР_ДАТА(А11),
 А21 = "31/12/13"
 А2 = СТР_ДАТА(А21),
СУМ1=0
ВВОД(("Дата начала    ","А1","Д"),;
     ("Дата конца     ","А2","Д"),;
     ("Номер счета....","Б1","СЧЕТ");
     )
* ___________Сбор суммы Зарплаты______________
      X = ДТКТ(А3,А5,А1,А2)
      X1 = ДТКТ(А6,А5,А1,А2)
      X2 = ДТКТ(А7,А5,А1,А2)
      X3 = ДТКТ("20*","97",А1,А2)
      X4 = ДТКТ("2601*","97",А1,А2)
      X5 = X+X1+X2+Х3+Х4
* ___________Сбор суммы Налоги______________
      X11 = ДТКТ("912*","69*",А1,А2)
      X12 = ДТКТ("20*","69*",А1,А2)
       X13 = ДТКТ("2601*","69*",А1,А2)
      X14 = X11+X12+X13
*         УСН
 X15 = ДТКТ("99У*","6813*",А1,А2)
*         транспортный
 X16 = ДТКТ("26*","6805*",А1,А2)
*         экология
 A8= "912"+"."+"000013"
 X17 = ДТКТ(А8,"686*",А1,А2)
 * итого налоги
  X18 = X14+X15+X16+X17
*         амортизация
      X19 = ДТКТ("912*","02*",А1,А2)
      X20 = ДТКТ("20*","02",А1,А2)
      Х21 = X19+X20
*         списание материалов
      X22 = ДТКТ("912*","10*",А1,А2)
      X23 = ДТКТ("20*","10*",А1,А2)
      X24 = ДТКТ("712*","10*",А1,А2)
      Х25 = X22+X23+Х24
*           в т.ч гсм
      X25 = ДТКТ("20*","712*",А1,А2)
      X26 = ДТКТ("26*","712*",А1,А2)
      Х27 = X25+X26
*         расходы от спиания ос
 A9 = "912"+"."+"000002"
 X28 = ДТКТ(А9,"01*",А1,А2)
 *           РКО
 A10 = "912"+"."+"000010"
 A11 = "912"+"."+"000021"
 X29 = ДТКТ(А10,"51*",А1,А2)
 X30 = ДТКТ(А11,"51*",А1,А2)
 Х31 = X29+X30
*         % по кредитам
 A12 = "912"+"."+"000020"
 X33 = ДТКТ(А12,"51*",А1,А2)
 * гр1 =ПОЛ_ПРОВ("2601","601",А12,А2)
  * В1  = "1"
  * ПОКА (В1=="1")
  *   В = гр1.СУММА
  *   Р12А169 =В+Р12А169
  *    В1 =СЛЕД_ПРОВ(гр1)
  * ВСЕ_ПОКА
  *   Р12А169=Р12А169
 СУМ = 0
ПОКА ( ШАУ ("Б1") = 1)
ЕСЛИ (СУМ < 50000)
ВЫВОД СУМ
  СУМ1 = СУМ1+СУМ
ВЫВОД СУМ1
ИНАЧЕ
  ВСЕ_ЕСЛИ
ВСЕ_ПОКА
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М1, Х5)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М2, Х18)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М3, Х14)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М4, Х15)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М5, Х16)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М6, Х17)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М7, Х21)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М8, Х25)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М9, Х27)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М10, Х28)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М11, Х31)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М12, Х33)
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;; 99999999.99",М12, СУМ1)
Изменено: ВАЛЕРИЙ БОНДАРЧУК - 19.02.2014 06:51:40
 
Цитата
ВАЛЕРИЙ БОНДАРЧУК пишет:
Но выдает ноль.

Так ведь СУМ вроде бы нигде не меняется... Может, как-то так попробовать

Б1="601"
СУМ1 = 0
ПОКА ( ШАУ (Б1) = 1)
СУМ=КТ(Б1,А1,А2)
ЕСЛИ (СУМ < 50000)
...
http://bteh.ucoz.ru Аналитические материалы для бухгалтера и руководителя
 
Валера вызови вызови в групповой функцию сделанную на харборе -пусть она сама все посчитает моментально и вернет обратно полученное значение в групповую и не мучайся
И работать будет моментально и не надо на псевдобейсике блох ловить
 
О великий друг Константин, ты так высоко паришь в познаниях харбора. Что для меня не понятен твой птичий язык.
Помоги кодом.
А мы уж с благодарностью будем нести подарки с нашего Центрального поволжья.
 
Открываем в хот-лайне в разделе программирования.
находим тему в которой подобное обсуждалось
задаем Вопросы в том, что непонятно
 
Модернизировал код, выбирает больше 50000т.р.
Возможно ли подработать его, что бы группировал по клиентам и с условием совпадения первых 6 букв слева.
Вроде стоит совместить с ШАУ и обработки текстовой строки ?
Обнаружили ошибку закрепленных переменных - не выводит гр1.КТ_ИМЯ, хотя КТ_ШАУ показывает.
Код
    Р12А161 =гр1.КТ_ШАУ

Пока имеем такой код

Код
 А1 = ДАТА()
 А2 = ДАТА()
 Б1 = "601"
 А11 = "01/01/13"
 А1 = СТР_ДАТА(А11),
 А21 = "31/12/13"
 А2 = СТР_ДАТА(А21),
СУМ1=0
ВВОД(("Дата начала    ","А1","Д"),;
     ("Дата конца     ","А2","Д"),;
     ("Номер счета....","Б1","СЧЕТ");
     )

* ПОЛУЧАЕМ ПРОВОДКИ РАСХОДА С СУММОЙ МЕНЬШЕ 50000 РУБЛЕЙ
гр1 =ПОЛ_ПРОВ("2*",Б1,А1,А2)
   В1  = "1"
   ПОКА (В1 = "1")
     Р12А168 = 0
     Р12А168 = гр1.СУММА
     ЕСЛИ (Р12А168 > 50000)
     Р12А164 =гр1.ТЕКСТ
     Р12А161 =гр1.КТ_ШАУ
ПРОТОКОЛ ( "0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX; XXXXXXXXXXXXXX; 999999999.99;",Р12А164,Р12А161,Р12А168)
     ИНАЧЕ
     ВСЕ_ЕСЛИ
     В1 =СЛЕД_ПРОВ(гр1)
   ВСЕ_ПОКА
И получили следующий текст на основе проводок

Цитата
за работу самосвала камаз 55111 ак; 001505 ; 58300.00;
аренда автомобиля, акт №7 от 18.01; 001508 ; 183264.00;
вывоз снега, акт23 от 31.01.13 ; 001418 ; 204680.00;
транспортные услуги Камаз 55102,55; 001497 ; 182500.00;
Теплоэнергия январь 2013г. ; 000087 ; 64488.16;
Услуги генподряда 2,5% по дог.№43 ; 000087 ; 66896.68;
побдор мусора, подача контейнеров,; 001530 ; 308000.00;
Теплоэнергия февраль 2013г. ; 000087 ; 58025.20;
Услуги генподряда 2,5% по дог.№43 ; 000087 ; 65260.87;
сбор отходов сучьев, ветвей от лес; 001303 ; 92469.73;
транспортные услуги Камаз 55102 16; 001497 ; 178000.00;
побдор мусора, подача контейнеров,; 001530 ; 303544.00;
Теплоэнергия март 2013г. ; 000087 ; 65961.20;
Услуги генподряда 2,5% по дог.№43 ; 000087 ; 69028.03;
Услуги ген подряда март 2013 ; 000087 ; 167066.64;
побдор мусора, подача контейнеров,; 001530 ; 309600.00;
текущий ремонт груз-ой машины АГП; 001517 ; 141725.00;
сбор отходов сучьев, ветвей от лес; 001303 ; 66822.00;
побдор мусора, подача контейнеров,; 001530 ; 308918.00;
транспортные услуги Камаз 55102 11; 001497 ; 206900.00;
Услуги ген подряда май 2013г. ; 000087 ; 90672.72;
аренда экскаватора Хундай 56ч., ар; 001541 ; 218660.99;
побдор мусора, подача контейнеров,; 001530 ; 306502.00;
Текущее содерж.объектов озеленения; 001456 ; 2466059.37;
транспортные услуги Камаз 55102 98; 001497 ; 156200.00;
побдор мусора, подача контейнеров,; 001530 ; 301420.00;
Услуги ген подряда июль 2013г. ; 000087 ; 171169.51;
Аренда помещения по ул.Гагарина,63; 000087 ; 360450.00;
побдор мусора, подача контейнеров,; 001530 ; 282000.00;
Услуги ген подряда август 2013г. ; 000087 ; 305640.40;
Аренда помещения по ул.Гагарина,63; 000087 ; 120150.00;
сбор отходов сучьев, ветвей от лес; 001303 ; 94165.00;
ремонт ДВС Камаз, акт 571 от 23.09; 001052 ; 98000.00;
транспортные услуги Камаз 55102 10; 001497 ; 114550.00;
побдор мусора, подача контейнеров,; 001530 ; 281878.00;
Аренда помещения по ул.Гагарина,63; 000087 ; 120150.00;
ремонт погрузчика,сч.ф.514 от 30.1; 001551 ; 57550.00;
побдор мусора, подача контейнеров ; 001571 ; 280808.00;
Аренда помещения по ул.Гагарина,63; 000087 ; 120150.00;
Услуги ген подряда октябрь 2013г. ; 000087 ; 137415.75;
побдор мусора, подача контейнеров ; 001571 ; 399336.00;
Аренда помещения по ул.Гагарина,63; 000087 ; 120150.00;
сбор отходов сучьев, ветвей от лес; 001303 ; 113774.95;
транспортные услуги Камаз 55102 15; 001497 ; 169800.00;
Аренда помещения по ул.Гагарина,63; 000087 ; 120150.00;
побдор мусора, подача контейнеров ; 001571 ; 399336.00;
Услуги ген подряда декабрь 2013г. ; 000087 ; 97169.40;
Изменено: ВАЛЕРИЙ БОНДАРЧУК - 25.02.2014 12:32:50
Страницы: 1
Читают тему (гостей: 1)