жз = СоздатьОбъект("ЖурналРасчетов.Зарплата"); пер = жз.ТекущийПериод(); Сообщить("Текущий период:" + Символ Табуляции + пер); пер = пер.ПрибавитьПериод(1); Сообщить("Период...
7.x
7.x
Это сообщение возникает в том случае, если в алгоритме конфигурации Используется деление и не выполняется проверка значения...
&НаКлиенте Процедура УдалитьДокумент(Команда) // Вставить содержимое обработчика. УдалитьДокументНаСервере(0); КонецПроцедуры &НаСервере Процедура УдалитьДокументНаСервере(ПометкаУдаления) // Вставить содержимое обработчика. Перем...
Код уникален и сработает везде. Функция ПолучитьКоличествоДней() Счетчик = 1; НачалоПериода = Объект.НачалоПериода;...
Процедура глЗаполнитьШапку(Конт, Скопирован=0) Экспорт ... //Блокировка ввода новых документов СтатусВозврата(0); ... КонецПроцедуры Хотя наиболее правильно будет изменять...
Ниже приведено несколько способов получения списка баз 1С 7.7 из реестра: Код получения списка баз 1С 7.7...
Последовательность действий такая: 1. Создать новую базу 1С. (Создать пустой каталог, скопировать в него папку ExtForms, в...
При сохранении данных на дискету нужно организовать контроль ошибок, в частности проверку наличия носителя в дисководе. Сделать...
Процедура ОбработкаПроведения() //Здесь следует написать алгоритм проведения документа Рег = Регистр.ПолучитьАтрибут("Новый1"); Рег.Новый1 = Новый1; Рег.Количество = 1;...
Процедура Взаиморасчеты(ВыбКлиент, ДатаНачало, ДатаКонец) // Создание Таблицы для выходного отчета Заг = "Неизвестно."; Таб = СоздатьОбъект("Таблица"); Клн...
НоваяГруппа = Справочники.Номенклатура.СоздатьГруппу(); // Получить ссылку на группу, в которой должна находиться создаваемая группа. Родитель = Справочники.Номенклатура.НайтиПоНаименованию("Материалы",...
Для 8.х: Открываете Сервис — Пользователи и права доступа далее Дата запрета редактирования Устанавливаете Дату для всех...
//функция устанавливает новое значение реквизита документа или справочника и задаёт вопрос, если новое значение не соответствует предыдущему...
В примере "1cv7s.exe", для 8-ки замениете на "1cv8.exe"
Код для 7 версии, при использовании в 8-ой — заменить E=СоздатьОбъект("Excel.Application"); на E=Новый COMОбъект("Excel.Application"); Функция глОткрытьФайл(Маска="") Экспорт...
// Перебор всех видов расчета Для Ном=1 По Метаданные.ВидРасчета() Цикл кфгВР = Метаданные.ВидРасчета(Ном); ВР = ВидРасчета.ПолучитьАтрибут(кфгВР.Идентификатор); КонецЦикла;...
жз = СоздатьОбъект("ЖурналРасчетов.Зарплата"); // Идентификатор ЖЗ Сообщить(жз.Вид()); // Зарплата_2 // Синоним ЖЗ Сообщить(жз.ПредставлениеВида()); // Журнал заработной платы
Есть сотрудник 1946 года рождения. Программа не пропускает этот год, а выдает 2046 год. И, соответствено, выдает...
Для поиска необходимого значения воспользуемся функцией НайтиСтроки(). &НаСервере Процедура НайтиТовар(СправочникНоменклатураСсылка) Перем Отбор, НайденноеЗначение, Сч; Отбор = Новый...
// Присвоить значение переменной по ее имени. // в глоб.модуль: Функция Присвоить(Чему,Что) Экспорт Чему = Что; Возврат...