Условие по счету

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

Конфигурации 1cv8 Платформа 1С v8.3 Внешний отчет (ert,erf) Внешняя обработка (ert,epf)

1. user1809279 11.10.24 14:13 Сейчас в теме

&После("ПриНачалеРаботыСистемы")
Процедура Расш1_ПриНачалеРаботыСистемы()
	
	перемНазваниеОкна = "Это наше окно";  
	
	
	ОрганизацияЯвляетсяПлательщикомНДС = ОбщегоНазначенияМодуль.КакПолучитьНаиболееПоздниеЗаписиРегистраСведенийНаСервере(Неопределено);
	СуммаКонечныйОстатокКт = ОбщегоНазначенияМодуль.СчетУчета6010("10 615 056");
	
	Если ОбщегоНазначенияМодуль.КакПолучитьНаиболееПоздниеЗаписиРегистраСведенийНаСервере(Неопределено) = ЛОЖЬ И ОбщегоНазначенияМодуль.СчетУчета6010("10 615 056") Тогда
		
		Предупреждение("Вывели текст предупреждения",,перемНазваниеОкна);	 
		
	КонецЕсли;
	
КонецПроцедуры


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


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

КонецФункции

Показать

Стоит задача чтоб при условии если организация не является плательщиком НДС и сумма конечного остатка кт по счету равно такому то значению выводить оповещение. С числовым значением по остатку не понимаю как указать правильно

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

Ответы

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

Свернуть все

2. user1809279 11.10.24 14:13 Сейчас в теме

1. В модуле приложения
2. 2 кусочка кода в общем модуле

3. Vladimir-R 168 11.10.24 17:15 Сейчас в теме

(1) ОбщегоНазначенияМодуль.СчетУчета6010("10 615 056") возвращает значение Возврат ВыборкаДетальныеЗаписи.СуммаКонечныйОстатокКт которое тебе и надо сравнить с твоим значением. Где ты сравниваешь? и для чего передается параметр в эту функцию, который дальше нигде не участвует?

4. user1809279 12.10.24 18:56 Сейчас в теме

(3) Хочу сравнивать это значение со значением, что возвращается

5. пользователь 12.10.24 20:32

Сообщение было скрыто модератором.

...

6. starjevschik 12.10.24 20:35 Сейчас в теме

(4)

Хочу сравнивать это значение со значением, что возвращается

Если Значение = ЗначениеЧтоВозвращается Тогда
блаблабла
Иначе
блублублу
КонецЕсли;

Хочешь - сравнивай. Общий принцип любого действия...

7. user1809279 13.10.24 18:55 Сейчас в теме

(6) Да пробовала так тоже, но почему то не работает

Если ОбщегоНазначенияМодуль.СчетУчета6010("11 615 200") = Значение Тогда

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

КонецЕсли;

Пробовала даже вот так

8. user2033930 13.10.24 19:49 Сейчас в теме

(7) Про отладчик не спрашивать?
Про Предупреждение на сервере еще рано спрашивать, видимо.

9. Bukaska 140 13.10.24 20:13 Сейчас в теме

(7) Почему у вас везде стоит условие ГДЕ?Вы базу хотите повесить? Или сервер мощный? или вы уверены, что выборка в вашем случае будет маленькая?

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

E-mail: