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

Хранилище

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

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



История благодарностей участнику djdf_crash ::: Спасибо сказали: 1 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
12.05.14, 12:04 аналіз рахунка посубконто, 1С Бухгалтерия 7.7 для Украины
найшлось рішення, все підтягує.
    СпрВидыЗатрат = СоздатьОбъект("Справочник.ВидыЗатрат");
            кодЗатратОтпуск = 0;
            Если Лев(ТекСчетЗатрат.Код,2) = "23" Тогда
                кодЗатратОтпуск = 40; // 60;
            ИначеЕсли Лев(ТекСчетЗатрат.Код,2) = "92" Тогда    
                кодЗатратОтпуск = 117; // 121;
            ИначеЕсли Лев(ТекСчетЗатрат.Код,2) = "93" Тогда    
                кодЗатратОтпуск = 153; // 157;
            ИначеЕсли Лев(ТекСчетЗатрат.Код,2) = "94" Тогда    
                кодЗатратОтпуск = 280; // 281;
            ИначеЕсли Лев(ТекСчетЗатрат.Код,3) = "977" Тогда
                ТекВидЗатратОтпуск = ТекВидЗатрат;
            ИначеЕсли Лев(ТекСчетЗатрат.Код,3) = "471" Тогда
                ТекВидЗатратОтпуск = ТекВидЗатрат
            КонецЕсли;
            //ВидЗатратОтпуск = "";
            Если СпрВидыЗатрат.НайтиПоКоду(кодЗатратОтпуск,0) = 1 Тогда
                ТекВидЗатратОтпуск = СпрВидыЗатрат.ТекущийЭлемент();
            КонецЕсли;


Дякую всі.
vadim007,

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