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

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



История благодарностей участнику nysysimara ::: Спасибо сказали: 110 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
25.01.12, 14:06 Наличие ОС
Остатки - по счетам 10, 11, 12
Износ - по счету 13
Есть возможность выбрать фильтры: счет учета, место хранения, необоротный актив
Выдает две печатные формы:
1) Остатки ОС на указанную дату
группировки: счет, место хранения
дополнительная информация: счет учета, дата ввода в эксплуатацию, срок использования, период эксплуатации, начальная стоимость, износ, остаточная стоимость, группа НУ
2) Начисление износа ОС по счетам учета


Скачать: [attachment=514:NalichieOC.zip]

зы: постаралась адаптировать под типовую в изначальном варианте есть еще ДатаВыпуска и группировка по КлассамНА
(ДатаВыпуска и КлассаНА - это наши реквизиты в справочнике НА)
 1C_user02, aknilka, Anatolevich, Vofka, Егор Динин,
13.01.12, 15:00 Выборка в отчете 
Процедура Сформировать()
    Док = СоздатьОбъект("Документ.ПланЗакупок");
    
    Табл = СоздатьОбъект("ТаблицаЗначений");    
    Табл.НоваяКолонка("КодДК");
    Табл.НоваяКолонка("Сумма");  
    
    Док.ВыбратьДокументы(НачДата,КонДата);
    Пока Док.ПолучитьДокумент() = 1 Цикл
        Если Док.Проведен() = 0 Тогда
            Продолжить;
        КонецЕсли;
        Док.ВыбратьСтроки();
        Пока Док.ПолучитьСтроку() = 1 Цикл 
            Если ПустоеЗначение(Док.КодДК) = 1 Тогда
                Продолжить;
            КонецЕсли;  
            Табл.НоваяСтрока();
            Табл.КодДК = Док.КодДК; 
            Табл.Сумма = Док.СуммаЗаГод;
        КонецЦикла;     
    КонецЦикла;        
    Табл.Свернуть("КодДК","Сумма");  
    
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    Таб.ВывестиСекцию("Шапка");
    Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
    
    Табл.ВыбратьСтроки();
    Пока Табл.ПолучитьСтроку() = 1 Цикл
        Таб.ВывестиСекцию("Строка_1");
    КонецЦикла;        
    Таб.ВывестиСекцию("Подвал");
    Таб.Показать("Сформировать","");
КонецПроцедуры
 wmatik,
29.12.11, 9:58 С НОВЫМ ГОДОМ!

С наступающим Новым годом! Здоровья, удачи, счастья Вам и Вашим близким.
 5_kopeek, igmig65, kov0404, malexmen, MATEVI, mister-x, Virgo, Домовик,
20.12.11, 12:22 Поиск в таблице значений
уточняющие вопросы:
1) колонки в таблицах ?
ТЗ: Склад,Відстань,Навигатор
ТЗ2: Автомобіль,Відстань,Навигатор
2) ТЗ заполняем по даннм из ТЗ2 ?
3) и уточню условие ТЗ.Склад = ТЗ2.Автомобіль ?

если да,да,да тогда
ТЗ.ВыбратьСтроки();            
    Пока ТЗ.ПолучитьСтроку()=1 Цикл 
    к="";
        Если ТЗ2.НайтиЗначение(ТЗ.Склад,к,"Автомобіль") = 1 Тогда
            ТЗ2.ПолучитьСтрокуПоНомеру(к);
            ТЗ.Відстань=ТЗ2.Відстань;
            ТЗ.Навигатор=ТЗ2.Навигатор; 
        Иначе
            Продолжить; 
        КонецЕсли;                 
    КонецЦикла;


4)
Цитата
Типы значений не совпадают
 mavrik,
15.12.11, 14:05 Меняем время документа РН
нужна строка
ДокИзм.Записать();

перед
Если ДокИзм.Провести()=0 Тогда


и 
ДокИзм=СоздатьОбъект("Документ");

я бы вынесла до начала цикла
 Kutuzov,
13.12.11, 15:59 Как вставить данные по оборотке в формулу документа?
Цитата
дебету оборотки за определенный период, по определенному счету еще и по определенному месту хранения

бух.запрос с фильтрами
что-то типа 
    Сч2322 = СчетПоКоду("2322",ПланыСчетов.Основной); 
    БИ = СоздатьОбъект("БухгалтерскиеИтоги");
    БИ.ИспользоватьПланСчетов(ПланыСчетов.Основной);
    БИ.Опции(0,0);
    БИ.ИспользоватьСубконто(ВидыСубконто.МестаХранения,выбМестоХранения,2);
    БИ.ИспользоватьСубконто(ВидыСубконто.ВидЗатрат,выбВидЗатрат,2);
    БИ.ВыполнитьЗапрос(КонПериода,КонПериода,Сч26,,,,,"СК");
 panyakin,
10.11.11, 9:45 Внешний отчёт "Наряд"
1) вместо
Таб=СоздатьОбъект("ТаблицаЗначений");
Таб.ИсходнаяТаблица("Наряд");


нужно
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Наряд");
 occupantwow,
04.11.11, 12:44 Как программно добавить/изменить цены?
повторюсь
Если выдаст сообщение, тогда заменить код на
Единицы = СоздатьОбъект("Справочник.Единицы");
Единицы.Новый();
Единицы.Владелец = ТекТовар;
...
Заполнить необходимые реквизиты
...
Единицы.ШтрихКод = ТекТовар.ШтрихКод;
Единицы.Записать();


необходимые реквизиты - это Коэффициент, наименование(шт) и т.д.
 Flexy,
25.10.11, 15:21 БухЗапро по Контрагенту 
    
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьПланСчетов(ПланыСчетов.Основной); 
Ит.ВключатьСубсчета(-1); 
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
Ит.ВыполнитьЗапрос(НачПериод,КонПериод,"37,1",,, 1,,"С");  

Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1)=1 Цикл            
    Контр    = Ит.Субконто(1);
    ОстСум    = Ит.СКД("С");
КонецЦикла;


кокто так

КАКто так
 mavrik,
07.10.11, 10:34 Как перезаписать значения реквизитов, поменять местами два значения
МестоХранения и МестоХраненияВЭксплуатации, насколько я понимаю, - реквизиты шапки документа, значит перебирать строки вам ник чему.
Если диапазон документов не ограничен, т.е. изменить во всех документах базы, тогда попробуйте так:
Процедура Выполнить() 
    Док = СоздатьОбъект("Документ.ВводВЭксплуатацию");
    Док.ВыбратьДокументы(,);
    Пока Док.ПолучитьДокумент()>0 Цикл 
        старМестоХранения                = Док.МестоХранения;
        старМестоХраненияВЭксплуатации    = Док.МестоХраненияВЭксплуатации;
        
        Док.МестоХранения                = старМестоХраненияВЭксплуатации;
        Док.МестоХраненияВЭксплуатации    = старМестоХранения;
        
        Док.Записать();
    КонецЦикла;
КонецПроцедуры
,
если нужн оперделенный период дат, тогда
Док.ВыбратьДокументы(ДатаНач,ДатаКон);
 wmatik,
26.09.11, 11:52 Справочники ТМЦ-Состав продукции, как скопировать в паре
Вариант1: Написать обработку, вызов её поместить в кнопку на форме списка справочника ТМЦ (напр."Копировать")
По клику передать в обработку все данные по текущему элементу справочника ТМЦ (те которые надо повторить) и соответствующий состав.
В обработке прописать создание нового элемента справочника ТМЦ, заполнение его реквизитов, запись
И создание элементов подчиненного справочника - СоставПродукции.
В форме обработки можно это все предоставить для редактирования.

Вариант2: функцию этой кнопки разместить непосредственно в модуле формы списка справочника ТМЦ


Цитата(mister-x @ 26.09.11, 12:43) *
Є, див. процедуру ВводНового(<ПризнКопирования>,<ОбъектКопирования>), правда, прийдеться спочтаку записати елемент ТМЦ, а потім створити підлеглий елемент до нього у дов. СоставПродукции.


похоже свои пробелы в знаниях я восполняю изобретаниями велосипеда
 bob210250,
22.09.11, 9:06 Нужна обработка для отображения содержимого набора прав
Flexy,это конечно не то пальто, но в хозяйстве все сгодится.

Нашла на Инфостате, хоть что-то
Посмотрите

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

Вот еще одна, пока не смотрела, "Анализатор наборов прав для 1С"
Тыц
 Talkman,
20.09.11, 15:03 Периодические реквизиты нового элемента справочника...
ИспользоватьВладельца выступает как фильтр, а выборку нужно открыть
Цена.ВыбратьЭлементы();
 Talkman,

4 страниц V  « < 2 3 4
RSS Текстовая версия Сейчас: 20.04.24, 3:39
Форум IP.Board © 2024  IPS, Inc.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!