Имя: Пароль:
1C
1С v8
1С не для мелких фирм уже?
,
0 kot275
 
19.11.12
15:14
Добрый день. Вот решил вытащит такой вопрос на обсуждение. Целевая аудитория для 1С.
Лично я семерочник, в основном. У меня небольшая кучка фирм, я их типа обслуживаю. Шабашки. Фирмы мелкие 5-10 человек, тип купи-продайка и мелкое производство(окна двери, пилорама, сварка, ковка). Основная конфа это ТиС пиленая и доработанная(грубо говоря одно название осталось).
Вот предпринимаю неоднократные попытки их перевести на 8.2 и типовые, типа УНФ и УТ. Там в принципе все что им надо есть есть. Но никто не хочет. Основные аргументы там слишком сложно, много лишнего(ну честно скажу есть некий избыток функционала) и дорого. Может послать их? Новые фирмы искать, а это типа нищеброды не достойны они прога 1С?
99 AndyTLT63
 
19.11.12
16:54
потому что невозможно сделать прогу ДЯЛ ВСЕХ
100 AndyTLT63
 
19.11.12
16:54
ДЛЯ ВСЕХ
101 Aleksey
 
19.11.12
16:54
(96) Это свежее внедрениие, еще время не пришло, а так я могу и противоположные новости накидать

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

Строительный подрядчик «Газпрома» и «Лукойла» отказался от 1С в пользу SAP (с) http://www.tadviser.ru/index.php/Проект:Стройгазконсалтинг_(SAP_ERP)
102 GLazNik
 
19.11.12
16:54
у вас тут прям офф в оффе. вопрос про мелкие предприятия а обсуждаются особенности крупных внедрений
103 kot275
 
19.11.12
16:54
(87)Пока они ко мне лезут.
(93)Покупают. Что вызывает еще одну проблему не совместимости ОС и семерки.

Так, приперлись те у кого по 25 и притащили УПП. Давайте любители УПП в другу ветку писками мерится пойдете, а?
104 0xFFFFFF
 
19.11.12
16:55
(0) УТ дорого?...
105 Aleksey
 
19.11.12
16:56
Да уж "притом что в «1С:Предприятии 8» одновременно работает до 500 пользователей"

Вот не поверю что одновременно 500 человек в типовой УПП сидят и работают
106 Aleksey
 
19.11.12
16:56
небось еще вместо сервака ноутбук директора, но чтобы уж ого-го смотрите какая 1С
107 kot275
 
19.11.12
16:57
(104)Как сравнить7 УТ на пять пользователей 1000 баксов.
Знакомый пишет мелкие конфы, берет бухию на те же 1000 баксов и выходит.
108 GLazNik
 
19.11.12
16:57
(105) есть опыт не 500 пользователей, а 300, но в клюшках.
109 Конфигуратор1с
 
19.11.12
16:59
(105)Если нормуль железо, такое как под сап, то почему нет?
В одном из самых крупных предприятий Украины сап поставили дабы получить кредит на западе. Спросил их итшников как в сапе проблема с быстродействием? Ответ убил - при начале новых тормозов  покупаем допсервак, стоимостью с внедрение упп на крупной фирме
110 ASU_Diamond
 
19.11.12
16:59
(101) ну вообще-то ты писал что не может быть внедрено УПП на предприятии, об этом спор и пошел. А отрицательное внедрение везде может быть http://www.pcweek.ru/idea/blog/idea/3920.php
111 0xFFFFFF
 
19.11.12
16:59
(107) 1000 баксов это половина зарплаты менеджера среднего звена в каком нибудь Запопинске. И это дорого?
112 ASU_Diamond
 
19.11.12
17:01
(105) съезди и посмотри
113 ASU_Diamond
 
19.11.12
17:01
(102) так-то вопрос в темы задан "1С не для мелких фирм уже?"
вот и разговор подходит для крупных или нет
114 Aleksey
 
19.11.12
17:02
(110) ? я лишь говорил про крупное предприятие работающие в режиме 24/7.

Я только понять не могу что вы мне доказать хотите? Что 1С не для ларька? Что если берем любую типовую и она взлетит без допиливания на любом предприятии или что?
115 Aleksey
 
19.11.12
17:03
(112) А что ездит, начитался я такой рекламы, потом выясниться что реально работает от силы человек 50, и при этом используется 50 УРБД баз или что то подобное
116 Aleksey
 
19.11.12
17:04
Интересно на чем же предприятия работали 10 лет назад когда 8-ки еще и в проекте небыло?
117 IamAlexy
 
19.11.12
17:06
(99) на УФ возможно
(0) просто не догоняет возможности УТ11 например
по этому его клиентам там "все сложно"

при понимании чо такое функциональные опции можно легко монстра УТ11 превратить в маленькую и приятненькую торговую конфигурашку
118 ssh2012
 
19.11.12
17:12
(117) удивило, что этот "монстр" не позволяет заказать товар у поставщика и поставить его в резерв при поступлении под заказ. Управление блин... Читал, что должны это исправить.
119 IamAlexy
 
19.11.12
17:13
+(117) просто автор ведется на то что клиенты говорят при настройке УТ
а если их спрашивать то

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


и это в конторе из пяти продавцов
120 Asirius
 
19.11.12
17:18
(60) +100500
Ни разу не видел предприятия, которое смогло работать на типовой ордерной схеме. Нет ни акта расхождений, ни претензионной работы.
Нормально схема может функционировать, только когда ордер совпадает с накладной - только вот накуа она тагда вообще нужна.
121 MaxS
 
19.11.12
17:18
Когда-то давно, работал я на одном предприятии... Руководство утверждало, что АСУ позволяет автоматизировать работу человека и снизить количество персонала.
С каждым годом автоматизиции там всё больше, объем выпускаемой продукции за пол века не изменился, а количество персонала наверное утроилось. Потому что кому-то нужно автоматизировать всю эту увеличивающуюся автоматизацию.
122 ssh2006
 
19.11.12
17:20
+(118) еще руками надо каждый день обновлять границу контроля в обработке управления запасами для склада с остатками по графику.
123 unregistered
 
19.11.12
17:40
(121) >> АСУ позволяет автоматизировать работу человека и снизить количество персонала.

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

По личному опыту автоматизация позволяет снизить количество персонала примерно в 10-15%% случаев.
В остальных автоматизация всего лишь дает возможность посчитать то, что раньше считать просто не могли или не хотели (не было необходимости).
Примерно в 30% случаев автоматизация наоборот приводит к увеличению количества персонала,  т.к. кому-то необходимо все данные вносить в базу(ы) и потом еще проверять и перепроверять (и это при том, что объем самих данных и их детализация увеличиваются).
124 RayCon
 
19.11.12
17:55
(3) +1
Слова не мальчика, но Мужа.
125 Адимр
 
19.11.12
18:40
(0) В 1с 8.2 уже реализовано. Управляемые формы - функциональные опции.
126 Evpatiy
 
19.11.12
18:44
"1С не для мелких фирм уже?"
1С, как и раньше, для бухгалтеров и долбоклюев.
127 kot275
 
20.11.12
11:57
(117)(125)И что это дает. Ну скроются некоторые документы, справочники. Монстр же остается, куча лишних(с точки зрения пользователя) реквизитов тоже.
128 MSII
 
20.11.12
12:07
(127) Демонстрируешь незнание возможностей ФО.
129 IamAlexy
 
модератор
20.11.12
12:09
(127) это ты ща прямо банер повесил себе на лоб "нифуя не знаю но покритикую"
130 kot275
 
20.11.12
12:19
(128)(129)Ну я не про внешний же вид. Я про код говорю. Там как были хитрые запросы и дикие процедуры они же так и останутся.
131 IamAlexy
 
20.11.12
12:20
С каких пор водителя авто интересует трудоемкость выплавки стали для поршней двигателя его машины?


Пользователям конфигурации пофиг на сложность кода..,
132 kot275
 
20.11.12
12:23
(131)Ну так же как баяне получается - "1C - автопроизводитель?"

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

http://infostart.ru/public/72388/
133 IamAlexy
 
20.11.12
12:24
(132) чушь
134 kot275
 
20.11.12
12:26
(133)Просвети меня в моих заблуждениях.
135 buhkiller
 
20.11.12
12:27
побаяню...
Снеговик убил программистов 1С как вид. Хотя именно они подняли 1С до 77, а потом стали ненужными и их тупо через колено хрясь ! Остались только таинственные разработчики типовых и присосавшиеся к крупным и средним клиентам.
136 IamAlexy
 
20.11.12
12:35
(134)  какой смысл опровергать заведумую идиотию?
См (132) - где там твои мысли? Что именно ты сказать хотел?


(135) да да, усложнил язык и развил его - это типа "убил"?
Убил то он скорее тупокодеров которые выучили цикл и условие и погнали нетленки ваять...
137 kot275
 
20.11.12
12:36
(135)Да ладно. Снеговик развязал руки. Такое количество возможностей реализации своих идей,нет больше негде.
138 kot275
 
20.11.12
12:42
(136)Сказать хотел, а ту ли целевую аудиторию я окучиваю? Может послать всех мелких.
Хотя у меня знакомый коллега, пишет мелкие конфы. Точнее написал мелкую конфу, типа ТиС и приделывает к ней чего народ хочет. Говорит на круг оно лучше получается, меньше времени на обучение(там учит нечему), настройку(практически), доработки(код минимальный) и по мелким фирмам ставит.
А вот типовые продвигаю. Может просто не тем?
139 buhkiller
 
20.11.12
12:42
(136) Не хами !
(137) А я не и спорю.

Повторюсь. Рубль вход, два выход.
Семерку можно было лепить для всех. Снеговик однозначно только для крупных и средних. Мелкие фирмы тупо сели на функционал типовых и ворча работают, т.к. стоимость хотелок и свистелок не вписывается в бюджет.
140 КонецЦикла
 
20.11.12
12:44
Ну и правильно делают что не переходят
Гимор с переучиваниями, данных заполнять больше, скорость работы ниже, дофигища отчетов а нужных нет и проч.
141 unregistered
 
20.11.12
12:47
(133) >> чушь
+100

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

Однако ожидать подобного от 1С, мягко говоря, глупо. Особенно если учесть, что 99% этих самых гениальных бизнеспроцессов - продукт больного воображения и извращенного представления о бизнесе.
142 GLazNik
 
20.11.12
12:52
(139) да и 8 можно для всех... для примера... есть контара, которая ведет учет на ТиС 7.7. переписано очень много. берем УТ11 и там большая часть того что переписано уже реализовано.

И я вот одного не пойму. В чем такое вот кардинальное различие между 7.7 и 8? есть там те же циклы и условия. Запросы изменили? так по мне они стали более читабельны и понятны. В чем еще обидели кодеров?
143 AndyTLT63
 
20.11.12
12:53
(139) По моему ерунда ...нормальный прог что для 7 что для 8 за одно время сделает доработки. Плюс зачастую в 8 это проще за счет большего функционала и удобства
144 AndyTLT63
 
20.11.12
12:53
(141) с вами согласен
145 AndyTLT63
 
20.11.12
12:55
Вообще семерку помоему любят только упертые кодеры которые не хотят изучать новый функционал...
146 VladZ
 
20.11.12
12:55
(8) Что меня искать... Здесь я...
147 beholder
 
20.11.12
12:56
(141) +1 для многих ограничить воображение это благо. Сталкивался. В одном фотосалоне работало девочко с развитой фантазией, я им любой каприз делал за их деньги так как устал бороться. Потом оно уволилось и после неё кто пришел выли от тоски над ее креативами.
148 beholder
 
20.11.12
12:57
(0) мотивируй тем что 77 умирает и скоро уйдет с поддержки так как тупо не станет семерочников, во всяком случае не станет за дёшево.

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

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

Эту песню я слышу уже не первый год.
Однако что-то вакансий по клюшкам почти не видать. А если и встречаются, то ценник предлагаемый работодателями значительно ниже аналогичных вакансий для программистов снеговика.
151 beholder
 
20.11.12
13:09
(150) а я вот уже все больше вижу 1Сников кто в глаза клюшки не видел. И все больше 7-шников ушедших в 8 и не собирающихся возвращаться. Лет  5 еще и кирдык.

ЗЫ много ты сейчас 6-ков знаешь?
152 Aleksey
 
20.11.12
13:10
(142) У тебя ошибка в рассуждении "и там большая часть того что переписано уже реализовано. " - это откуда следует?


Ничего из того что у нас дописано в 7-ке в УТ11 нет, а мы обычная контора купи-продай
153 Lenka_Boo
 
20.11.12
13:12
Есть конфигурация "Управление небольшой фирмой" - ничего лишнего, но некоторой допилки требует.
154 Lenka_Boo
 
20.11.12
13:12
(153) к (0)
155 GLazNik
 
20.11.12
13:16
(152) это не рассуждения, а конкретный пример. контора - это не какая-то сферическая контора в вакууме, а конкретная. С бизнес-процессами и учетом которой я хорошо знаком. И это знакомство мне позволяет говорить, что 80% того что там реализовано сверх типового функционала уже есть в УТ11.
156 Aleksey
 
20.11.12
13:18
(155) повезло, а примеры можно накидать из тех 80% что дописано и реализовано в УТ11?
157 kot275
 
20.11.12
13:19
(141)За их деньги любой гениальный бизнеспроцесс. Почему бы и нет?
158 Кокос
 
20.11.12
13:21
(100) "ДЛЯ ВСЕХ"
А что? Потянет компании объем проводок которых сопоставим с банками?
159 beholder
 
20.11.12
13:21
(156) а было бы интересно примеров того чего нет в УТ11, спрашиваю для повышения образованности.

(157) потому что это хреново закончится, но если не собираешься долго жить в городе, то действительно, почему бы и нет! =)
160 kot275
 
20.11.12
13:24
(159)Ну я же ради денег работаю, а не ради всеобщей справедливости и правильности учета. Кто платит тот и заказывает музыку.
161 kot275
 
20.11.12
13:24
(153)У нас в УНФ очень кривой код, сплошной копи-пасте.
162 beholder
 
20.11.12
13:25
(160) Я сейчас тебе глаза открою. В области постановки задач и бизнес проектирования денег больше чем в кодинге!
163 Aleksey
 
20.11.12
13:27
Модуль доставки (кто, когда и куда едет. Задание водителю кому что отвести и у кого что забрать + по возвращению отчет водителя с разноской от кого и сколько забрал денег)

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

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

Вот тебе пару примеров
164 kot275
 
20.11.12
13:29
(162)Я в курсе, я там уже был. Но у нас области постановки задач и бизнес проектирования не востребованы, чай не Москва и даже не Киев. У нас больших компаний единицы. И то филиалы. Это мне опять в столицу перебираться надо. А мне что больше не хочется.
165 kot275
 
20.11.12
13:30
(163)Ох тебя сейчас запинают.
166 GLazNik
 
20.11.12
13:31
(156) то что вот сразу помню, это вот тема с доступом, ордерная схема (некое подобие) , учет по характеристикам.
(160) к тебе же как к специалисту обращаются. и если идея бредовая, то твоя задача донести до постановщика задачи - почему и как лучше добиться нужных результатов.
167 Aleksey
 
20.11.12
13:31
(165) Типа тебе это нафиг не нужно и ты ничего не понимаешь в бизнес-процессах. И если разработчики не сделали этого в УТ11, то это и нафиг некому не нужно?
168 beholder
 
20.11.12
13:42
(164) вот у меня был случай: мелкая производственная контора по расплавке цветмета, захотела срастить ПБу и комплексную. Мне наш постановщик задач поставил эту задачу и я трахался с ней очень долго. Потом я сам стал общаться с заказчиком на этапе сдачи работ.
Там сидит дефачко-бухгалтер и оно оказывается ставило задачу. Я ее и спрашиваю нафига? А она мотивирует что хочет чтобы учет ЗП и производство было "в одном флаконе" чтобы два раза не вбивать.
В итоге оказалось все настолько сложно, что запустить учет так и не получилось в это связке, то она хотела дым от расплавки металла как возвратный отход учитывать, то еще чего-то.
Короче я показал ей как можно из ПБУ в ЗиК выгружать данные ("ой а что можно, да?" - глазками хлоп-хлоп) и на этом расстались довольные друг другом. Штукабаксов за сращивание мутанта из ПБУ и комплексной ушла в дым.
Но так как провинция-с, то да, заставить платить за, "бла-бла-бла" как они думают, не выходит, но ничо надо формировать рынок-то =)
169 kot275
 
20.11.12
13:43
(167)Я то как раз понимаю. Но пол ветки походу нет нет. Вон меня в (166) пинают.
(166)Я всегда исходил из того что заказчику видней, просто потому что его аргументы имеют существенное подкрепление, у него фирма есть, а у меня нет.
170 beholder
 
20.11.12
13:45
(169) это слабый аргумент. Если у заказчика есть завод по пошиву обуви он сам должен кожу раскраивать или клей смешивать? =)
Учёт это тоже специфическая область со своими законами и "ньансцами".
171 GLazNik
 
20.11.12
13:45
(169) у меня есть квартира, но я не навязываю сантехнику как чинить трубы.
172 kot275
 
20.11.12
13:46
(168)Не ну не дурак же совсем, сосем тупое конечно реализовывать оказываюсь, или где тупо обойти по другому можно. Но бантики с рюшечками делаю. Кушать то хочется.
173 unregistered
 
20.11.12
13:46
И о чем вы спорите?

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

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

Любая контора не имеющая такого бюджета - с вероятностью ~90% - мелкий ларёк, который вполне может работать и в типовой конфе, а свой супер-мега-генальный-особенный учет вести в excel или в тетрадке в клетку.
174 beholder
 
20.11.12
13:46
(163) да нет, это нормальные задачи, и кстати если их нет в УТ, то может где-то еще они есть уже реализованные?
Я не спец по УТ есличестно, но партионный учет, разве его та нет? 0_0
175 kot275
 
20.11.12
13:48
(171)Не походит. У сантехника тоже квартира есть.
Тут такая аналогия, оператор станка с ЧПУ  и прог этого станка. Оператор лучше прога знает как станок запрограммировать надо, но не умеет.
176 Yuwa
 
20.11.12
13:48
(173) Допиливание- это мощно. Но есть способ лучше- берешь ОР- и допил становиться в разы меньше, а качество лучше
177 beholder
 
20.11.12
13:51
(172) это да.
178 unregistered
 
20.11.12
13:53
(175) Неверная аналогия.
Оператор - это консультант-методист, который знает как бизнес-процессы организованы в конфигурации.
Постановщик - это начальник цеха или директор завода.

Зачастую гораздо правильнее нормализовать бизнеспроцессы под программу, чем кастомизировать программу под бизнеспроцесс.
179 GLazNik
 
20.11.12
13:59
(175) ну ты ж фри, а это своего рода тож фирма :)

Мой посыл был не в наличии квартиры (я хоть завтра могу пойти и организовать ИП), а в том, что вы являетесь профессионалом и наемным специалистом для автоматизации учета.
180 shamashs
 
20.11.12
14:03
Что такое "клюшки"?
Что такое "снеговик"?
181 GLazNik
 
20.11.12
14:04
(180) клюшки - 77, снеговик - 8. похожи?
182 shamashs
 
20.11.12
14:21
(181) Допетрил
183 kot275
 
20.11.12
14:39
(178)Это уже франчайзи будет, а так тупой фри и мелькая фирма.
(179)Ну да. Я вышел на рынок чтоб денежку заработать, как и тот же сантехник. Поэтому я заинтересован в потоке работы. Как и сантехник, коль не уследишь так он тебе самое дорого  и поставит, и как ему лично удобней. Я такой же мне бы чего попроще в реализации для личного удобства, но чтоб подороже продавать.
184 Lenka_Boo
 
20.11.12
15:19
(161) А ты хочешь без работы остаться? ;)
185 mista2012-09-11
 
20.11.12
15:25
Сегодня с утра подразмялся:

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

       
       ВосстановленеНДССАванса(Док,БухИт);
       
   КонецЦикла;
    //***шо 2012-11-20
186 zak555
 
20.11.12
15:26
(185) что это ?
187 mista2012-09-11
 
20.11.12
15:27
Суть задачки: надо было воткнуть в книгу продаж счета фактуры, у которых нету документа основания - я просто импортировал из управленческой эти сч фактуры (сразу оговорюсь почему не расходные накладные- так бух захотела) - вот решение: дописал в ЗаписиКнигиПродаж в модуле формы
188 mista2012-09-11
 
20.11.12
15:28
криво - но зато быстро и , главное, это работает :)
189 mista2012-09-11
 
20.11.12
15:28
//******************************************************************************
Процедура Заполнить()
   Если КоличествоСтрок()>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)) Тогда
                 
190 zak555
 
20.11.12
15:30
(189)_ переписывай
запрос в цикле бЭЭЭЭЭЭЭЭЭ
191 unregistered
 
20.11.12
15:36
(183) >> ...тупой фри и мелькая фирма

И откуда у маленькой фирмы тогда станки с ЧПУ?...
192 beholder
 
20.11.12
15:42
(190) ну не всегда запрос не в цикле быстрее
193 fisher
 
20.11.12
15:58
(0) А ты их подначивай постоянно.
- "А в 8-ке этот функционал из коробки есть"
- "А на 8-ке я бы вам эти доработки сделал в 5 раз быстрее/дешевле"
А если поводов для подобных подначек нет - значит они правы.
194 Lenka_Boo
 
20.11.12
16:01
(191) Да легко!
Есть знакомый - ИП. Держит 1-2 помощников и 6 станков с ЧПУ.
ХЗ чем они там занимаются.
195 zak555
 
20.11.12
16:02
(192) там чушь
196 Aleksey
 
20.11.12
16:19
(174) в УТ11 нет, ибо РАУЗ
197 GLazNik
 
20.11.12
16:20
(196) РАУЗ в УТ11? Эмъ...
198 kot275
 
20.11.12
16:43
(197)А ты думал. РАУЗ он теперь везде. у нас его даже в УНФ запихать пытались.
Основная теорема систематики: Новые системы плодят новые проблемы.