Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Документ.Табличная часть 
:(
    Опции темы
Tamerlan777
Дата 4.6.2008, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 31.1.2008

Репутация: нет
Всего: нет



У меня такой вопрос.

Я в табличную часть добавляю ФИО студентов...Как сделать так, что бы при повторном внесении той же фамилии у меня выскакивало предупреждение, что такая запись в Табличной части текущего документа уже есть !.
PM MAIL   Вверх
mmvds
Дата 4.6.2008, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: 2
Всего: 6



в обработчик события изменения у поля, куда вводишь фио написать что-то вроде:
Код

для каждого к из имя_табл_части цикл
если к.фио=поле_куда_вводишь_фио тогда 
   сообщить("ФИО: "+поле_куда_вводишь_фио+" уже существует, введите другое");
   поле_куда_вводишь_фио="";
   конецесли;  
конеццикла

PM MAIL ICQ   Вверх
Tamerlan777
Дата 4.6.2008, 18:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 31.1.2008

Репутация: нет
Всего: нет



что-то непонятно
=======================================
для каждого к из ТаблицаСостояния цикл
если к.ЗаявкаОт=поле_куда_вводишь_фиотогда 
   //сообщить("ФИО: "+поле_куда_вводишь_фио+" уже существует, введите другое");
  // ЗаявкаОт="";
  Сообщить("====");
  конецесли;  
   Сообщить(к.ЗаявкаОт);
конеццикла;

что такое поле_куда_вводишь_фио????? к.ЗаявкаОт перебирает все заявки это верно, 
а вот условие если неверно к.ЗаявкаОт=(и сдесь текущее нужно значение, а как его записать, если =к.ЗаявкаОТ, получиться дублирование)
PM MAIL   Вверх
mmvds
Дата 4.6.2008, 21:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: 2
Всего: 6



в твоем случае
Код

ст=элементыформы.ТаблицаСостояния.ТекущаяСтрока;
для каждого к из ТаблицаСостояния цикл
если к.ЗаявкаОт=ст.ЗаявкаОт тогда 
  Сообщить("====");
  конецесли;  
   Сообщить(к.ЗаявкаОт);
конеццикла;


Это сообщение отредактировал(а) mmvds - 4.6.2008, 21:10
PM MAIL ICQ   Вверх
Tamerlan777
Дата 4.6.2008, 23:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 31.1.2008

Репутация: нет
Всего: нет



ст=элементыформы.ТабличнаяЧасть.ТекущаяСтрока;
для каждого к из ТаблицаСостояния цикл
если к.ЗаявкаОт=ст.ЗаявкаОт тогда 
    
    Сообщить("Заявка "+ст.ЗаявкаОт+ст.ФИО+"уже существует, введите другое");
  конецесли;  
   
конеццикла;
=====================
так не прокатывает сообщает и Заявку которая в первый раз вносится. Я использую процедуру ПриИзменении.
PM MAIL   Вверх
mmvds
Дата 5.6.2008, 00:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: 2
Всего: 6



Код

ст=элементыформы.ТабличнаяЧасть.ТекущаяСтрока;
флаг=0;
для каждого к из ТаблицаСостояния цикл
если к.ЗаявкаОт=ст.ЗаявкаОт тогда 
    флаг=флаг+1;
    если флаг>1 тогда 
       Сообщить("Заявка "+ст.ЗаявкаОт+ст.ФИО+"уже существует, введите другое");
    конецесли;   
  конецесли;  
конеццикла;


отредактировал

Это сообщение отредактировал(а) mmvds - 5.6.2008, 15:19
PM MAIL ICQ   Вверх
koloboc74
Дата 23.12.2008, 06:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 23.12.2008

Репутация: нет
Всего: нет



Сделай кнопку подбор

вод код

Процедура ОбработкаПодбора(Элемент,КонтФормы)

    Если ПустоеЗначение(Элемент)=0 Тогда
        
    //    КонецЕсли;
            Если Элемент <> Элемент.ОсновнойЭлемент Тогда 
                Элемент = Элемент.ОсновнойЭлемент
            КонецЕсли;
            Если глНайтиСотрудникаВТаблицеДокумента(Контекст,Элемент,1)=0 Тогда
                    НоваяСтрока();
                    Сотрудник = Элемент;
                    подр = Сотрудник.Подразделение.Получить(ДатаДок);
                    
                КонецЕсли;
    КонецЕсли;

КонецПроцедуры    // ОбработкаПодбора  

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »


 




[ Время генерации скрипта: 0.0673 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.