Добрый день. Вот решил вытащит такой вопрос на обсуждение. Целевая аудитория для 1С.
Лично я семерочник, в основном. У меня небольшая кучка фирм, я их типа обслуживаю. Шабашки. Фирмы мелкие 5-10 человек, тип купи-продайка и мелкое производство(окна двери, пилорама, сварка, ковка). Основная конфа это ТиС пиленая и доработанная(грубо говоря одно название осталось).
Вот предпринимаю неоднократные попытки их перевести на 8.2 и типовые, типа УНФ и УТ. Там в принципе все что им надо есть есть. Но никто не хочет. Основные аргументы там слишком сложно, много лишнего(ну честно скажу есть некий избыток функционала) и дорого. Может послать их? Новые фирмы искать, а это типа нищеброды не достойны они прога 1С?

а зачем пытаешься переводить?

т.е. какой профит ларьку менять коней, когда и старые исправно тянут телегу?

(0) а нафига переводить, если и так все работает?

(0) "Основные аргументы там слишком сложно, много лишнего"
Если они про УТ 11, то да. А если про УТ 10.3, то покажи им УТ 11 - пусть поймут, где на самом деле сложно и много лишнего. Все познается в сравнении =)

(1)Моя основная работа теперь на УП завязана, надоело мозг переключать.
(2)Поддержка будет. Костылей куча уйдет. А так они мне уже в тягость. Да и семерочников мало уже. Их никто не берет.

(5) скажу тебе по секрету - ты жертва мифа)
есть программисты, а есть недопрограммисты))

(5) "Да и семерочников мало уже. Их никто не берет."
А это значит, что они от тебя уж точно не уйдут =)

"Да и семерочников мало уже. Их никто не берет." - некоторые ищут ищут и никак не могут  адекватных найти.

(5) У тебя контракт на пожизненное рабство с ними? Или ты думаешь на 8-ке будет меньше костылей? А обучать кто будет? и за чей счет?

(5) Подними ценник на доделки 7.7, делов-то.

(5) Да давай их мне, я тебе 20% честно отдам

(6)Какого?
(9)Жалко. Старые отвалятся, до новых пока далеко. На пару лет без костылей хватит. Я буду. Своих же обучил. За их. Я им даже абонку бы не поднимал.

Да и товарищи давайте глобальней вопрос рассмотрим, а не только мой узкий случай.

А не придется ли случайно после перехода еще и дописки на УФ переносить (а точнее переписывать)
Хитрый план ;)

зачем переводить? что их на 7ке не устраивает?

(10)Я вообще семеркой заниматься не хочу.
(13)Процент невелик будет. Двоих перевел уже.

Вообще да, возможностей все больше и больше... но что от этого плохого? Компьютеры тоже изначально не привычнее было чем на бумаге писать. Теперь только плюсы выходят =)

(14)Их устраивает, меня не устраивает.

(15) тогда переводи забесплатно. почему они должны платить за твои хотелки?

(18)С удовольствием. Но основные аргументы там слишком сложно, много лишнего(ну честно скажу есть некий избыток функционала) и дорого говорят.

(12) А где вопрос? В сабже только один вопрос "Может послать их?"

Ты это хочешь обсудить?

Хотелось бы осудить какая целевая аудитория для продуктов 1С.

8ка сырая

(21) Каких для последних типовых (типа УТ 11)? Так 1С сама еще не знает. По замашкам - крупное предприятие. По реализации в типовых - ларек

Мой знакомый коллега, например, делает небольшие конфы с нуля, уровня до 10 доков, тройка регистров, и несколько отчетов. Говорит, проще простое наваять и они сами разберутся, чем им УНФ устанавливать и длительно обучать и лишние функции отключать.
Для меня подход такой странный, типовые ведь думающие люди делали. Да и нафига свою конфу тянут, проще доработь типовую

(22)Не скажи. УФ очень даже круть.

(23) набор для небольшой фирмы позиционирует себя, как от ларька до средничка
причём с помощью функциональных опций можно включать/отключать некоторые функциональности

(25) что такое УФ? и зачем она для ларька

(27) чтобы iPAd заходить в БД

согласен с сабжем и коллегой (24)-снеговик не для мелких контор, просто 1С мало бабла

(23)УТ11 пока еще не освоил. Пока предыдущая версия, и в основном УНФ.
(27)Управляемые формы, управляемое приложение.

iPAd продавца? или кладовщика?

(29)Так платформу им все равно покупать. На круг не дешевле чем типовую купить получается.

(29) Не скажи. Если мы говорим о типовой БП например, то я бы поставил на 8-ку, тем более цена намного меньше чем у 7-ки (я про базовую, мы же про ларек говорим)

(29) 1с-ке денег хватает =)

(0)
В данном случае помогла бы твоя самописная оболочка (читать внешняя обработка или их набор), в котором ты бы и заботливо собрал только нужный им функционал.

(35)
А "костяк" оставил бы 1С-овский - если он там хорошо спроектирован - зачем выдумывать велосипед?

(30) И что такое может УФ, что не может толстый клиент (при этом что на обычных формах можно сделать более извращенные формы, чем на УФ)

(35) БСП?

(38)
Нет - саму структуру конфы (регистры, документы, и т.п.)

(33) если вопрос цены встаёт, то проще не покупать пп

(37)Например, формы рисовать не надо, народ их сам по себя подгоняет. Это круть. Куча головной боли уходит, тому там кнопочку, этому там.

Просто накрыть это дело красивой оболочкой, в которой несколько нужных кнопок только, а что не нужно - или не заполняется, или автоматически подставляется вне поля видимости пользователя

(42)Типа надстройка над типовой?

(43)
Ну да, в идеале - вообще без какой-либо допилки типовой. Решение на перспективу. Только вот по деньгам такое решение уж не скажу, что сильно дешево выйдет

(23) УПП - конфа для ларька?
(29) 1C какой профит тащить 2 платформы из-за мелких фирм? они сейчас ориентируются на то что покрупнее.

(41) Спасибо улыбнул. Обычно при переходе всё как раз в это упирается. А вот тут в старой программе у меня пидалька была, а в новой она на 5 см левее и мне не удобно, верните как было

(45) Да, да и еще раз да. Потому что для работы предприятия работающие в режиме 24/7 она НЕ подходит

(0) Для мелких фирм есть базовые и полностью типовые конфигурации. Типа поставил и пользуйся как есть + обновления для базовых бесплатно (для небазовых по весьма скромной цене).

Всё остальное (самописки, допиливание типовых и т.п.) действительно не для мелких фирм. Т.к. помимо стоимости самой разработки (допиливания) есть еще поддержка и сопровождение таких конф, которая тоже стоит денег (каждое обновление - заплати прогу + заплати за ИТС).

Исключения составляют самописки, которые сделаны только для внутреннего учета, ни как не завязаны на регламентированный учет (изменяющееся законодательство), предназначены для фирм, где автоматизируемые бизнес-процессы со временем ни как (или почти ни как) не меняются.

Вывод: твоим клиентам обновление действительно не нужно. Руководству непонятен смысл таких затрат (зачем что-то менять, если всё работает?). И они правы.
Ищи себе новых клиентов.

(41) вот наверное после этого "народ их сам по себя подгоняет" и возникают возражения, что 8.2 очень сложно. Но если взять базовый функционал, то накладные выписывать в УФ ничем не сложнее чем в 7.7

(47) много проектов такого внедрения пробовал проводить?

(46)Ага. Я когда эту фишку показал, так сразу кучу одобряма от пользователей получил. Сейчас СКД внедряем в массы.
(49)Не от этого. Сложно что в доках, справочниках и отчетах куча реквизитов. Доков много. Которые считаются лишними. Цепочки сложные. Особенно недоумение вызывает ордерная система движения товара.  Отделное неприятие вызывает СКД. Народу хочется простых отчетов.

(50) А что проводить если жена второго программиста, который со мной работает, работает как раз на таком крупном предприятии где УПП решили внедрить. Уже не первый год плюются и не могут себестоимость посчитать

(51) > Отделное неприятие вызывает СКД. Народу хочется простых отчетов.


ты им расскажи, что СКД -- свет, "обычные" отчёты -- тьма

(51) "ордерная система движения товара" если чо, то она отключается.

(54) Да все можно отключить, только непонятно для чего эта куча функционала, если она была введена чисто для галочками методистами которые в глаза не видели как оно должно быть

(55) для тех кто таки использует ордерную схему и понимает зачем она нужна... как бы так...

(54)Угу. Но ее наличие вызывает ощущение сложности и перегруженности конфигурации функционалом.

(57) так не показывайте ее тем, кому она не нужна.

(48)Вот и стоит вопрос где искать. Для кого 1С и типовые? И так что в одно лицо тянут.

(56) Вот только в том виде как это представляет себе 1С очень мало людей, даже из тех которые пользуются ордерной схемой, могут её использовать

(58)И книги с описание конфы тоже отбирать? Они же сначала на семинары франчевые ходять, а франчи суки еще и расписывают в красках и рай земной сулят, и описание читают. И демки смотрят.

(52) т.е. не читал, но осуждаю...
пример приведу: внедряли задачу, бух прибегает и говорит что неверно считается и надо переделать программу так как нужно чтобы считалось, пересчитали вручную - всё верно в программе, а сама бух неверно считала. Так и чье-то там жены на предприятии может считают, а так всё зависит от внедренцев, а внедрять 2 года - это уже долго.

(0) 1С для всего с чего деньги получить можно.

(61) ну а вы им волшебство покажите... как одним движением руки брюки превращаются... брюки превращаются...

(62) Т.е. не читал? Мне и БП за глаза хватает, чтобы понять о чем речь.

Или ты думаешь в УТ и в УПП отложенное движение от хорошей жизни сделали? А когда делать отложенное движение, если фирма работает в режиме 24/7 (производство)

(59) >> Вот и стоит вопрос где искать

Кого искать?
Клиентов, сидящих на типовых?

Ты не поверишь, но таких подавляющее большинство.
Просто большинство участников форума о них не знает, т.к. таким фирмам не нужен программист - им обновление ставит либо сервис-инженер из ближайшего франча в рамках ИТС, либо сам бухгалтер (пользователь) через интернет или с того же ИТС.

(65) т.е. на основании работы с БП и мнения человека со стороны ты делаешь выводы о функционале и возможностях УПП?

(67) Нет, я и УПП ковырял и УТ, пытались внедрить.

(68)в том и проблема что "ковырял"

Просто если они на такой простой конфе как БП не могут сделать нормальную параллельную работу без извращений, то что говорить о более сложных в виде УПП

(69) Т.е. если человек у которых франчи внедряют говорит о таких проблемахв УПП, мне ему не верить?

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

(71)я сам воспитанник франча. В франчах тоже студенты работают, которые ковыряют и ковыряют, вместо того что бы курсы пройти. Лично присутствовал на двух проектах одного франча - один два года внедряли одну подсистему так и не внедрили, а вторых за полгода все от электронных писем в 1ске до многопередельного беспрерывного производства. Потому как  первый проект внедрял ковыряльщик, другой рп был грамотный методолог и архитектор. УПП один релиз с одинаковым функционалом

С точки зрения фирм понятно накладно учить новые конфы и апгрейды делать, если и так все пашет. Единственное, что никак не могу понять зачем 1с еще до сих пор обновы для 7.7 делает, давно пора всех переводить на 8.2. Поднимать цены можно для обслуживания 7.7, возможно тогда и перейдут.

Конфы разные кстати есть, если им так много всего пиши свою на основе розницы или свою, один фиг ключи для 8 одинаковые

(71) на сайте 1С полно примеров удачного внедрения УПП на предприятиях. Им нельзя верить?

(76) Ага полно. В фирму из 1 человека успешно установлена типовая версия УПП. Это успех.

(77) а ты посмотрел?

а так как в том анекдоте про ботинки

Приходит как-то раз старый еврей к раввину и говорит:
- Реббе, я пришел таки попросить тебя о том, чтобы ты развел меня с моей женой!
- Йося, не приболел ли ты случаем? Как скажи так?- замечает на что ему раввин - У тебя таки есть молодая и еще красивая жена! Она, как говорят разные люди – прекрасная хозяйка и мать твоих детей!
- Да, это так, знаю! Ну что тут поделать, если уже и мне не можно таки больше терпеть эту женщину!
- Да в своем ли ты уме? Сколько вокруг разговоров, да все о том – как вы таки хорошо со своей Сарочкой смотритесь в обществе, дай ей Бог здоровья!
- Таки да, реббе, это понятно. Но посмотри вот на мои туфли!
- И шо тут смотреть, туфли как туфли!
- Э, нет! Это таки новые и красивые туфли!
- Да, я теперь вижу, шо это новые и красивые туфли!
- Да вот все видят и говорят мне, шо это новые и красивые туфли. Но только я один знаю, как они мне жмут!

(78) Т.е. съездил ли я лично на ту фирму и посмотрел ли я лично как там работает УПП?

И да ни один руководитель валивший пару лямов в ПО не будет потом кричать вот я лох пидальный ввалил в такое УГ, а будет пытаться палками заставлять в этом УГ работать

(74) >> зачем 1с еще до сих пор обновы для 7.7 делает

Во-первых, потому что обещали.
Во-вторых, потому что доля клюшек еще очень велика (особенно в регионах).
В-третьих, уже очень давно обновления включают только минимальную поддержку изменений законодательства. Ни какого развития функционала давным давно нет.
Хотя лично по мне, так сняли бы с поддержки полностью, как это делает MS со своими продуктами. Объявили бы, что в течении одного-двух лет поддержка будет закрыта, предложили бы апгрейд за копейки (а не как сейчас - не больше 50% стоимости в зачет идет).

>> Поднимать цены можно для обслуживания 7.7

Проснулся! Уже сделали ИТС обязательным для всех клюшек (кроме базовых).

(80) Ерунду говорите, молодой человек. Здесь на форуме полно людей, внедрявших и внедряющих УПП. Лично я считаю, что выпустив УПП, 1С выросла над собой неимоверно. Если бы не было УПП, возможно мы не стали бы заключать франчайзинг

(80) для начала посмотреть список внедрений, а потом говорить про "В фирму из 1 человека"

(82) А я и не спорю, что ларька или для фирмы в 2 человека УПП взлетит в раз. Но там где постоянное производство ... вот в соседней ветки осуждали складскую логистику на производстве и почему то предложили выкинуть УПП и написать свой документ. видно тоже хреново знают УПП

(84) Мы внедряем молокозаводы. Это настоящее производство или как?

(83) Ага у меня один главбух тоже повелся на рекламные слоганы про УАТ, даже в москву на семинар с разработчиками летала. Вообщем после живого общения пыл угас. Это не работает это и не будет работать, а это должно работать но мы его еще не дописали.

Нет через год после покупки и доработки напильником внедрили таки, но все равно, одно дело красивые отзывы, другое дело реальность

(0) Если людям не нужна автоматизация ...то ккакого фига ты к ним лезешь....вот если честно вообще не понятно

(84) вот такой пример пойдет: http://www.intel-kom.ru/press_center/company_news/detail.php?ID=822 ?

(85) еще раз, 1С не стоит на месте и то что не работало в БП 1.5 криво, косо, но работает в 2.0. В 3.0 надеюсь будет еще лучше работать.

Так что возможно сейчас с напильником что-то и взлетит, низенько

(84)Ну если это та ветка, которая вчера была, то таки да - товарищ не понимает отличия производства от складской логистики)))

(88) нет, ибо голая реклама.

(89)УПП взлетает там где заказчик знает что хочет и франчи знают УПП. Если одно из условий не работает - внедрение УПП не взлетит. В принципе как и любого другого продукта

(0) они еще сволочи наверное и компы новые покупать не хотят?

Ладно, всем удачных внедрений, но пока что я вижу что без напильника 1С далеко от ларька не ушла. Т.е. потенциал есть, но вот реализовать его у 1С пока что получается с большими проблемами

(94)Назовите одну систему которая на КРУПНОМ предприятии без напильника взлетает?

http://www.google.ru/#hl=ru&gs_nf=3&cp=30&gs_id=20p&xhr=t&q=казанский+вертолетный+завод+1С&pf=p&newwindow=1&sclient=psy-ab&oq=казанский+вертолетный+завод+1С&gs_l=&pbx=1&bav=on.2,or.r_gc.r_pw.r_qf.&fp=165978dd94155006&bpcl=38625945&biw=1920&bih=893

не многова-то для рекламы?
PS. мне главбух предлагала съездить туда, посмотреть как там реализовано, о она это согласовала с руководством завода

ИМХО без напильника  на крупных предприятих не взлетит не одна прога....это сказки

(94) есть у меня внедрение на типовом функционале УПП, без изменения конфы. Единственно печатные формы к доком прикреплял и пару отчетиков дополнительных. Предприятие - производство бетоных блоков, численость около 1 тыс. человек.

потому что невозможно сделать прогу ДЯЛ ВСЕХ

ДЛЯ ВСЕХ

(96) Это свежее внедрениие, еще время не пришло, а так я могу и противоположные новости накидать

Производитель автозаправочной техники отказался от 1С (с) http://www.tadviser.ru/index.php/Новость:Производитель_автозаправочной_техники_отказался_от_1С

Строительный подрядчик «Газпрома» и «Лукойла» отказался от 1С в пользу SAP (с) http://www.tadviser.ru/index.php/Проект:Стройгазконсалтинг_(SAP_ERP)

у вас тут прям офф в оффе. вопрос про мелкие предприятия а обсуждаются особенности крупных внедрений

(87)Пока они ко мне лезут.
(93)Покупают. Что вызывает еще одну проблему не совместимости ОС и семерки.

Так, приперлись те у кого по 25 и притащили УПП. Давайте любители УПП в другу ветку писками мерится пойдете, а?

(0) УТ дорого?...

Да уж "притом что в «1С:Предприятии 8» одновременно работает до 500 пользователей"

Вот не поверю что одновременно 500 человек в типовой УПП сидят и работают

небось еще вместо сервака ноутбук директора, но чтобы уж ого-го смотрите какая 1С

(104)Как сравнить7 УТ на пять пользователей 1000 баксов.
Знакомый пишет мелкие конфы, берет бухию на те же 1000 баксов и выходит.

(105) есть опыт не 500 пользователей, а 300, но в клюшках.

(105)Если нормуль железо, такое как под сап, то почему нет?
В одном из самых крупных предприятий Украины сап поставили дабы получить кредит на западе. Спросил их итшников как в сапе проблема с быстродействием? Ответ убил - при начале новых тормозов  покупаем допсервак, стоимостью с внедрение упп на крупной фирме

(101) ну вообще-то ты писал что не может быть внедрено УПП на предприятии, об этом спор и пошел. А отрицательное внедрение везде может быть http://www.pcweek.ru/idea/blog/idea/3920.php

(107) 1000 баксов это половина зарплаты менеджера среднего звена в каком нибудь Запопинске. И это дорого?

(105) съезди и посмотри

(102) так-то вопрос в темы задан "1С не для мелких фирм уже?"
вот и разговор подходит для крупных или нет

(110) ? я лишь говорил про крупное предприятие работающие в режиме 24/7.

Я только понять не могу что вы мне доказать хотите? Что 1С не для ларька? Что если берем любую типовую и она взлетит без допиливания на любом предприятии или что?

(112) А что ездит, начитался я такой рекламы, потом выясниться что реально работает от силы человек 50, и при этом используется 50 УРБД баз или что то подобное

Интересно на чем же предприятия работали 10 лет назад когда 8-ки еще и в проекте небыло?

(99) на УФ возможно
(0) просто не догоняет возможности УТ11 например
по этому его клиентам там "все сложно"

при понимании чо такое функциональные опции можно легко монстра УТ11 превратить в маленькую и приятненькую торговую конфигурашку

(117) удивило, что этот "монстр" не позволяет заказать товар у поставщика и поставить его в резерв при поступлении под заказ. Управление блин... Читал, что должны это исправить.

+(117) просто автор ведется на то что клиенты говорят при настройке УТ
а если их спрашивать то

ДА мы обязательно и всегда используем бизнеспроцессы и согласование коммерческих предложений
Да мы обязательно и всегда используем ячеечный склад
Да мы непременно согласовываем продажи и используем заявки на отгрузку


и это в конторе из пяти продавцов

(60) +100500
Ни разу не видел предприятия, которое смогло работать на типовой ордерной схеме. Нет ни акта расхождений, ни претензионной работы.
Нормально схема может функционировать, только когда ордер совпадает с накладной - только вот накуа она тагда вообще нужна.

Когда-то давно, работал я на одном предприятии... Руководство утверждало, что АСУ позволяет автоматизировать работу человека и снизить количество персонала.
С каждым годом автоматизиции там всё больше, объем выпускаемой продукции за пол века не изменился, а количество персонала наверное утроилось. Потому что кому-то нужно автоматизировать всю эту увеличивающуюся автоматизацию.

+(118) еще руками надо каждый день обновлять границу контроля в обработке управления запасами для склада с остатками по графику.

(121) >> АСУ позволяет автоматизировать работу человека и снизить количество персонала.

В Руководстве написали неправду. Вернее частичную правду.

По личному опыту автоматизация позволяет снизить количество персонала примерно в 10-15%% случаев.
В остальных автоматизация всего лишь дает возможность посчитать то, что раньше считать просто не могли или не хотели (не было необходимости).
Примерно в 30% случаев автоматизация наоборот приводит к увеличению количества персонала,  т.к. кому-то необходимо все данные вносить в базу(ы) и потом еще проверять и перепроверять (и это при том, что объем самих данных и их детализация увеличиваются).

(3) +1
Слова не мальчика, но Мужа.

(0) В 1с 8.2 уже реализовано. Управляемые формы - функциональные опции.

"1С не для мелких фирм уже?"
1С, как и раньше, для бухгалтеров и долбоклюев.

(117)(125)И что это дает. Ну скроются некоторые документы, справочники. Монстр же остается, куча лишних(с точки зрения пользователя) реквизитов тоже.

(127) Демонстрируешь незнание возможностей ФО.

(127) это ты ща прямо банер повесил себе на лоб "нифуя не знаю но покритикую"

(128)(129)Ну я не про внешний же вид. Я про код говорю. Там как были хитрые запросы и дикие процедуры они же так и останутся.

С каких пор водителя авто интересует трудоемкость выплавки стали для поршней двигателя его машины?


Пользователям конфигурации пофиг на сложность кода..,

(131)Ну так же как баяне получается - "1C - автопроизводитель?"

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

http://infostart.ru/public/72388/

(132) чушь

(133)Просвети меня в моих заблуждениях.

побаяню...
Снеговик убил программистов 1С как вид. Хотя именно они подняли 1С до 77, а потом стали ненужными и их тупо через колено хрясь ! Остались только таинственные разработчики типовых и присосавшиеся к крупным и средним клиентам.

(134)  какой смысл опровергать заведумую идиотию?
См (132) - где там твои мысли? Что именно ты сказать хотел?


(135) да да, усложнил язык и развил его - это типа "убил"?
Убил то он скорее тупокодеров которые выучили цикл и условие и погнали нетленки ваять...

(135)Да ладно. Снеговик развязал руки. Такое количество возможностей реализации своих идей,нет больше негде.

(136)Сказать хотел, а ту ли целевую аудиторию я окучиваю? Может послать всех мелких.
Хотя у меня знакомый коллега, пишет мелкие конфы. Точнее написал мелкую конфу, типа ТиС и приделывает к ней чего народ хочет. Говорит на круг оно лучше получается, меньше времени на обучение(там учит нечему), настройку(практически), доработки(код минимальный) и по мелким фирмам ставит.
А вот типовые продвигаю. Может просто не тем?

(136) Не хами !
(137) А я не и спорю.

Повторюсь. Рубль вход, два выход.
Семерку можно было лепить для всех. Снеговик однозначно только для крупных и средних. Мелкие фирмы тупо сели на функционал типовых и ворча работают, т.к. стоимость хотелок и свистелок не вписывается в бюджет.

Ну и правильно делают что не переходят
Гимор с переучиваниями, данных заполнять больше, скорость работы ниже, дофигища отчетов а нужных нет и проч.

(133) >> чушь
+100

(132) Конечно каждый хозяин ларька мечтает о реализации в типовой конфе от 1С его собственных гениальных бизнеспроцессов.

Однако ожидать подобного от 1С, мягко говоря, глупо. Особенно если учесть, что 99% этих самых гениальных бизнеспроцессов - продукт больного воображения и извращенного представления о бизнесе.

(139) да и 8 можно для всех... для примера... есть контара, которая ведет учет на ТиС 7.7. переписано очень много. берем УТ11 и там большая часть того что переписано уже реализовано.

И я вот одного не пойму. В чем такое вот кардинальное различие между 7.7 и 8? есть там те же циклы и условия. Запросы изменили? так по мне они стали более читабельны и понятны. В чем еще обидели кодеров?

(139) По моему ерунда ...нормальный прог что для 7 что для 8 за одно время сделает доработки. Плюс зачастую в 8 это проще за счет большего функционала и удобства

(141) с вами согласен

Вообще семерку помоему любят только упертые кодеры которые не хотят изучать новый функционал...

(8) Что меня искать... Здесь я...

(141) +1 для многих ограничить воображение это благо. Сталкивался. В одном фотосалоне работало девочко с развитой фантазией, я им любой каприз делал за их деньги так как устал бороться. Потом оно уволилось и после неё кто пришел выли от тоски над ее креативами.

(0) мотивируй тем что 77 умирает и скоро уйдет с поддержки так как тупо не станет семерочников, во всяком случае не станет за дёшево.

Если упираются а сам 7-кой заниматься не желаешь, передавай за долю малую тем кто желает.

(139) Ты сам себе противоречишь.
С одной стороны ты соглашаешься с утверждением "Снеговик развязал руки", а с другой пишешь: "стоимость хотелок и свистелок не вписывается в бюджет".

Стоимость кастомизации 7.7 и 8.х вполне сопоставимы.
Просто зачастую те, кто переходит с клюшек на снеговика, при оценке стоимости допиливания "под клиента" снеговика забывают, что клюшки они допиливали на протяжении долгого времени (иногда годами) по 100 рублей (условно) за хотелку, а при переходе им предлагают получить сразу (единовременно) допиленную конфу, но за 1000 рублей (условно).

(148) >> не станет за дёшево. (про семерочников)

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

(150) а я вот уже все больше вижу 1Сников кто в глаза клюшки не видел. И все больше 7-шников ушедших в 8 и не собирающихся возвращаться. Лет  5 еще и кирдык.

ЗЫ много ты сейчас 6-ков знаешь?

(142) У тебя ошибка в рассуждении "и там большая часть того что переписано уже реализовано. " - это откуда следует?


Ничего из того что у нас дописано в 7-ке в УТ11 нет, а мы обычная контора купи-продай

Есть конфигурация "Управление небольшой фирмой" - ничего лишнего, но некоторой допилки требует.

(153) к (0)

(152) это не рассуждения, а конкретный пример. контора - это не какая-то сферическая контора в вакууме, а конкретная. С бизнес-процессами и учетом которой я хорошо знаком. И это знакомство мне позволяет говорить, что 80% того что там реализовано сверх типового функционала уже есть в УТ11.

(155) повезло, а примеры можно накидать из тех 80% что дописано и реализовано в УТ11?

(141)За их деньги любой гениальный бизнеспроцесс. Почему бы и нет?

(100) "ДЛЯ ВСЕХ"
А что? Потянет компании объем проводок которых сопоставим с банками?

(156) а было бы интересно примеров того чего нет в УТ11, спрашиваю для повышения образованности.

(157) потому что это хреново закончится, но если не собираешься долго жить в городе, то действительно, почему бы и нет! =)

(159)Ну я же ради денег работаю, а не ради всеобщей справедливости и правильности учета. Кто платит тот и заказывает музыку.

(153)У нас в УНФ очень кривой код, сплошной копи-пасте.

(160) Я сейчас тебе глаза открою. В области постановки задач и бизнес проектирования денег больше чем в кодинге!

Модуль доставки (кто, когда и куда едет. Задание водителю кому что отвести и у кого что забрать + по возвращению отчет водителя с разноской от кого и сколько забрал денег)

Модуль меж.филиального перемещения (не тупо вот тут реализация, а тут приход, а полноценный учет, что уехало, что в пути, что приехало + разбор полетов акты расхождения)

Плюс для нас критичен партионный учет, ибо на нем многое что завязано, даже принятия решения об оплате поставщику зависит от остатка партий товара

Вот тебе пару примеров

(162)Я в курсе, я там уже был. Но у нас области постановки задач и бизнес проектирования не востребованы, чай не Москва и даже не Киев. У нас больших компаний единицы. И то филиалы. Это мне опять в столицу перебираться надо. А мне что больше не хочется.

(163)Ох тебя сейчас запинают.

(156) то что вот сразу помню, это вот тема с доступом, ордерная схема (некое подобие) , учет по характеристикам.
(160) к тебе же как к специалисту обращаются. и если идея бредовая, то твоя задача донести до постановщика задачи - почему и как лучше добиться нужных результатов.

(165) Типа тебе это нафиг не нужно и ты ничего не понимаешь в бизнес-процессах. И если разработчики не сделали этого в УТ11, то это и нафиг некому не нужно?

(164) вот у меня был случай: мелкая производственная контора по расплавке цветмета, захотела срастить ПБу и комплексную. Мне наш постановщик задач поставил эту задачу и я трахался с ней очень долго. Потом я сам стал общаться с заказчиком на этапе сдачи работ.
Там сидит дефачко-бухгалтер и оно оказывается ставило задачу. Я ее и спрашиваю нафига? А она мотивирует что хочет чтобы учет ЗП и производство было "в одном флаконе" чтобы два раза не вбивать.
В итоге оказалось все настолько сложно, что запустить учет так и не получилось в это связке, то она хотела дым от расплавки металла как возвратный отход учитывать, то еще чего-то.
Короче я показал ей как можно из ПБУ в ЗиК выгружать данные ("ой а что можно, да?" - глазками хлоп-хлоп) и на этом расстались довольные друг другом. Штукабаксов за сращивание мутанта из ПБУ и комплексной ушла в дым.
Но так как провинция-с, то да, заставить платить за, "бла-бла-бла" как они думают, не выходит, но ничо надо формировать рынок-то =)

(167)Я то как раз понимаю. Но пол ветки походу нет нет. Вон меня в (166) пинают.
(166)Я всегда исходил из того что заказчику видней, просто потому что его аргументы имеют существенное подкрепление, у него фирма есть, а у меня нет.

(169) это слабый аргумент. Если у заказчика есть завод по пошиву обуви он сам должен кожу раскраивать или клей смешивать? =)
Учёт это тоже специфическая область со своими законами и "ньансцами".

(169) у меня есть квартира, но я не навязываю сантехнику как чинить трубы.

(168)Не ну не дурак же совсем, сосем тупое конечно реализовывать оказываюсь, или где тупо обойти по другому можно. Но бантики с рюшечками делаю. Кушать то хочется.

И о чем вы спорите?

Реализовать ВСЁ в одной конфе невозможно.
Написать кучу конфигураций на каждый случай жизни (эта для ларька с сигаретами, а вот эта - с жевачкой) тоже невозможно.

Любая контора, имеющая свои свои индивидуальные бизнеспроцессы, вполне потянет бюджет на допливание.

Любая контора не имеющая такого бюджета - с вероятностью ~90% - мелкий ларёк, который вполне может работать и в типовой конфе, а свой супер-мега-генальный-особенный учет вести в excel или в тетрадке в клетку.

(163) да нет, это нормальные задачи, и кстати если их нет в УТ, то может где-то еще они есть уже реализованные?
Я не спец по УТ есличестно, но партионный учет, разве его та нет? 0_0

(171)Не походит. У сантехника тоже квартира есть.
Тут такая аналогия, оператор станка с ЧПУ  и прог этого станка. Оператор лучше прога знает как станок запрограммировать надо, но не умеет.

(173) Допиливание- это мощно. Но есть способ лучше- берешь ОР- и допил становиться в разы меньше, а качество лучше

(172) это да.

(175) Неверная аналогия.
Оператор - это консультант-методист, который знает как бизнес-процессы организованы в конфигурации.
Постановщик - это начальник цеха или директор завода.

Зачастую гораздо правильнее нормализовать бизнеспроцессы под программу, чем кастомизировать программу под бизнеспроцесс.

(175) ну ты ж фри, а это своего рода тож фирма :)

Мой посыл был не в наличии квартиры (я хоть завтра могу пойти и организовать ИП), а в том, что вы являетесь профессионалом и наемным специалистом для автоматизации учета.

Что такое "клюшки"?
Что такое "снеговик"?

(180) клюшки - 77, снеговик - 8. похожи?

(181) Допетрил

(178)Это уже франчайзи будет, а так тупой фри и мелькая фирма.
(179)Ну да. Я вышел на рынок чтоб денежку заработать, как и тот же сантехник. Поэтому я заинтересован в потоке работы. Как и сантехник, коль не уследишь так он тебе самое дорого  и поставит, и как ему лично удобней. Я такой же мне бы чего попроще в реализации для личного удобства, но чтоб подороже продавать.

(161) А ты хочешь без работы остаться? ;)

Сегодня с утра подразмялся:

   //***ШО 2012-11-20
   ДатаНач = НачМесяца(ДатаДок);
   ДатаКон = КонМесяца(ДатаДок);
   Док.ВыбратьДокументы(ДатаНач,ДатаКон);
   Пока Док.ПолучитьДокумент()=1 Цикл
       Если Док.СуществуетОперация()=0 Тогда
           Продолжить;
       КонецЕсли;
       Если Док = ТекущийДокумент() Тогда
           Продолжить;
       КонецЕсли;
       Если (Док.Вид()="Операция") Тогда
           Если Док.Операция.ВключитьПроводки()=0 Тогда
               Продолжить;
           КонецЕсли;
       ИначеЕсли (Док.Проведен()=0) Тогда
           Продолжить;
       КонецЕсли;
       
       
       Если (Док.Вид()="СчетФактура")  Тогда
           
           Если Док.ДокументОснование.Выбран()=0 Тогда
               Если Док.ВидОперации <> Перечисление.ВидыОперацийСчетаФактурыВыданного.СуммоваяРазница Тогда
                   
                   СтрокаТабУчтенныхСумм = 0;
                   НоваяСтрокаКнигиПродаж(Док,Док,СтрокаТабУчтенныхСумм);
                         
                   Всего    = Док.Итог("Всего");
                   БезНДС20 = Док.Итог("Сумма");
                   НДС20    = Док.Итог("НДС");
                   
                   Освобождаемые=0;
                   
               КонецЕсли;
           КонецЕсли
           
           
       
       КонецЕсли;

       
       ВосстановленеНДССАванса(Док,БухИт);
       
   КонецЦикла;
    //***шо 2012-11-20

(185) что это ?

Суть задачки: надо было воткнуть в книгу продаж счета фактуры, у которых нету документа основания - я просто импортировал из управленческой эти сч фактуры (сразу оговорюсь почему не расходные накладные- так бух захотела) - вот решение: дописал в ЗаписиКнигиПродаж в модуле формы

криво - но зато быстро и , главное, это работает :)

//******************************************************************************
Процедура Заполнить()
   Если КоличествоСтрок()>0 Тогда
       Если Вопрос("Перед заполнением таблица документа будет очищена. Продолжить?","Да+Нет")="Нет" Тогда
           Возврат;
       КонецЕсли;
   КонецЕсли;
   
   ОтражатьПоложительныеСуммовыеРазницыВДопЛисте =  Константа.ОтражатьПоложительныеСуммовыеРазницыВДопЛисте.Получить(ДатаДок);
   ОтражатьОтрицательныеСуммовыеРазницыВДопЛисте =  Константа.ОтражатьОтрицательныеСуммовыеРазницыВДопЛисте.Получить(ДатаДок);

   УдалитьСтроки();
   ТабУчтенныхСумм = СоздатьОбъект("ТаблицаЗначений");
   ТабУчтенныхСумм.НоваяКолонка("СчетФактура","Документ");
   ТабУчтенныхСумм.НоваяКолонка("Учтено","Число","15","2");
   ТабУчтенныхСумм.НоваяКолонка("БезНДС20","Число","15","2");
   ТабУчтенныхСумм.НоваяКолонка("НДС20","Число","15","2");
   ТабУчтенныхСумм.НоваяКолонка("БезНДС10","Число","15","2");
   ТабУчтенныхСумм.НоваяКолонка("НДС10","Число","15","2");
   ТабУчтенныхСумм.НоваяКолонка("НДС0","Число","15","2");
   ТабУчтенныхСумм.НоваяКолонка("Освобождаемые","Число","15","2");
   ТабУчтенныхСумм.НоваяКолонка("Резерв","Число","15","2");
   ТабУчтенныхСумм.НоваяКолонка("ДокРезерв","Документ");

   ТабУчтенныхСумм.УдалитьСтроки();
   
   ЗаполнитьРезерв(ТабУчтенныхСумм);
   
   Если (НачГода(ДатаДок) = '01.01.2008') и (КонКвартала(ДатаДок) <= '31.03.2008') Тогда
       //Зачесть можно в течение 1 кв. 2008 г.
       УчестьСчФПоОплате(ТабУчтенныхСумм);
   КонецЕсли;
   
   Опер = СоздатьОбъект("Операция");
   Док = СоздатьОбъект("Документ");
   БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
   БухИтДок = СоздатьОбъект("БухгалтерскиеИтоги");
   НачалоГода2006 = '01.01.2006';
   
   ДатаНач = НачМесяца(ДатаДок);
   ДатаКон = КонМесяца(ДатаДок);
   Док.ВыбратьДокументы(ДатаНач,ДатаКон);
   Пока Док.ПолучитьДокумент()=1 Цикл
       Если Док.СуществуетОперация()=0 Тогда
           Продолжить;
       КонецЕсли;
       Если Док = ТекущийДокумент() Тогда
           Продолжить;
       КонецЕсли;
       Если (Док.Вид()="Операция") Тогда
           Если Док.Операция.ВключитьПроводки()=0 Тогда
               Продолжить;
           КонецЕсли;
       ИначеЕсли (Док.Проведен()=0) Тогда
           Продолжить;
       КонецЕсли;
         
       Если Док.Вид()="ЗаписьКнигиПродаж" Тогда // Документ запись книги продаж
           
           //Добавить строку в документ
       
       ИначеЕсли (Док.Вид()="СчетФактура")  Тогда
           Если (Док.Договор.АвтоОбработкаНДС=0)или((Док.СчетНДС=1) и (Док.ДатаДок < НачалоГода2006)) Тогда
               Продолжить;                      
           ИначеЕсли Док.ДокументОснование.Выбран()=0 Тогда
               Если Док.ВидОперации <> Перечисление.ВидыОперацийСчетаФактурыВыданного.СуммоваяРазница Тогда
                   Продолжить;                      
               КонецЕсли;
           КонецЕсли;
           
           Если (ДатаДок >= НачалоГода2006) и ((Док.СчетНДС = 1) или (Док.ДатаДок >= НачалоГода2006)) Тогда
               СтрокаТабУчтенныхСумм = "";
               ТабУчтенныхСумм.НайтиЗначение(Док.ТекущийДокумент(),СтрокаТабУчтенныхСумм,1);
               Если НоваяСтрокаКнигиПродаж(Док,Док,СтрокаТабУчтенныхСумм) = 1 Тогда
                   ТабУчтенныхСумм.ПолучитьСтрокуПоНомеру(СтрокаТабУчтенныхСумм);
                   ТабУчтенныхСумм.Резерв = Макс(ТабУчтенныхСумм.Резерв - Всего, 0);
               КонецЕсли;
               Продолжить;
           КонецЕсли;
           
           БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Док.Контрагент,2);
           БухИт.ИспользоватьСубконто(ВидыСубконто.Договоры,Док.Договор,2);
           БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные,Док.ТекущийДокумент(),2);
           БухИт.ВключатьСубсчета(1,);
           БухИт.ВыполнитьЗапрос(Док.ТекущийДокумент(),Док.ТекущийДокумент(),"ЗПР",,,,,"С");
           
           БухИтДок.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Док.Контрагент,2);
           БухИтДок.ИспользоватьСубконто(ВидыСубконто.Договоры,Док.Договор,2);
           
           Если ПустоеЗначение(Док.Договор) = 0 Тогда
               ВестиУчетРасчетовУЕ = Док.Договор.ВестиУчетРасчетовУЕ;
               
           Иначе
               ВестиУчетРасчетовУЕ = 0;
           КонецЕсли;
           
           СчетРасчетов = ?(ВестиУчетРасчетовУЕ = 0, СчетПоКоду("62.1"), СчетПоКоду("62.6"));
           БухИтДок.ВыполнитьЗапрос(Док.ДокументОснование.ТекущийДокумент(), Док.ДокументОснование.ТекущийДокумент(),СчетРасчетов,,,,, "С");
           ЗадолженностьПоСФ = БухИтДок.ДО();
           СуммаОплаты = Макс(ЗадолженностьПоСФ - Макс(БухИтДок.СКД(),0),0);
           
           Если ((СуммаОплаты = 0) и (Док.ДатаДок < НачалоГода2006)) Тогда
               Продолжить;
           КонецЕсли;
           
           Если Док.ДокументОснование.Вид() = "ПередачаОС" Тогда
               ПоДокументуОтгрузки = Док.ДокументОснование.Стоимость * Док.ДокументОснование.КоличествоСтрок();
               
           ИначеЕсли Док.ДокументОснование.Вид() = "ПередачаНМА" Тогда
               ПоДокументуОтгрузки = Док.ДокументОснование.Стоимость;
               
           Иначе
               ПоДокументуОтгрузки = Док.ДокументОснование.Итог("Всего");
           КонецЕсли;
           
           Если ПоДокументуОтгрузки <> Док.Итог("Всего") Тогда
               К = ?(ПоДокументуОтгрузки <> 0, Док.Итог("Всего")/ПоДокументуОтгрузки, 1);
               СуммаОплаты = К*СуммаОплаты;
           КонецЕсли;
                               
           Если (ЗадолженностьПоСФ>0)и(СуммаОплаты>=0) Тогда
               Если СуммаОплаты > ЗадолженностьПоСФ Тогда
                   СуммаЗКП = ЗадолженностьПоСФ;
               Иначе
                   Если (ДатаДок >= НачалоГода2006) и (Док.ДатаДок >= НачалоГода2006) Тогда
                       СуммаЗКП = ЗадолженностьПоСФ;
                       
                   Иначе
                       СуммаЗКП = СуммаОплаты;
                   КонецЕсли;
               КонецЕсли;
               СтрокаТабУчтенныхСумм = "";
               ТабУчтенныхСумм.НайтиЗначение(Док.ТекущийДокумент(),СтрокаТабУчтенныхСумм,1);
               //Рассчитать НДС и добавить строку в документ
               ПоДокументуОплаты(Док.ДокументОснование,Док,СуммаЗКП,БухИт,СтрокаТабУчтенныхСумм);
           КонецЕсли;
           
       ИначеЕсли (Док.Вид()= "ПоступлениеТоваров") Тогда // возврат
           Если ((Док.ВидПоступления<3) или (Док.ВидПоступления=11))
               или(Док.Договор.АвтоОбработкаНДС=0)или(Док.ДокументОснование.Выбран()=0) Тогда
                   ВосстановленеНДССАванса(Док,БухИт);
               Продолжить;
           КонецЕсли;
           
           ИтогВсего = 0;
           Док.ВыбратьСтроки();
           Пока Док.ПолучитьСтроку() = 1 Цикл
               Если Док.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда
                   Продолжить;
               КонецЕсли;
               ИтогВсего = ИтогВсего + Док.Всего;
           КонецЦикла;
           
           СФ=СоздатьОбъект("Документ");
           СФ.ВыбратьПодчиненныеДокументы(Док.ДокументОснование.ДатаДок,Док.ДатаДок,Док.ДокументОснование);
           Пока СФ.ПолучитьДокумент()=1 Цикл
               Если СФ.Вид()="СчетФактура" Тогда
                   Прервать;
               КонецЕсли;
           КонецЦикла;
           Если СФ.Вид()<>"СчетФактура" Тогда
               СФ.НайтиДокумент(Док.ТекущийДокумент());
           КонецЕсли;
           
           Если СФ.Вид() = "ПоступлениеТоваров" Тогда
               Продолжить;
           КонецЕсли;
           
           БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Док.Контрагент,2);
           БухИт.ИспользоватьСубконто(ВидыСубконто.Договоры,Док.Договор,2);
           БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные,СФ.ТекущийДокумент(),2);
           БухИт.ВключатьСубсчета(1,);
           БухИт.ВыполнитьЗапрос(Док.ТекущийДокумент(),Док.ТекущийДокумент(),"ЗПР",,,,,"С");
           СтрокаТабУчтенныхСумм = "";
           Если ТабУчтенныхСумм.НайтиЗначение(БухИТ.Субконто(3),СтрокаТабУчтенныхСумм,1)=1 Тогда
               Учтено = ТабУчтенныхСумм.ПолучитьЗначение(СтрокаТабУчтенныхСумм,2)+ТабУчтенныхСумм.ПолучитьЗначение(СтрокаТабУчтенныхСумм,"Резерв");
           Иначе
               Учтено = 0;
           КонецЕсли;
           ДокВсего = ?(Док.Курс>0, ИтогВсего*Док.Курс, ИтогВсего);
           СуммаВозврата = ДокВсего;
           СуммаСторно = Макс(Учтено - БухИт.СКК("С"),0);
           СуммаКорректировки = СуммаВозврата - СуммаСторно;
           
           Если (ДатаДок >= НачалоГода2006) и (СФ.ДатаДок >= НачалоГода2006) Тогда
               Если (СуммаСторно+СуммаКорректировки) <> 0 Тогда
                   ВвестиСтрокуСторно(Док,СФ,(СуммаСторно+СуммаКорректировки),ДокВсего,СтрокаТабУчтенныхСумм);
                   Если ПустоеЗначение(СтрокаТабУчтенныхСумм)=0 Тогда
                       ОтразитьУчтенныеСуммы(Док,СтрокаТабУчтенныхСумм);
                   КонецЕсли;
               КонецЕсли;
               
           Иначе
               Если СуммаСторно > 0 Тогда
                   
                   Если СуммаКорректировки < 0 Тогда
                       ВвестиСтрокуСторно(Док,СФ,(СуммаСторно + СуммаКорректировки),ДокВсего,СтрокаТабУчтенныхСумм);
                   Иначе
                       ВвестиСтрокуСторно(Док,СФ,СуммаСторно,ДокВсего,СтрокаТабУчтенныхСумм);
                   КонецЕсли;
                   
               КонецЕсли;
               Если СуммаКорректировки > 0 Тогда
                   ВвестиСтрокуКорректировки(СФ,Док,СуммаКорректировки,СтрокаТабУчтенныхСумм,БухИт);
               КонецЕсли;
           КонецЕсли;
           
       ИначеЕсли (ДатаДок>='01.05.2006') и ((Док.Вид() = "РасходнаяНакладная")или(Док.Вид() = "ОтпускМатериаловНаСторону")) Тогда
           Если Док.ДатаДок >='30.05.2006' Тогда
               Если (Док.Договор.АвтоОбработкаНДС=0) Тогда
                   Продолжить;
               КонецЕсли;
               РежимВозврата = 0;
               Если (Док.Вид() = "РасходнаяНакладная") Тогда
                   Если (Док.ВидОтгрузки >= 3) и (Док.ВидОтгрузки <> 11) и (Док.ВидОтгрузки <> 12) и
                   (Док.ДокументПоступления.Выбран()=1) Тогда
                       РежимВозврата = 1;
                       ИтогВсего = 0;
                       Док.ВыбратьСтроки();
                       Пока Док.ПолучитьСтроку() = 1 Цикл
                           Если Док.Товар.ТипТовара = Перечисление.ТипыТоваров.НаКомиссии Тогда
                               Продолжить;
                           КонецЕсли;
                           ИтогВсего = ИтогВсего + Док.Всего;
                       КонецЦикла;
                   КонецЕсли;
               ИначеЕсли (Док.Вид() = "ОтпускМатериаловНаСторону")и(Док.ДокументПоступления.Выбран()=1) Тогда
                   Если Док.ВидОтпуска = 2 Тогда
                       РежимВозврата = 1;
                       ИтогВсего = Док.Итог("Всего");
                   КонецЕсли;
               КонецЕсли;
               
               Если РежимВозврата = 1 Тогда
                   
                   СФ=СоздатьОбъект("Документ");
                   СФ.ВыбратьПодчиненныеДокументы(Док.ДокументПоступления.ДатаДок,Док.ДатаДок,Док.ДокументПоступления);
                   Пока СФ.ПолучитьДокумент()=1 Цикл
                       Если СФ.Вид()="СчетФактураПолученный" Тогда
                           Прервать;
                       КонецЕсли;
                   КонецЦикла;
                   Если СФ.Вид()<>"СчетФактураПолученный" Тогда
                       СФ.НайтиДокумент(Док.ДокументПоступления);
                   КонецЕсли;
                   
                   БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Док.Контрагент,2);
                   БухИт.ИспользоватьСубконто(ВидыСубконто.Договоры,Док.Договор,2);
                   БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыПолученные,СФ,2);
                   БухИт.ВключатьСубсчета(1,);
                   БухИт.ВыполнитьЗапрос(Док.ТекущийДокумент(),Док.ТекущийДокумент(),"ЗПК",,,,,"С");
                   СтрокаТабУчтенныхСумм = "";
                   Если ТабУчтенныхСумм.НайтиЗначение(БухИТ.Субконто(3),СтрокаТабУчтенныхСумм,1)=1 Тогда
                       Учтено = ТабУчтенныхСумм.ПолучитьЗначение(СтрокаТабУчтенныхСумм,2);
                   Иначе
                       Учтено = 0;
                   КонецЕсли;
                   Если ПустоеЗначение(Док.Договор) = 0 Тогда
                       Кратность = Док.Договор.ВалютаДоговора.Кратность.Получить(ДатаДок);
                       Кратность = ?(Кратность=0, 1, Кратность);
                       Если Док.Договор.ВестиУчетРасчетовУЕ = 1 Тогда
                           Кратность = Кратность * 100 / (100 + Док.Договор.ПроцентКорректировкиКурсаУЕ);
                       КонецЕсли;
                       
                   Иначе
                       Кратность = 1;
                   КонецЕсли;
                   ДокВсего = ?(Док.Курс>0,ИтогВсего*Док.Курс/Кратность, ИтогВсего);
                   СуммаВозврата = ДокВсего;
                   СуммаСторно = Макс(Учтено - БухИт.СКК("С"),0);
                   СуммаКорректировки = СуммаВозврата - СуммаСторно;
                   
                   Если (ДатаДок >= '01.01.2006') и (СФ.ДатаДок >= '01.01.2006') Тогда
                       Если (СуммаСторно+СуммаКорректировки) <> 0 Тогда
                           ВвестиСтрокуСторно(Док,СФ,СуммаСторно+СуммаКорректировки,ДокВсего,СтрокаТабУчтенныхСумм);
                           Если ПустоеЗначение(СтрокаТабУчтенныхСумм)=0 Тогда
                               ОтразитьУчтенныеСуммы(Док,СтрокаТабУчтенныхСумм);
                           КонецЕсли;
                       КонецЕсли;
                       
                   Иначе
                       Если СуммаСторно > 0 Тогда
                           ВвестиСтрокуСторно(Док,СФ,СуммаСторно,ДокВсего,СтрокаТабУчтенныхСумм);
                       КонецЕсли;
                       Если СуммаКорректировки > 0 Тогда
                           ВвестиСтрокуКорректировки(Док,СФ,СуммаКорректировки,СтрокаТабУчтенныхСумм,БухИт);
                       КонецЕсли;
                   КонецЕсли;        
                   
                   Продолжить;
               КонецЕсли;
           КонецЕсли;
               
       ИначеЕсли (Док.Вид() = "Выписка") Тогда
           Док.ВыбратьСтроки();
           
           Пока Док.ПолучитьСтроку()=1 Цикл
               Если (Док.КоррСчет = СчетПоКоду("62.1")) или
               ((Док.КоррСчет = СчетПоКоду("76.5"))и(Док.Приход>0)) или
               ((Док.КоррСчет = СчетПоКоду("76.6"))и(Док.Приход>0)) или
               (Док.КоррСчет = СчетПоКоду("62.6")) или
               (Док.КоррСчет = СчетПоКоду("62.11")) или
               ((Док.КоррСчет = СчетПоКоду("76.55"))и(Док.Приход>0)) или
               ((Док.КоррСчет.Выбран()=0)и(Док.ВидДвижения.ВидДвижения = Перечисление.ВидыДвиженийДенежныхСредств.ВыручкаПоОбычнымВидамДеятельности)) Тогда
                   Если Док.Субконто2.Выбран()=1 Тогда
                       Если Док.Субконто2.АвтоОбработкаНДС=0 Тогда
                           Продолжить;
                       КонецЕсли;
                   КонецЕсли;          
                   БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Док.Субконто1,2);
                   БухИт.ИспользоватьСубконто(ВидыСубконто.Договоры,Док.Субконто2,2);
                   БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные,,1);
                   БухИт.ВключатьСубсчета(1,);
                   БухИт.ВыполнитьЗапрос(,Док.ТекущийДокумент(),"ЗПР",,,,,"С");
                   
                   Если Док.Валюта.Выбран() = 1 Тогда
                       
                       Кратность = Док.Валюта.Кратность.Получить(Док.ДатаДок);
                       Кратность = ?(Кратность=0, 1, Кратность);
                       
                       СуммаОплаты = Док.Приход*Док.Валюта.Курс.Получить(Док.ДатаДок)/Кратность;
                   Иначе
                       СуммаОплаты = Док.Приход;
                   КонецЕсли;
                   
                   Если Док.ДокументПоставки.Выбран()=1 Тогда
                       СтрокаТабУчтенныхСумм = "";
                       Если ТабУчтенныхСумм.НайтиЗначение(Док.ДокументПоставки,СтрокаТабУчтенныхСумм,"ДокРезерв")= 0 Тогда
                           Продолжить;
                       КонецЕсли;
                       ТабУчтенныхСумм.ПолучитьСтрокуПоНомеру(СтрокаТабУчтенныхСумм);
                       Учтено = ТабУчтенныхСумм.Учтено;
                       СФ = ТабУчтенныхСумм.СчетФактура;
                       Резерв = ТабУчтенныхСумм.Резерв;
                       ТабУчтенныхСумм.Резерв = Резерв - СуммаОплаты;
                       Если БухИТ.ПолучитьСубконто(3,,СФ)=1 Тогда
                           ЗадолженностьПоСФ = БухИт.СКК("С") - Учтено;
                           
                       Иначе
                           ЗадолженностьПоСФ = 0;
                       КонецЕсли;
                       
                       Если ЗадолженностьПоСФ<>0 Тогда
                           Если ПустоеЗначение(СФ) = 1 Тогда
                               ДобавитьСтроку = 0;
                               
                           ИначеЕсли (ДатаДок >= НачалоГода2006) и ((СФ.СчетНДС = 1) или (СФ.ДатаДок >= НачалоГода2006)) Тогда
                               ДобавитьСтроку = 1;
                               
                           Иначе
                               ДобавитьСтроку = 0;
                           КонецЕсли;
                           
                           Если ДобавитьСтроку = 1 Тогда  
                               
                               ПериодСФ = ?(Константа.НалоговыйПериодПоНДС.Получить(ДатаДок) = Перечисление.НалоговыеПериодыПоНДС.Месяц,КонМесяца(СФ.ДатаДок),КонКвартала(СФ.ДатаДок));
                               ПериодДок = ?(Константа.НалоговыйПериодПоНДС.Получить(ДатаДок) = Перечисление.НалоговыеПериодыПоНДС.Месяц,КонМесяца(ДатаДок),КонКвартала(ДатаДок));

                               Если (ДатаДок<'01.05.2006') или ((ДатаДок>='01.05.2006') и (ПериодДок = ПериодСФ)) Тогда
                                   НоваяСтрокаКнигиПродаж(Док,СФ,СтрокаТабУчтенныхСумм);
                               Иначе
                                   Если ((ЗадолженностьПоСФ > 0 ) и (ОтражатьПоложительныеСуммовыеРазницыВДопЛисте = Да)) или
                                        ((ЗадолженностьПоСФ < 0 ) и (ОтражатьОтрицательныеСуммовыеРазницыВДопЛисте = Да)) Тогда            
                                       
                                       АннулироватьСФ(Док.ДокументПоставки,СФ,Док.ДокументПоставки.Контрагент,Док.ДокументПоставки.Договор,Док.ТекущийДокумент());
                                   Иначе
                                       НоваяСтрокаКнигиПродаж(Док,СФ,СтрокаТабУчтенныхСумм);
                                   КонецЕсли;
                               КонецЕсли;
                               ВсегоАн = 0;БезНДС20Ан = 0;НДС20Ан = 0;БезНДС10Ан = 0;НДС10Ан = 0;НДС0Ан = 0;ОсвобождаемыеАн = 0;
                               
                           Иначе
                               Если (СуммаОплаты > ЗадолженностьПоСФ) и (ЗадолженностьПоСФ > 0) Тогда
                                   СуммаЗКП = ЗадолженностьПоСФ;
                                   СуммаОплаты = СуммаОплаты - ЗадолженностьПоСФ;
                                   
                               ИначеЕсли (СуммаОплаты < ЗадолженностьПоСФ) и (ЗадолженностьПоСФ < 0) Тогда
                                   СуммаЗКП = ЗадолженностьПоСФ;
                                   СуммаОплаты = СуммаОплаты + ЗадолженностьПоСФ;
                                   
                               Иначе
                                   СуммаЗКП = СуммаОплаты;
                                   СуммаОплаты = 0;
                               КонецЕсли;
                               
                               //Рассчитать НДС и добавить строку в документ
                               ПоДокументуОплаты(Док,СФ,СуммаЗКП,БухИт,СтрокаТабУчтенныхСумм);
                           КонецЕсли;
                       КонецЕсли;
                           
                       Продолжить;
                   КонецЕсли;
                                           
                   БухИТ.ВыбратьСубконто(3);
                   Пока (БухИТ.ПолучитьСубконто(3)=1)и(СуммаОплаты>0) Цикл
                       
                       Если ПустоеЗначение(БухИт.Субконто(3)) = 1 Тогда
                           Продолжить;
                       КонецЕсли;

                       СтрокаТабУчтенныхСумм = "";
                       СФ = БухИТ.Субконто(3);
                       Если ТабУчтенныхСумм.НайтиЗначение(СФ,СтрокаТабУчтенныхСумм,1)=1 Тогда
                           Учтено = ТабУчтенныхСумм.ПолучитьЗначение(СтрокаТабУчтенныхСумм,2)+ТабУчтенныхСумм.ПолучитьЗначение(СтрокаТабУчтенныхСумм,"Резерв");
                       Иначе
                           Учтено = 0;
                       КонецЕсли;
                       ЗадолженностьПоСФ = БухИт.СКК("С") - Учтено;
                       Если ЗадолженностьПоСФ<>0 Тогда
                           Если ПустоеЗначение(СФ) = 1 Тогда
                               ДобавитьСтроку = 0;
                               
                           ИначеЕсли (ДатаДок >= НачалоГода2006) и ((СФ.СчетНДС = 1) или (СФ.ДатаДок >= НачалоГода2006)) Тогда
                               ДобавитьСтроку = 1;
                               
                           Иначе
                               ДобавитьСтроку = 0;
                           КонецЕсли;
                           
                           Если ДобавитьСтроку = 1 Тогда
                               НоваяСтрокаКнигиПродаж(Док,СФ,СтрокаТабУчтенныхСумм);
                               
                           Иначе
                               Если (СуммаОплаты > ЗадолженностьПоСФ) и (ЗадолженностьПоСФ > 0) Тогда
                                   СуммаЗКП = ЗадолженностьПоСФ;
                                   СуммаОплаты = СуммаОплаты - ЗадолженностьПоСФ;
                                   
                               ИначеЕсли (СуммаОплаты < ЗадолженностьПоСФ) и (ЗадолженностьПоСФ < 0) Тогда
                                   СуммаЗКП = ЗадолженностьПоСФ;
                                   СуммаОплаты = СуммаОплаты + ЗадолженностьПоСФ;
                                   
                               Иначе
                                   СуммаЗКП = СуммаОплаты;
                                   СуммаОплаты = 0;
                               КонецЕсли;
                               
                               //Рассчитать НДС и добавить строку в документ
                               ПоДокументуОплаты(Док,БухИт.Субконто(3),СуммаЗКП,БухИт,СтрокаТабУчтенныхСумм);
                           КонецЕсли;    
                       КонецЕсли;
                   КонецЦикла;
               КонецЕсли;
           КонецЦикла;
           
       ИначеЕсли Док.Вид() = "ПриходныйОрдер" Тогда
           Если (Док.КоррСчет = СчетПоКоду("62.1")) или
                (Док.КоррСчет = СчетПоКоду("62.6")) или
                (Док.КоррСчет = СчетПоКоду("76.5")) или
                (Док.КоррСчет = СчетПоКоду("76.6")) или
                (Док.КоррСчет = СчетПоКоду("62.11")) или
                (Док.КоррСчет = СчетПоКоду("76.55")) Тогда
               Если Док.Субконто2.Выбран()=1 Тогда
                   Если Док.Субконто2.АвтоОбработкаНДС=0 Тогда
                       Продолжить;
                   КонецЕсли;
               КонецЕсли;          
               БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Док.Субконто1,2);
               БухИт.ИспользоватьСубконто(ВидыСубконто.Договоры,Док.Субконто2,2);
               БухИт.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыВыданные,,1);
               БухИт.ВключатьСубсчета(1,);
               БухИт.ВыполнитьЗапрос(,Док.ТекущийДокумент(),"ЗПР",,,,,"С");
               
               Если Док.Валюта.Выбран() = 1 Тогда
                   
                   Кратность = Док.Валюта.Кратность.Получить(Док.ДатаДок);
                   Кратность = ?(Кратность=0, 1, Кратность);
                   
                   СуммаОплаты = (Док.Сумма - Док.НП)*Док.Валюта.Курс.Получить(Док.ДатаДок)/Кратность;
               Иначе
                   СуммаОплаты = (Док.Сумма - Док.НП);
               КонецЕсли;
               
               Если Док.ДокументПоставки.Выбран()=1 Тогда
                   СтрокаТабУчтенныхСумм = "";
                   Если ТабУчтенныхСумм.НайтиЗначение(Док.ДокументПоставки,СтрокаТабУчтенныхСумм,"ДокРезерв")=0 Тогда
                       Продолжить;    
                   КонецЕсли;
                   ТабУчтенныхСумм.ПолучитьСтрокуПоНомеру(СтрокаТабУчтенныхСумм);
                   Учтено = ТабУчтенныхСумм.Учтено;
                   СФ = ТабУчтенныхСумм.СчетФактура;
                   Резерв = ТабУчтенныхСумм.Резерв;
                   ТабУчтенныхСумм.Резерв = Резерв - СуммаОплаты;
                   Если БухИТ.ПолучитьСубконто(3,,СФ)=1 Тогда
                       ЗадолженностьПоСФ = БухИт.СКК("С") - Учтено;
                   Иначе
                       ЗадолженностьПоСФ = 0;
                   КонецЕсли;
                   
                   Если ЗадолженностьПоСФ<>0 Тогда
                       Если ПустоеЗначение(СФ) = 1 Тогда
                           ДобавитьСтроку = 0;
                           
                       ИначеЕсли (ДатаДок >= НачалоГода2006) и ((СФ.СчетНДС = 1) или (СФ.ДатаДок >= НачалоГода2006)) Тогда
                 

(189)_ переписывай
запрос в цикле бЭЭЭЭЭЭЭЭЭ

(183) >> ...тупой фри и мелькая фирма

И откуда у маленькой фирмы тогда станки с ЧПУ?...

(190) ну не всегда запрос не в цикле быстрее

(0) А ты их подначивай постоянно.
- "А в 8-ке этот функционал из коробки есть"
- "А на 8-ке я бы вам эти доработки сделал в 5 раз быстрее/дешевле"
А если поводов для подобных подначек нет - значит они правы.

(191) Да легко!
Есть знакомый - ИП. Держит 1-2 помощников и 6 станков с ЧПУ.
ХЗ чем они там занимаются.

(192) там чушь

(174) в УТ11 нет, ибо РАУЗ

(196) РАУЗ в УТ11? Эмъ...

(197)А ты думал. РАУЗ он теперь везде. у нас его даже в УНФ запихать пытались.