Программируем в 1С

Как проверить на четное число в 1С 8 8.2 8.3? &НаСервере Функция ПроверитьЧетноеЧисло(ПроверяемоеЧисло) Число = ПроверяемоеЧисло%2=0; Возврат Число; КонецФункции Ниже пример использования функции на четное число. &НаКлиенте Процедура СтрокиПроверитьНаЧет(); Для Каждого СтрокаТЧ Из Объект.ТЧ Цикл // ПроверитьЧетноеЧисло(СтрокаТЧ.НомерСтроки); //Сообщить(ПроверитьЧетноеЧисло(СтрокаТЧ.НомерСтроки)); Если ПроверитьЧетноеЧисло(СтрокаТЧ.НомерСтроки) = Истина Тогда Сообщить(«Четное :» + СтрокаТЧ.НомерСтроки); КонецЕсли; КонецЦикла КонецПроцедуры // Сама функция проверки на … Читать далее

Как очистить регистр расчета в 1С 8.2 — 8.3 Запрос=Новый Запрос; Запрос.Текст = «ВЫБРАТЬ РАЗЛИЧНЫЕ | УправленческиеНачисления.Регистратор |ИЗ | РегистрРасчета.УправленческиеНачисления КАК УправленческиеНачисления»; РезультатЗапроса = Запрос.Выполнить(); Выборка = РезультатЗапроса.Выбрать(); Кол=0; БылиОшибки=Ложь; //РегистрыНакопления.ЗаказыМагазинов.УстановитьИспользованиеИтогов(Ложь); Пока Выборка.Следующий() цикл //ОбработкаПрерыванийПользователя(); Набор = РегистрыРасчета.УправленческиеНачисления.СоздатьНаборЗаписей(); Набор.Отбор.Регистратор.Значение = Выборка.Регистратор; Попытка Набор.Записать(); Исключение БылиОшибки=Истина; КонецПопытки; Кол=Кол+1; ЕСЛИ Кол%100=0 Тогда Сообщить(«Отработано «+Кол+» документов из «+Выборка.Количество()); … Читать далее

Простая запись в Регистр Накопления 1С 8 Для Каждого ТекСтрокаТЧ Из ТЧ Цикл                     Движение = Движения.РегистрНакопЗак.ДобавитьПриход();         Движение.Период = Дата;         Движение.Номенклатура = ТекСтрокаТЧ.Оборудование;         Движение.Количество =  ТекСтрокаТЧ.Кол;         Движение.Сотрудник = Сотрудник;        КонецЦикла;                   Движения.РегистрНакопЗак.Записывать = Истина; // это кусок кода … Читать далее

Как очистить значения всех констант в 1С 8.2 — 8.3: Для Каждого ОчереднаяКонстанта Из Константы Цикл ОчереднаяКонстанта.Установить(Неопределено); КонецЦикла;   Если Вы хотите больше узнать о программировании в 1С, тогда регистрируйтесь на курс: 1С 8.3 Старт >>>

Поиск документа по реквизиту 1С 8 //   Место = «Фабрика»; Документы.ПоступлениеТоваров.НайтиПоРеквизиту(«МестоХранения», Место); //  «МестоХранения» это название реквизита на форме документа «ПоступлениеТоваров»; //   Место — это переменная содержащая    название искомого Места Хранения Если Вы хотите больше узнать о программировании в 1С, тогда Если Вы хотите больше узнать о программировании в 1С, тогда регистрируйтесь на курс: 1С … Читать далее

// Как в цикле перебрать ( получить ) все документы 1С 8 // На примере документов «ПоступленияТоваров» Выборка = Документы.ПоступленияТоваров.Выбрать(); Пока Выборка.Следующий() Цикл // Здесь получаем результат работы цикла выборки КонецЦикла;   Если Вы хотите больше узнать о программировании в 1С, тогда регистрируйтесь на курс: 1С 8.3 Старт >>>

Как програмно отменить проведение документа в 1C 8   Док.Записать(РежимЗаписиДокумента.ОтменаПроведения); // Вот так просто (-:   Если Вы хотите больше узнать о программировании в 1С, тогда регистрируйтесь на курс: 1С 8.3 Старт >>>

Как программно создать и записать документ 1С 8 Предположим что у нас в конфигурации создан Документ «Поступление товаров» На примере я покажу как программно создать и записать этот документ !   // Для начала создадим документ «Поступление товаров» Док = Документы.ПоступлениеТоваров.СоздатьДокумент(); // Теперь запишем в реквизит Дата к примеру текущую дату Док.Дата = ТекущаяДата(); // … Читать далее

Описание констант 1с 8. Обращение к константам из программы на встроенном языке производится очень просто, хотя этот способ и отличается от версии 7.7 // чтение значения из константы Название = Константы.НазваниеОрганизации.Получить(); // запись нового значения в константу Константы.НазваниеОрганизации.Установить(НовоеНазвание); Обратите внимание на слово Константы (а не Константа, как было в версии 7.7). Через такую конструкцию мы … Читать далее