|
Как решить "Условия" | ☑ | ||
---|---|---|---|---|
0
Kamich
28.03.13
✎
17:58
|
В общем в форме Обработки имеется 10 реквизитов с "Наименование" по "Наименование9",также количество(столько же), цена (Столько же) Сумма(столько же).
Так же есть кнопка Добавить. Вопрос: Не могу решить проблему с условиями. К примеру если Количество4, Количесвто3,Количество6 заполнены то создается новый документ и в тЧ Нового документа вписывается наименование,цена,количество,сумма, а после происходит проведение документа,и движение в регистрынакопления. Пишу вот такую процедуру на одно условие: Пожалуйста подкорректируйте если что не так: Процедура Кнопка1Нажатие(Элемент) Док=Документы.ОказаниеУслуги.СоздатьДокумент(); Док.Дата=ТекущаяДата(); Если Количество>0 Тогда Строки=Док.Товар.Добавить(); Строки.Наименование=Наименование; Строки.Цена=Цена; Строки.Сумма=Сумма; Строки.Количество=Количество; КонецЕсли; Док.Проведен=Истина; Движения=Док.Движения.ОстаткиМатериалов.Добавить(); Движения.ВидДвижения=ВидДвиженияНакопления.Расход; Движения.Период=Док.Дата; Для Каждого Строка Из Док.ЭтотОбъект.Товар Цикл Движения.Наименование=Строка.Наименование; Движения.Количество=Строка.Количество; КонецЦикла; Док.Проведен=Истина; Док.Записать(); КонецПроцедуры |
|||
1
samozvanec
28.03.13
✎
17:59
|
(0) люблю твои темы
|
|||
2
Kamich
28.03.13
✎
17:59
|
(1) ))
|
|||
3
palpetrovich
28.03.13
✎
18:00
|
(0) до табличных частей еще не дошел что-ли?
|
|||
4
Kamich
28.03.13
✎
18:00
|
(3) ?
|
|||
5
samozvanec
28.03.13
✎
18:01
|
сразу в документе делать не предлагать?
|
|||
6
drcrasher
28.03.13
✎
18:01
|
теперь понятно, откуда у v8: Защита от просмотра кода ноги растут =)
|
|||
7
Kamich
28.03.13
✎
18:02
|
(5) да
|
|||
8
palpetrovich
28.03.13
✎
18:02
|
(4) в смысле "имеется 10 реквизитов с "Наименование" совсем не то что ниже в коде
научись хотя-бы вопрос формулировать что-ли |
|||
9
ПиН
28.03.13
✎
18:03
|
сразу чувствуется, что человек работает в франчайзи на крупном проекте...
|
|||
10
Kamich
28.03.13
✎
18:04
|
Вернее будет так, но это на одно условие:
Процедура Кнопка1Нажатие(Элемент) Док=Документы.ОказаниеУслуги.СоздатьДокумент(); Док.Дата=ТекущаяДата(); Если Количество>0 Тогда Строки=Док.Товар.Добавить(); Строки.Наименование=Наименование; Строки.Цена=Цена; Строки.Сумма=Сумма; Строки.Количество=Количество; Док.Проведен=Истина; Движения=Док.Движения.ОстаткиМатериалов.Добавить(); Движения.ВидДвижения=ВидДвиженияНакопления.Расход; Движения.Период=Док.Дата; Для Каждого Строка Из Док.ЭтотОбъект.Товар Цикл Движения.Наименование=Строка.Наименование; Движения.Количество=Строка.Количество; КонецЦикла; Док.Проведен=Истина; Док.Записать(); КонецЕсли; КонецПроцедуры |
|||
11
palpetrovich
28.03.13
✎
18:04
|
(0) сделай в своей обработке табличную часть - точную копию той, что в нужном тебе документе
сильно обдегчит заполение |
|||
12
samozvanec
28.03.13
✎
18:05
|
(7) в таком случае, единственное, что могу предложить - базовый курс Гилева.
|
|||
13
Kamich
28.03.13
✎
18:05
|
(11) Скрытую ТЧ?,Тоже вариант...черт)
|
|||
14
samozvanec
28.03.13
✎
18:05
|
+(12) могу еще научить с помощью мыла и веревки петлю делать грамотно, чтоб переделывать не пришлось
|
|||
15
Kamich
28.03.13
✎
18:06
|
(11) Спасибо)
|
|||
16
palpetrovich
28.03.13
✎
18:07
|
(13) вот-жешь какой скрытный ...зачем скрытную-то?
|
|||
17
Kamich
28.03.13
✎
18:09
|
(16) Ну ясно))) Ладно спасибо )))
Спасибо за пониманию) Мне еще столько "морей открывать)))") |
|||
18
Птица
28.03.13
✎
18:24
|
кажется, поняла. Автор хочет перебирать пронумерованные реквизиты формы как коллекцию.
В принципе, в восьмерке это возможно: типа так: Для Сч = 1 По 2 Цикл Сообщить(ЭтаФорма["Вася"+Формат(Сч,"ЧГ=")]); КонецЦикла; Но вообще это кривой путь: если подразумевается, что данные на форме в итоге попадут в одну ТЧ, зачем размножать переменные? не проще ли и на форме сделать ТабличноеПоле, как советует (11) |
|||
19
hhhh
28.03.13
✎
19:52
|
(18) ну это логично. Например семерочники, когда переходят на 8, формы рисуют как в 7.7. А автор - спец по экселю. Вот он и фигачит форму в виде таблицы эксель, с 30-ю колонками.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |