Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / Присвоить значение переменной / 17 сообщений из 17, страница 1 из 1
06.05.2010, 14:45
    #36615296
windym
windym
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить значение переменной
Я понимаю вопрос глупый, но что-то понять не могу как сделать правильно
Пишу внешнюю обработку, при ее выполнении пользователь должен в открывшейся форме выбрать номер счета, который присвоится переменной СчетУчетаБУ.
Как из открывшейся формы присвоить переменной выбранный счет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 14:51
    #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, 15:01
    #36615339
windym
windym
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить значение переменной
Субк1=ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура;
Субк2=ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады;
Запрос = Новый Запрос();
Запрос.УстановитьПараметр("Субк1", Субк1);
Запрос.УстановитьПараметр("Субк2", Субк2);
Запрос.Текст ="ВЫБРАТЬ
|Хозрасчетный.Код
|ИЗ
|ПланСчетов.Хозрасчетный КАК Хозрасчетный
|ГДЕ
|Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк1
|И Хозрасчетный.ВидыСубконто.ВидСубконто.Ссылка = &Субк2";

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

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

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

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

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

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


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

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

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

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



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

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

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

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

Возврат;

КонецЕсли;

СчетУчетаБУ = ТаблицаЗапроса[0].Ссылка;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 15:29
    #36615422
windym
windym
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить значение переменной
И всетаки как СчетуУчетаБУ присвоить выбранное значение?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 15:30
    #36615424
windym
windym
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоить значение переменной
Спасибо, попробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2010, 15:32
    #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
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / Присвоить значение переменной / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 513ms
Закрыть
start [/forum/topic.php?fid=28&mobile=1&tid=1522389]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 171ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 246ms
total:  513ms
x
x
Закрыть


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