Жизнь замечательных грибов
|
1 2 3 4 5 |
Функция СпарситьЛицевой(лс) МногострочнаяСтрока = СтрЗаменить(лс, ";",Символы.ПС); Для кСчЦ = 1 по СтрЧислоСтрок(МногострочнаяСтрока) Цикл Сообщить(СтрПолучитьСтроку(МногострочнаяСтрока,СчЦ)); КонецФункции |
Например что-то типа «Проверка сервера 1С:Предприятия {Документ.ПутевойЛист(1032,3)}: Процедура или функция с указанным именем не определена (Предупреждение) »
Решение: поставить в настройках запуска галочку «Толстый клиент». Сия ошибка возникает при обновлении платформы с древних версий, на современные.
Задача: выставить верное количество остатков на складе. Удалить из табличной части строки с нулевым количеством.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
для каждого стр из НоменклатураДляПодбора цикл Запрос = Новый Запрос("ВЫБРАТЬ | ТоварыНаСкладахОстатки.КоличествоОстаток, | ТоварыНаСкладахОстатки.Номенклатура |ИЗ | РегистрНакопления.ТоварыНаСкладах.Остатки(&Период, ) КАК ТоварыНаСкладахОстатки |ГДЕ | ТоварыНаСкладахОстатки.Склад = &Склад | И ТоварыНаСкладахОстатки.Номенклатура = &Номенклатура"); Запрос.УстановитьПараметр("Склад",СтруктураИсходныхПараметров["Склад"]); Запрос.УстановитьПараметр("Номенклатура",стр.Номенклатура); Запрос.УстановитьПараметр("Период",ТекущаяДата()); Результат = Запрос.Выполнить().Выбрать(); такиостаток=0; пока Результат.Следующий() цикл такиостаток=Результат.КоличествоОстаток; конеццикла; стр.КоличествоСвободныйОстаток=такиостаток; конеццикла; СтрокиКУдалению = НоменклатураДляПодбора.НайтиСтроки(Новый Структура("КоличествоСвободныйОстаток",0)); Для каждого СтрокаТаблицы Из СтрокиКУдалению Цикл НоменклатураДляПодбора.Удалить(СтрокаТаблицы); КонецЦикла; |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
ПараметрыПочты = новый ИнтернетПочтовыйПрофиль; ПараметрыПочты.АдресСервераSMTP = "mail.erfwerfwe.ru"; ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию; ПараметрыПочты.ПользовательSMTP = "wrefwerf@erfwerf.ru"; ПараметрыПочты.ПарольSMTP="ewrfwrqwe"; Письмо=новый ИнтернетПочтовоеСообщение; Письмо.Тема="Уведомление о задолженности"; Письмо.ИмяОтправителя="Пупкин и компания"; Письмо.Отправитель="erfwerf@erfw.ru"; Письмо.Получатели.Добавить("erfqwerf@mail.ru"); Письмо.Тексты.Добавить("Содержимое"); Письмо.Вложения.Добавить(файл); Подключение=новый ИнтернетПочта; Попытка Подключение.Подключиться(ПараметрыПочты); Подключение.Послать(Письмо); Сообщить ("Письмо отправлено успешно."); Исключение Сообщить ("Письмо не отправлено." + ОписаниеОшибки()); КонецПопытки; |
Захотел брать в таблицы jqgrid данные из 1С. Казалось бы простая задача, сформировать в 1С массив JSON. Однако оказалось не все так просто. В УПП 1.3 общих функций для работы с JSON нет. А в Управлении Торговлей — есть. Пришлось выдернуть нужные функции оттуда.
» Читать далее