требуемое » Поиск

Результаты по ключевому слову: требуемое

Сложение дат в запросе (Прибавить к дате секунды, дни) - ДобавитьКДате

При разработке отчетов бывает необходимо в запросе прибавить к дате несколько секунд, дней, месяцев.

Для этого имеется встроенная функция ДобавитьКДате

Синтаксис функции:

ДОБАВИТЬКДАТЕ(<Исходная Дата>, <Единица Измерения>, <Количество>)

Исходная дата – дата, к которой необходимо прибавить или вычесть требуемое количество временных единиц.
Единица измерения – параметр, который определяет единицу прибавляемого времени. Возможные значения: Год, Квартал, Месяц, День, Час, Минута, Секунда.
Количество – количество временных единиц, которых необходимо прибавить к исходному значению.

Код 1C v 8.2 УП

 // Разные примеры использования

// Минута

ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2999, 1, 1, 0, 0, 0), Минута, 30) КАК Часы,

// Час

ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2999, 1, 1, 0, 0, 0), ЧАС, ЧАС(СтатусыУслуг.ЗапланированноеВремя)) КАК Часы

// Месяц

ДобавитьКДате(ДатаВремя(2002, 10, 12, 10, 15, 34), "Месяц", 1)

Рабочий код:

Код 1C v 8.2 УП

 Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ИсточникиRSS.Ссылка КАК Ссылка

	|ИЗ

	|	Справочник.ИсточникиRSS КАК ИсточникиRSS

	|ГДЕ

	|	ИсточникиRSS.Использовать

	|	И ДОБАВИТЬКДАТЕ(ИсточникиRSS.ДатаПоследнегоОбновления, СЕКУНДА, ИсточникиRSS.ПериодОбновленияВСекундах) <ТекДата"; 	

	Запрос.УстановитьПараметр("ТекДата", ТекущаяДата());

	РезультатЗапроса = Запрос.Выполнить();

	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

	

	КонецЦикла;

Категория: Запросы

10060 (0x0000274C): Попытка установить соединение была безуспешной

Установили новый терминальный сервер, на нем подняли 1С, терминальные пользователе неописуемо довольны, все просто летает

И вот же надо было такому случиться, главному бухгалтеру не понравилось работать через терминал, а еще у нее свой ноутбук и т.д.... вообще нужно прямое подключение с ноутбука к базе на сервере. Дело не хитрое, ставим клиента, подключаем базу и получаем ошибку следующего содержания:

server_addr=tcp://192.168.1.123:1541 descr=192.168.1.123:1541:10060(0x0000274C): Попытка установить соединение была безуспешной, т.к. от другого компьютера за требуемое время не получен нужный отклик, или было разорвано уже установленное соединение из-за неверного отклика уже подключенного компьютера. ; line=842 file=src\DataExchangeTcpClientlmpl.cpp
Выполняется ожидание возможности запуска.
При появлении возможности, запуск будет выполнен автоматически.

Полный скрин:

Решение:

Первое что приходит на ум, отключить антивирус и брандмауэр на сервере:

И тут же 1С запускается! Итог - нужно добавить правила для 1С в антивирус и брандмауэр.

Недавно я уже описывал решение проблемы: Ошибка сетевого доступа к серверу (Windows Sockets - 10060 (0x0000274C)) в нем пришлось еще прописать IР-шник сервера в файле C:\WINDOWS\system32\drivers\etc\hosts и еще в C:\Program Files\1cv8\bin\conf\nethasp.ini в описании [NH_TCPIP] в строке NH_SERVER_ADDR = IР-шник вашего сервера - Возможно Вам это тоже понадобится

Категория: Администрирование

Ошибка сетевого доступа к серверу (Windows Sockets - 10060 (0x0000274C)) Категория: Администрирование

Особенности работы с хранилищем конфигурации Категория: Администрирование

Полезные сведения о языке запросов 1С 8.х Категория: Запросы

Реализация алгоритмов «FIFO» и «LIFO»

Для реализации алгоритмов «FIFO» и «LIFO» (FIFO (первый пришел – первый ушел), LIFO (последний пришел – первый ушел)) необходимо добавить на счет учета ТМЦ субконто «Партии». Тогда определяется текущая стоимость товара и текущий остаток первой (последней) партии товара. Их отношение дает нам цену партии товара. Если остаток по партии товара меньше, чем реализуется, тогда выбираем следующую партию товаров и так далее.

Код 1C v 7.x

 	БИ=СоздатьОбъект("БухгалтерскиеИтоги");

БИ.ИспользоватьСубконто("ЦенныеБумаги",ЦБ,2);

БИ.ИспользоватьСубконто("ПартииЦБ");

БИ.ВыполнитьЗапрос(,ТекущийДокумент(),"58.6"); 



Если Константа.МетодОпределенияСебестоимости =   Перечисление.МетодыОпределенияСебестоимости.ФИФО Тогда

	БИ.ВыбратьСубконто(2,,,,,,0);

Иначе

	БИ.ВыбратьСубконто(2,,,,,,1);

КонецЕсли; 



Кол=Количество; 

Пока БИ.ПолучитьСубконто(2)=1 Цикл

	Сум=БИ.СКД(1);

	Ост=БИ.СКД(3);

	Если Ост<=Кол Тогда

		// списываем весь остаток по партии

		СумСпис=Сум;

		КолСпис=Ост; 

	ИначеЕсли Ост>Кол Тогда 

		// списываем требуемое количество 

		ЦенаСпис=Сум/Ост;

		КолСпис=Кол;

		СумСпис=Окр(КолСпис*ЦенаСпис,2); 

	Иначе     

		Продолжить;

	КонецЕсли;  



	Операция.НоваяПроводка();

	Операция.Дебет.Счет=Сч91_2;

	Операция.Кредит.Счет=Сч58_6;

	Операция.Кредит.ЦенныеБумаги=ЦБ;

	Операция.Кредит.ПартииЦБ=БИ.Субконто(2);  

	Операция.Сумма=СумСпис;

	Операция.Количество=КолСпис; 

	Кол=Кол-КолСпис; 

	Если Кол=0 Тогда

		Прервать;

	КонецЕсли;

КонецЦикла;



Если Кол>0 Тогда

	Сообщить("Остаток меньше нуля");

	НеПроводитьДокумент();

КонецЕсли;

Категория: Полезные, Универсальные Функции