Предупреждение

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3 8.3.14 Внешний отчет (ert,erf) Внешняя обработка (ert,epf) Расширение (cfe)

1. user1809279 08.10.24 13:11 Сейчас в теме

Здравствуйте, стоит задача, нужно при запуске программы высвечивать сообщения, если текущие условия истины в модуле приложения. Вот сам код

&НаСервере
Функция Расш1_РаботыСистемы(НДС)
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	УчетнаяПолитикаНалоговыйУчетСрезПоследних.ОрганизацияЯвляетсяПлательщикомНДС КАК НДС
		|ИЗ
		|	РегистрСведений.УчетнаяПолитикаНалоговыйУчет.СрезПоследних КАК УчетнаяПолитикаНалоговыйУчетСрезПоследних
		|ГДЕ
		|	УчетнаяПолитикаНалоговыйУчетСрезПоследних.ОрганизацияЯвляетсяПлательщикомНДС = &ОрганизацияЯвляетсяПлательщикомНДС";
	
	Запрос.УстановитьПараметр("ОрганизацияЯвляетсяПлательщикомНДС", НДС);
	
	Выборка = Запрос.Выполнить().Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
		Возврат Выборка.НДС;
		
	КонецЦикла; 
	
	
КонецФункции    

&После("ПриНачалеРаботыСистемы")
Процедура Расш1_ПриНачалеРаботыСистемы()
	
	НДС = Расш1_РаботыСистемы();
	
КонецПроцедуры

Показать

Как можно эту функцию вызвать с сервера на клиенте?

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. nomad_irk 80 08.10.24 13:14 Сейчас в теме

(1) никак

3. Bukaska 140 08.10.24 22:53 Сейчас в теме

(1) Если я правильно понимаю, в расширениях вызываемая процедура должна быть в одном пространстве с вашим контекстом, либо Сервер, либо Клиент

4. vadim1011985 102 09.10.24 00:22 Сейчас в теме

(1) Во-первых Ваш код не рабочий ,
Во-вторых какую задачу пытаетесь решить (не касаемо выводы предупреждения) ? Может ошибаюсь , но вроде вы хотите установить ставку НДС по умолчанию ? Если конфигурация БП то это делается стандартными методами без программирования

5. user1809279 09.10.24 06:59 Сейчас в теме

(4) Нет ошибаетесь, я хочу поставить условие по регистру сведений. Если в учете не стоит плательщик ндс выводить предупреждение пользователю при входе

6. nomad_irk 80 09.10.24 07:10 Сейчас в теме

(5) у вас учетная политика по НДС меняется спонтанно, любым пользователем?

Кому и что вы собираетесь высвечивать на сервере?

7. user1809279 09.10.24 07:37 Сейчас в теме

(6) Да верно, с сервера хотела запросом получить это значение чтоб передать на клиент. Делаю код в модуле приложения

8. nomad_irk 80 09.10.24 07:46 Сейчас в теме

(7) не помню тонкостей, но если сделать функцию экспортной

&НаСервере
Функция Расш1_РаботыСистемы(НДС) Экспорт

то ее можно хоть откуда вызывать, хоть из формы, хоть из модуля объекта, хоть из общего модуля

9. user1809279 09.10.24 07:58 Сейчас в теме

(8) Да пробовала уже но все равно

Процедура или функция с указанным именем не определена (КакПолучитьНаиболееПоздниеЗаписиРегистраСведенийНаСервере)
Если <<?>>КакПолучитьНаиболееПоздниеЗаписиРегистраСведенийНаСервере() Тогда (Проверка: Тонкий клиент)

10. nomad_irk 80 09.10.24 08:10 Сейчас в теме

(9) значит функцию необходимо разместить в общем модуле с возможностью вызова сервера

11. user1809279 09.10.24 08:18 Сейчас в теме

(10) Так же делала, все равно не видит эту функцию

12. nomad_irk 80 09.10.24 08:28 Сейчас в теме

(11) Значит, что-то не правильно делали.

Прикрепленные файлы:

13. user1809279 09.10.24 08:42 Сейчас в теме

Да вот получилось

&После("ПриНачалеРаботыСистемы")
Процедура Расш1_ПриНачалеРаботыСистемы()

перемНазваниеОкна = "Это наше окно";

Если ОбщегоНазначенияМодуль.КакПолучитьНаиболееПоздниеЗаписиРегистраСведенийНаСервере(ЛОЖЬ) Тогда

Предупреждение("Вывели текст предупреждения",,перемНазваниеОкна);

КонецЕсли;

КонецПроцедуры

Теперь немного с этим проблема, посмотрела по точке остановки что возвращает с функции ложь, а как теперь тут обратиться не понимаю

14. nomad_irk 80 09.10.24 08:58 Сейчас в теме

(13) не совсем понятно, к чему вы хотите обратиться?

15. user1880116 09.10.24 13:29 Сейчас в теме

Впечатление, что кто-то тренирует нейросеть.

16. user2107184 09.10.24 13:56 Сейчас в теме

(15) Думаешь, Миша и Маша - однолицо?

Оставьте свое сообщение

E-mail: