|
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)А ты думал. РАУЗ он теперь везде. у нас его даже в УНФ запихать пытались.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |