ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Присвоить значение переменной
17 сообщений из 17, страница 1 из 1
Присвоить значение переменной
    #36615296
windym
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
windym
Участник
Я понимаю вопрос глупый, но что-то понять не могу как сделать правильно
Пишу внешнюю обработку, при ее выполнении пользователь должен в открывшейся форме выбрать номер счета, который присвоится переменной СчетУчетаБУ.
Как из открывшейся формы присвоить переменной выбранный счет?
...
Рейтинг: 0 / 0
06.05.2010, 14:45
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615316
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
ВвестиЗначение (InputValue)
Глобальный контекст
ВвестиЗначение (InputValue)
Синтаксис:
ВвестиЗначение(<Значение>, <Подсказка>, <Тип>) 
Параметры:
<Значение> (обязательный)
Тип: Произвольный. Имя доступной в модуле переменной. В эту переменную будет помещено введенное значение. Если параметр <Тип> не задан или имеет значение Неопределено, тип данной переменной используется в качестве типа вводимого в диалоге данного. Начальное значение переменной будет использовано в качестве начального значения в диалоге. 
<Подсказка> (необязательный)
Тип: Строка. Текст заголовка окна диалога ввода значения. Может использоваться в качестве подсказки пользователю.
Значение по умолчанию: Пустая строка 
<Тип> (необязательный)
Тип: Тип, ОписаниеТипов. Тип вводимого значения. Если параметр не указан, используется тип параметра <Значение>. 
Возвращаемое значение:
Тип: Булево. Истина - в диалоге было введено значение; Ложь - пользователь отказался от ввода значения. 
Описание:
Вызывает диалог для ввода значения заданного типа. Если тип переменной не определен и <Тип> представляет собой составной тип данных, то в поле ввода появляется кнопка выбора типа.
Недоступен на сервере 1С:Предприятие. Не используется в модуле внешнего соединения. 
Пример:
Перем ВыбЗнач;
Массив = Новый Массив;
Массив.Добавить(Тип("Число"));
Массив.Добавить(Тип("Строка"));
Массив.Добавить(Тип("Дата"));
КЧ = Новый КвалификаторыЧисла( 12 , 2 );
КС = Новый КвалификаторыСтроки( 20 );
КД = Новый КвалификаторыДаты(ЧастиДаты.Дата);
ОписаниеТипов = Новый ОписаниеТипов(Массив, КЧ, КС, КД);
Если ВвестиЗначение(ВыбЗнач, "Введите значение", ОписаниеТипов) Тогда
    // обработка введенного значения
    Сообщить("Введенное значение: "+ВыбЗнач);
КонецЕсли;
...
Рейтинг: 0 / 0
06.05.2010, 14:51
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615339
windym
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
windym
Участник
Субк1=ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура;
Субк2=ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады;
Запрос = Новый Запрос();
Запрос.УстановитьПараметр("Субк1", Субк1);
Запрос.УстановитьПараметр("Субк2", Субк2);
Запрос.Текст ="ВЫБРАТЬ
|Хозрасчетный.Код
|ИЗ
|ПланСчетов.Хозрасчетный КАК Хозрасчетный
|ГДЕ
|Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк1
|И Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк2";

ТаблицаЗапроса=Запрос.Выполнить().Выгрузить();
СчетУчетаБУ = ......

Не присваивается переменная, как только не пробывал(
...
Рейтинг: 0 / 0
06.05.2010, 15:01
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615353
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
Код: plaintext
ВвестиЗначение(Счет, "Введите счет", ТипЗнч(ПланыСчетов.Хозрасчетный.Акции));

не надо чистить зубы если у вас прямые руки ...
удачи
...
Рейтинг: 0 / 0
06.05.2010, 15:09
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615363
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
если Вам нужно сузить список счетов ...
Спросите "Господина ПЖ" он знает как
...
Рейтинг: 0 / 0
06.05.2010, 15:14
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615373
KuzEv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KuzEv
Гость
Может это поможет (как идея):

1. РегистрБухгалтерии.Хозрасчетный.Остатки(, Счет = &ВыбСчет, , Субконто1 В (&ВыбНоменклатура))

2. ВЫБРАТЬ
ХозрасчетныйОстатки.Счет,
ПРЕДСТАВЛЕНИЕ(ХозрасчетныйОстатки.Счет),
ХозрасчетныйОстатки.Субконто1,
ПРЕДСТАВЛЕНИЕ(ХозрасчетныйОстатки.Субконто1),
ХозрасчетныйОстатки.КоличествоОстаток
ИЗ
РегистрБухгалтерии.Хозрасчетный.Остатки(, , , ) КАК ХозрасчетныйОстатки

Дальше обработать напильником.
...
Рейтинг: 0 / 0
06.05.2010, 15:18
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615374
KuzEv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KuzEv
Гость
http://programna1c.narod.ru/docs/Samples8/Buhuchet.html#155
...
Рейтинг: 0 / 0
06.05.2010, 15:19
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615378
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин ПЖ
Участник
windymСубк1=ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура;
Субк2=ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады;
Запрос = Новый Запрос();
Запрос.УстановитьПараметр("Субк1", Субк1);
Запрос.УстановитьПараметр("Субк2", Субк2);
Запрос.Текст ="ВЫБРАТЬ
|Хозрасчетный.Код
|ИЗ
|ПланСчетов.Хозрасчетный КАК Хозрасчетный
|ГДЕ
|Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк1
|И Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк2";


я наивно думал что все видел уже...
...
Рейтинг: 0 / 0
06.05.2010, 15:20
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615383
windym
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
windym
Участник
Дак у меня уже написанно, но в одном месте не могу понять как сделать(


Процедура Инициализировать(Объект, ИмяТабличнойЧасти, ТабличноеПоле) Экспорт;
Субк1=ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура;
Субк2=ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады;
Запрос = Новый Запрос();
Запрос.УстановитьПараметр("Субк1", Субк1);
Запрос.УстановитьПараметр("Субк2", Субк2);
Запрос.Текст ="ВЫБРАТЬ
|Хозрасчетный.Код
|ИЗ
|ПланСчетов.Хозрасчетный КАК Хозрасчетный
|ГДЕ
|Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк1
|И Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк2";

ТаблицаЗапроса=Запрос.Выполнить().Выгрузить();

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

СчетУчетаБУ =
////////
Запрос.УстановитьПараметр("Счет", СчетУчетаБУ);

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


СтрокаТабличнойЧасти = Объект[ИмяТабличнойЧасти].Добавить();
СтрокаТабличнойЧасти.Номенклатура = Выборка.Номенклатура;
СтрокаТабличнойЧасти.Количество = Выборка.Количество;
СтрокаТабличнойЧасти.СчетУчетаБУ = Выборка.Счет;
СтрокаТабличнойЧасти.КоличествоУчет = СтрокаТабличнойЧасти.Количество;

//СтрокаТабличнойЧасти.ЕдиницаИзмерения = Выборка.БазоваяЕдиницаИзмерения;
СтрокаТабличнойЧасти.Коэффициент = 1;
СтрокаТабличнойЧасти.КоличествоМест = СтрокаТабличнойЧасти.Количество;

Цена = ?(Выборка.КоличествоВсего = 0 ИЛИ Выборка.КоличествоВсего = NULL, 0, Выборка.СуммаВсего / Выборка.КоличествоВсего);

СтрокаТабличнойЧасти.СуммаУчет = Цена*Выборка.Количество;
СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.СуммаУчет;
СтрокаТабличнойЧасти.Цена = Цена;

КонецЦикла;
// Сообщить(СчетУчетаБУ);
КонецПроцедуры
...
Рейтинг: 0 / 0
06.05.2010, 15:22
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615385
KuzEv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KuzEv
Гость
Господин ПЖ,

=))))))))0
...
Рейтинг: 0 / 0
06.05.2010, 15:22
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615395
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин ПЖ
Участник
windym|ГДЕ
|Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк1
|И Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк2";

ТаблицаЗапроса=Запрос.Выполнить().Выгрузить();

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

СчетУчетаБУ =
////////



есть мнение что условие работать не будет... это все равно что спрашивать чтобы 3 было одновременно равно 3 и 5
...
Рейтинг: 0 / 0
06.05.2010, 15:25
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615409
windym
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
windym
Участник
Запрос работает
Проверенно в консоли запросов
...
Рейтинг: 0 / 0
06.05.2010, 15:27
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615420
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин ПЖ
Участник
ну и продолжая тему изврата:

Запрос = Новый Запрос();
Запрос.Текст ="ВЫБРАТЬ
|Хозрасчетный.Ссылка
|ИЗ
|ПланСчетов.Хозрасчетный КАК Хозрасчетный
...................

ТаблицаЗапроса=Запрос.Выполнить().Выгрузить();

Если ТаблицаЗапроса.Количество() = 0 Тогда
///ничо нету всем спасибо, все свободны

Возврат;

КонецЕсли;

СчетУчетаБУ = ТаблицаЗапроса[0].Ссылка;
...
Рейтинг: 0 / 0
06.05.2010, 15:29
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615422
windym
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
windym
Участник
И всетаки как СчетуУчетаБУ присвоить выбранное значение?
...
Рейтинг: 0 / 0
06.05.2010, 15:29
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615424
windym
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
windym
Участник
Спасибо, попробую
...
Рейтинг: 0 / 0
06.05.2010, 15:30
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615434
KuzEv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KuzEv
Гость
windymИ всетаки как СчетуУчетаБУ присвоить выбранное значение?

СчетУчетаБУ=ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.01")
...
Рейтинг: 0 / 0
06.05.2010, 15:32
| Ответить | Цитировать | Написать  
Присвоить значение переменной
    #36615436
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
Господин ПЖwindymСубк1=ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура;
Субк2=ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады;
Запрос = Новый Запрос();
Запрос.УстановитьПараметр("Субк1", Субк1);
Запрос.УстановитьПараметр("Субк2", Субк2);
Запрос.Текст ="ВЫБРАТЬ
|Хозрасчетный.Код
|ИЗ
|ПланСчетов.Хозрасчетный КАК Хозрасчетный
|ГДЕ
|Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк1
|И Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк2";


я наивно думал что все видел уже...

вспоминается фильм "Я остаюсь" ...
когда у проводника , которого играл Бондарчук не остается слов
и он знаками показывает соседу спросившего мол ...
тот начинает объяснять :
- на прошлой остановке я задал подобный вопрос ... и мне популярно объяснили
что в каждой компании найдется ...
ну вот теперь нас двое
...
Рейтинг: 0 / 0
06.05.2010, 15:32
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / Присвоить значение переменной
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=28&msg=36615378&tid=1522389]:
 0ms
get settings:
 11ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 169ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 70ms
get tp. blocked users:
 1ms
others: 243ms
total:  533ms
созд. / загр.: 533ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]