Курсы онлайн обучения 1С

Автор: admin, 29.07.2010 рубрики: Изучаем программирование

Перем ОСВ;
Перем сзВнутренние;
Перем Баланс;
Перем XL;
Перем Дос
тупКМакросам;
Перем ТЗСвод;

Функция БезПробелов(Стр)
Стр1=Стр;
Пока Найти(Стр1," «)>0 Цикл
Стр1=СтрЗаменить(Стр1,» «,»");
КонецЦикла;
Возврат Стр1;
КонецФункции

//********************************************************************
// выборка из баланса по коду статьи и столбца (в таблицу)
Функция П(Код, Показатель)
НСтроки = 0;
Если Баланс.НайтиЗначение(Код, НСтроки, «Код») = 0 Тогда
Возврат 0;
Иначе
Возврат Баланс.ПолучитьЗначение(НСтроки, Показатель);
КонецЕсли;
КонецФункции

//******************************************************************************
Функция ИмяФайлаХранения()

ИНН = Сред(Константа.ИННОрганизации, 1, 10);
КПП = Сред(Константа.ИННОрганизации, 12, 9);

КаталогПоИНН = СокрЛП(Сред(ИНН,3,8)) + «.» + СокрЛП(Лев(ИНН,2));

КаталогДанныхФирмы = КаталогПоИНН;

// Сначала проверим наличие каталога хранения данных,
// имя которого определяется по ИНН.
КаталогХранения = КаталогИБ() + «ExtForms\» + КаталогДанныхФирмы;

Если ФС.СуществуетФайл(КаталогХранения) = 0 Тогда
ФС.СоздатьКаталог(КаталогХранения);
КонецЕсли;

Если ПустоеЗначение(КПП) = 0 Тогда

КаталогПоКПП = СокрЛП(Сред(КПП,3,7)) + «.» + СокрЛП(Лев(КПП,2));

КаталогДанныхФирмы = КаталогДанныхФирмы + «\» + КаталогПоКПП;

КонецЕсли;

КаталогХранения = КаталогИБ() + «ExtForms\» + КаталогДанныхФирмы;

Если ФС.СуществуетФайл(КаталогХранения) = 0 Тогда
ФС.СоздатьКаталог(КаталогХранения);
КонецЕсли;

КаталогХранения = КаталогХранения + «\» + «0712001» + «.» + Прав(Строка(ДатаГод(Дата2)), 2);

Если ФС.СуществуетФайл(КаталогХранения) = 0 Тогда
ФС.СоздатьКаталог(КаталогХранения);
КонецЕсли;

Возврат КаталогХранения + «\» + Лев(Строка(Дата2),2) + Сред(Строка(Дата2),4,2) + «00.rvs»;

КонецФункции

Связанные записи

• Нет связанных записей.