Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> ТиС Украина 7.7: Управленческий учет          
fishing-shop Подменю пользователя
сообщение 28.09.09, 22:42
Сообщение #1

Молчаливый
*
Группа: Пользователи
Сообщений: 5
Спасибо сказали: 0 раз
Рейтинг: 0

Подскажите, пожалуйста, как сделать в поле "Тип учета" в документах значение "Управленческий" по-умолчанию вместо "Общий".
Заранее большое спасибо!

Ardi Подменю пользователя
сообщение 29.09.09, 1:14
Сообщение #2

Живет на форуме
***********
Гений телепатии и социального моделирования
Группа: Пользователи
Сообщений: 4121
Из: Киев
Спасибо сказали: 957 раз
Рейтинг: 0

Перепрограммировать, подругому никак.


Signature
Услуги 1С программиста 8.2, 7.7 (Плохо, дорого, очередь). Киев.

zetovich Подменю пользователя
сообщение 29.09.09, 7:43
Сообщение #3

Почти ветеран
Иконка группы
Группа: Местный
Сообщений: 718
Из: Северодонецк
Спасибо сказали: 121 раз
Рейтинг: 0



Функция ДефТипУчета(Док)
ТЗ=ТипЗначенияСтр(Док);
Если (ТЗ="Документ") ИЛИ (ТЗ="ГрупповойКонтекст") Тогда
ВидДок=Док.Вид();
ИначеЕсли ТЗ="Строка" Тогда
ВидДок=Док;
Иначе
Возврат Упр;
КонецЕсли;
Если Найти("ВводРезервовТоваров",ВидДок)>0 Тогда
Возврат Упр; //тута
ИначеЕсли Найти("НалоговаяНакладная,Приложение1,Приложение2,ЗаписьКнигиПриобретения,Взаимоза
чет",ВидДок)>0 Тогда
Возврат Фин; //тута
Иначе
Возврат Общ; //и тута
КонецЕсли;
КонецФункции


думаем тута smile.gif

fishing-shop Подменю пользователя
сообщение 30.09.09, 21:30
Сообщение #4

Молчаливый
*
Группа: Пользователи
Сообщений: 5
Спасибо сказали: 0 раз
Рейтинг: 0

Цитата(zetovich @ 29.09.09, 9:43) *


Функция ДефТипУчета(Док)
ТЗ=ТипЗначенияСтр(Док);
Если (ТЗ="Документ") ИЛИ (ТЗ="ГрупповойКонтекст") Тогда
ВидДок=Док.Вид();
ИначеЕсли ТЗ="Строка" Тогда
ВидДок=Док;
Иначе
Возврат Упр;
КонецЕсли;
Если Найти("ВводРезервовТоваров",ВидДок)>0 Тогда
Возврат Упр; //тута
ИначеЕсли Найти("НалоговаяНакладная,Приложение1,Приложение2,ЗаписьКнигиПриобретения,Взаимоза
чет",ВидДок)>0 Тогда
Возврат Фин; //тута
Иначе
Возврат Общ; //и тута
КонецЕсли;
КонецФункции


думаем тута smile.gif


Подумал тута - помогло smile.gif
Огромное спасибо!

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 25.04.24, 12:12
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!