Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
21 Май 2019, 01:26
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Помогите создать справочник для сим карт  (Прочитано 215 раз)

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

Оффлайн Влад Триханов

  • *
  • Сообщений: 1
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2018-11-21
  • Сайт: 
1) Создал 2 справочника (Симкарт и СостоянияСимкарт) (рисунок 1)
2) нужно объединить в одну форму элемента (рисунок 2)
3) на рисунке 1 где таблица и ... при нажатие вводим ФИО,долг ,и выбор даты.
4) при нажатие любой строки - можно было ее изменить и так же удалить полностью
5) код модуля справочник симкарт
 
              //==============================================================================
Процедура ПриОткрытии()
симСостояние.Очистить();
симСостояние.НоваяКолонка("ДатаОперации",,,,"Дата операции",9);
симСостояние.НоваяКолонка("ДатаВыдачи",,,,"Дата Выдачи",20);
симСостояние.НоваяКолонка("Владелец",,,,"Владелец",20);
симСостояние.НоваяКолонка("Долг",,,,"Долг",20);
с = СоздатьОбъект("Справочник.СостоянияСимкарт");
с.ИспользоватьВладельца(ТекущийЭлемент());
с.ВыбратьЭлементы();
Пока с.ПолучитьЭлемент()=1 Цикл
Если с.ПометкаУдаления()=1 Тогда
Продолжить;
КонецЕсли;
тзВнести(симСостояние,"ДатаОперации",с.ДатаОперации,"ДатаВыдачи",СокрЛП(с.ДатаВыдачи),"Владелец",СокрЛП(с.Владелец),"Долг",СокрЛП(с.Долг),);
КонецЦикла;

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

КонецПроцедуры
//==============================================================================
Процедура Удалить()

Если симСостояние.ТекущаяСтрока()>0 Тогда
текДата = симСостояние.ПолучитьЗначение(симСостояние.ТекущаяСтрока(),"ДатаОперации");
текСостояние = СокрЛП(симСостояние.ПолучитьЗначение(симСостояние.ТекущаяСтрока(),"Состояние"));
с = СоздатьОбъект("Справочник.СостояниеСимкарт");
с.ИспользоватьВладельца(ТекущийЭлемент());
с.ВыбратьЭлементы();
Пока с.ПолучитьЭлемент()=1 Цикл
Если (с.ДатаОперации = текДата) и (СокрЛП(с.Состояние)=текСостояние) Тогда
Попытка
с.Удалить(0);
симСостояние.УдалитьСтроку(симСостояние.ТекущаяСтрока());
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Прервать;
КонецЕсли;
КонецЦикла;
Иначе
Предупреждение("Выделете строку, которую нужно удалить!");
КонецЕсли;

КонецПроцедуры
//==============================================================================
Процедура ПриКликеПоСтроке()
Если симСостояние.ТекущаяСтрока()>0 Тогда
стр = СокрЛП(симСостояние.ПолучитьЗначение(симСостояние.ТекущаяСтрока(),"Состояние"));
текДата = симСостояние.ПолучитьЗначение(симСостояние.ТекущаяСтрока(),"ДатаОперации");
старСтр = стр;
Если ВвестиСтроку(стр,"Отредактируйте инфомацию по состоянию кпк",600) = 1 Тогда
с = СоздатьОбъект("Справочник.СостояниеСимкарт");
с.ИспользоватьВладельца(ТекущийЭлемент());
с.ВыбратьЭлементы();
Пока с.ПолучитьЭлемент()=1 Цикл
Если (с.ДатаОперации = текДата) и (СокрЛП(с.Состояние)=старСтр) Тогда
Попытка
с.Состояние = стр;
с.Записать();
симСостояние.УстановитьЗначение(симСостояние.ТекущаяСтрока(),"Состояние",СокрЛП(стр));
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
//==============================================================================
помогите кому не сложно , где я сделал не так и не доработал


 


* Живое общение

Не устроил ответ?

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


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Топ 10 авторов за месяц

AIFrame AIFrame
31 Сообщений
alexandr_ll
29 Сообщений
wise wise
29 Сообщений
Геннадий ОбьГЭС Геннадий ОбьГЭС
27 Сообщений
DmitriyF DmitriyF
13 Сообщений
vova-1c@xaker.ru
11 Сообщений
Мария112689
9 Сообщений
kiksi
8 Сообщений
Eugeneer Eugeneer
8 Сообщений
Yamuna
8 Сообщений

* Кто онлайн

  • Точка Гостей: 97
  • Точка Скрытых: 0
  • Точка Пользователей: 1
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal