Посчитаем все начисления текущего сотрудника за январь: // 1-й вариант: ВсегоНачислено = 0; ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон);...
Функция Перекодировка(Стр="",Кодировка="windows-1251") Стрим = СоздатьОбъект("Adodb.Stream"); Стрим.Type = 2; Стрим.Mode= 3; Стрим.charset="iso-8859-5"; Стрим.Open(); Стрим.WriteText(Стр); Стрим.Position=0; Стрим.charset=Кодировка; Рез=Стрим.ReadText(-1); Стрим.Close();...
Функция ПолучитьСписокОткрытыхОкон() Экспорт ВключатьФормыЭлементов = ЭтаФорма.ВладелецФормы.ЭлементыФормы.ВключатьФормыЭлементов.Значение; // Определим перебором, сколько у нас объектов в системе КолвоОбъектов =...
ПоОкладу = 0; ЖЗ = СоздатьОбъект("ЖурналРасчетов.Зарплата"); ДатаНач = '01.01.2002'; ЖЗ. ВыбратьПериодПоОбъекту(ТекСотр, ДатаНач); Пока ЖЗ.ПолучитьЗапись()=1 Цикл Если ЖЗ.ВидРасч...
ВР = ВидРасчета.НаРуки; ВР = ВидРасчета.Премия; ВР = ВидРасчета.ПолучитьАтрибут("НаРуки");
Используйте ВводДоступен ВводДоступен (IsInputAvailable) Синтаксис: ВводДоступен() Возвращаемое значение: Тип: Булево. Истина — ввод данных в форму возможен...
//Необходимо изменить существующие проводки и добавить значение Субконто Набор = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей(); Набор.Отбор.Регистратор.Установить(Объект.Ссылка); Набор.Прочитать(); Для каждого Запись из...
НачалоПериода = ЖЗ.НачалоТекущегоПериода(); КонецПериода = ЖЗ.КонецТекущегоПериода(); ПериодСтрокой = ЖЗ.ОписательПериода(НачМес); //например "Январь 2002 г"
При отмене проведения документа обычно автоматически удаляются всего его движения, в том числе и введенные записи в...
// Посчитаем все начисления текущего сотрудника за январь: ВсегоНачислено = 0; ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон); Пока ЖЗ.ПолучитьЗапись()=1...
Например, организуем перебор записей с периодом действия в январе. ЖЗ = СоздатьОбъект("ЖурналРасчетов.Зарплата"); ДатаНач = '01.01.2002'; ДатаКон =...
Добавление записи в журнал расчетов: Метод Новая может быть вызван где угодно, в глобальном модуле, модуле обработок,...
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); Диалог.Заголовок = "Выберите файл"; Диалог.ПолноеИмяФайла = ""; Фильтр = "Все файлы (*.*)|*.*"; Диалог.Фильтр...
//Функция преобразует строку вида 04/30/09 в дату Функция РазобратьДату(ИзмДата); Возврат Дата("20"+Сред(ИзмДата,7,2)+Сред(ИзмДата,0,2)+Сред(ИзмДата,4,2)); КонецФункции //НовДата = РазобратьДату("04/30/09"); //НовДата будет...
// СтрокаСКавычками = "Alena" "Egorova" СтрокаБезКавычки = СтрЗаменить(СтрокаСКавычками,"""",""); Сообщить(СтрокаБезКавычки); // Alena Egorova Номер символа Кавычка — 34...
На Рабочем столе Shell = Новый COMОбъект("WScript.Shell"); РабочийСтол = Shell.SpecialFolders("Desktop"); Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk"); Ярлык.TargetPath =...
Настройки прокси сервера 1С:Предприятие 8 берет из Internet Explorer`а. Но вы также можете назначить их вручную, например,...
//п_Текст - ТекстЗапроса... вернётся соответственно ТЗ Функция Прямой_запрос_к_jabber(п_Текст) Экспорт л_ТЗ = Новый ТаблицаЗначений; л_число_попыток = 0; л_Запрос_выполнен...
При запуске 1С 7.7 выдает сообщение: Microsift Visual C++ Runtime Library Program C:\Program Files\1Cv77\BIN\1cv77s.exe abnormal program termination...
GUID (Globally Unique Identifier) — статистически уникальный 128-битный идентификатор. Его главная особенность — уникальность, которая позволяет создавать...