Как проверить на целое число в 1С 8 8.2 8.3?

Как проверить на целое число в 1С 8 8.2 8.3?

&НаСервере
Функция ПроверитьЧислоНаЦелое(ПроверяемоеЧисло)	
	  Возврат ПроверяемоеЧисло = Цел(ПроверяемоеЧисло);
КонецФункции

Для «Обычных форм»

Функция ПроверитьЧислоНаЦелое(ПроверяемоеЧисло)	
	  Возврат ПроверяемоеЧисло = Цел(ПроверяемоеЧисло);
КонецФункции

Применение функции на практике:

&НаКлиенте
Процедура ПроверкаЦеныНацелое();
	Для Каждого СтрокаТЧ Из Объект.ТЧ Цикл
		Если ПроверитьЧислоНаЦелое(СтрокаТЧ.Цена) <> Истина Тогда
			Сообщить("Обнаружена не точная цена: " + СтрокаТЧ.Номенклатура + " Цена: "+ СтрокаТЧ.Цена);
		КонецЕсли;
	КонецЦикла
КонецПроцедуры

&НаСервере
Функция ПроверитьЧислоНаЦелое(ПроверяемоеЧисло)	
	Возврат ПроверяемоеЧисло = Цел(ПроверяемоеЧисло);
КонецФункции   


&НаКлиенте
Процедура ПриОткрытии(Отказ)
	ПроверкаЦеныНацелое();
КонецПроцедуры

Пример того как работает функция проверки на целое число в 1С Предприятии:

Можете скачать *dt файл >>

Откройте документ «Поступление товаров и услуг»

Затем откройте документ №2.

Как результат проверки числа на целое (на точную цену в табличной части документа) будет сообщение:

Если Вы хотите больше узнать о программировании в 1С, тогда регистрируйтесь на курс: 1С 8.3 Старт >>>