Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 02:52

Среда. Вопрос 7

Автор mixqn, 13 мар 2013, 00:49

0 Пользователей и 1 гость просматривают эту тему.

techh

Скачать ОбработкаДляForum1C.epf с WebFile.RU

&НаКлиенте
Функция РазложитьСтрокуПосимвольно(Стр)

Список = Новый СписокЗначений;

ДлинаСтроки = СтрДлина(Стр);
Для К = 1 По ДлинаСтроки Цикл
ТекСимвол = Сред(Стр, К, 1);
Список.Добавить(ТекСимвол);
КонецЦикла;

Возврат Список;

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

&НаКлиенте
Функция СобратьСтрокуИзСимволов(Список)

Стр = "";

ДлинаСписка = Список.Количество();
Для К = 0 По ДлинаСписка - 1 Цикл
//ТекЦифра = Список[ДлинаСписка-К-1];
ТекЦифра = Список[К];
Стр = Стр + ТекЦифра;
КонецЦикла;

Возврат Стр;

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

&НаКлиенте
Процедура НайтиОшибку(Команда)

// проверим, возможно, бухгалтер обсчитался, и сумма слагаемых совпадает с подотчётной
СуммаСлагаемых = Объект.Слагаемые.Итог("Слагаемое");
Если СуммаСлагаемых = Объект.СуммаОтчета Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Ошибка отсутсвует."; 
Сообщение.Сообщить();
Возврат;
КонецЕсли;

НашлиОшибку = Ложь;
ТекСтрока = 0;
Для Каждого ТекСтр Из Объект.Слагаемые Цикл
ТекСтрока = ТекСтрока + 1;

ТекСлагаемое = ТекСтр.Слагаемое;
СуммаБезТекущегоСлагаемого = СуммаСлагаемых - ТекСлагаемое;

СтрСлагаемое = Строка(ТекСлагаемое);
СтрСлагаемое = СтрЗаменить(СтрСлагаемое, Символы.НПП, "");

ДлинаСлагаемого = СтрДлина(СтрСлагаемое);
Если ДлинаСлагаемого > 1 Тогда   // цифры слагаемого можно переставлять, если в слагаемом их хотя бы две
Цифры = РазложитьСтрокуПосимвольно(СтрСлагаемое);

Для К = 0 По ДлинаСлагаемого-2 Цикл
Инд = ДлинаСлагаемого-1-К;

Цифра = Цифры[Инд].Значение;
Если (Цифра = "0") И (К = ДлинаСлагаемого - 2) Тогда
Продолжить;
КонецЕсли;

НовЦифры = Цифры.Скопировать();
НовЦифры.Сдвинуть(Инд, -1);

СтрНовСлагаемое = СобратьСтрокуИзСимволов(НовЦифры);

НовСлагаемое = Число(СтрНовСлагаемое);
НовСумма = СуммаБезТекущегоСлагаемого + НовСлагаемое;
Если НовСумма = Объект.СуммаОтчета Тогда
НашлиОшибку = Истина;
Прервать;
КонецЕсли;
КонецЦикла;

КонецЕсли;

Если НашлиОшибку Тогда
Прервать;
КонецЕсли;
КонецЦикла;

Сообщение = Новый СообщениеПользователю;
Если НашлиОшибку Тогда
Сообщение.Текст = "Ошибка находится в строке " + ТекСтрока + ". Правильное значение: " + НовСлагаемое;
Иначе
Сообщение.Текст = "Ошибка не найдена."
КонецЕсли;
Сообщение.Сообщить();

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

Alex_k


michael2k

Вот, в формате 8.2 в режиме обычного приложения.

Alex_k


Санчес

Файл обработки во вложении.
Версия платформы: 8.2

Evga

прикрепляю обработку

iPach89

Конечно на коленке сделанная, но чтото :)
http://rusfolder.com/35447573

2547868 организаций России на прогрессивном портале Holm.ru!

Полезная и самая актуальная информация о 2547868 компаниях и организациях в России для вас.

НАШИ ПАРТНЕРЫ Рейтинг инструкций по эксплуатации emanuals.org, полный каталог самых актуальных руководств для всех устройств. Онлайн маркет BizTop.ru - актуальные товары и услуги по лучшим ценам

ВЛАДЕЛЬЦАМ И МЕНЕДЖЕРАМ ОРГАНИЗАЦИЙ Вы можете получить новых клиентов, звонки, дополнительный интерес к вашей компании, сформировать отличную репутацию, а также разместить ссылки на свои ресурсы (официальный сайт, страницы в социальных сетях) совершенно бесплатно, присоединяйтесь сегодня же к прогрессивному порталу Holm.ru! Дополнительный канал общения с вашими потенциальными клиентами ждёт вас, всего несколько кликов, и вы полноценный участник прогрессивного портала.

ВСЕМ И КАЖДОМУ Непредвзятые отзывы пользователей портала о ресторанах, гостиницах, магазинах и любых других организациях, позволят вам правильно сделать выбор в пользу того или иного поставщика товаров или услуг. На прогрессивном портале вы можете высказать благодарность любому работнику, специалисту, менеджеру, с которым вам было приятно иметь дело, или наоборот - написать претензию, жалобу, которая позволит владельцам бизнеса получить информацию напрямую от клиентов и улучшить свой сервис.

РЕКЛАМОДАТЕЛЯМ Holm.ru - это выгодно, так как гибкие условия позволяют получить лучшие и актуальные места за разумные деньги; Holm.ru - это просто, так как все сделают за вас, подобрав тематики и разделы для размещения; Holm.ru - это эффективно, так как тысячи ежедневных посетителей в нужной или интересной именно вам теме увидят вашу рекламу, а значит наши посетители это уже почти ваши клиенты.

МАРКЕТОЛОГАМ Площадка для рекламы и развития бизнеса, получения обратной связи и проверки стратегий, многогранный функциональный инструмент для продаж и мониторинга реакции как обычных пользователей, так и организаций. Также возможность разместить товар и получить на него отзыв от разных категорий граждан. Holm.ru - это вершина на которой ваш товар или услуги увидят тысячи!


Получить новых клиентов


mzelensky

Обработка во вложении. Платформа 8.2.16.362

Evgeny

http://yadi.sk/d/sqXJkekM3FsBL   обработка лежит на яндекс диске
О_о Кто здесь?

AAlexandra

8.2, Управляемые формы.

Теги:
Рейтинг@Mail.ru

Поиск