Здравствуйте. Очень нужна помощь знающих людей. У меня нестандартная конфигурация 1С7.7 Есть документ Заказ, в котором имеются числовые реквизиты. Условно Рек1, Рек2, Рек3
Так же имеется реквизит Приёмщик (справочник ФИО). Сейчас я создаю другой вид документа, в котором нужно при нажатии кнопки "Рассчитать" (Процедура Рассчитать()) за указанный в документе период по указанному Приёмщику заполнить из документа Заказ суммы по каждому из трёх реквизитов (Рек1, Рек2 и Рек3). Проблем с кодом в модуле не возникает, когда я эти цифры в поля документа (в диалоговом окне) ввожу руками (они нужны для дальнейших рассчётов документа. Пользуюсь универсальным отчётом, чтоб узнать эти цифры), но не понимаю, как правильно прописать код в самом документе, чтоб эти цифры (суммы) вытаскивались автоматически из нужных документов Заказ.

Ох, Иришка. Показывай код, который ты уже написала.

Пока есть это:

Процедура Рассчитать()
Док=Док.Заказ;
Док.ВыбратьДокументы(Дата1,Дата2);
Пока Док.ПолучитьДокумент()=1 Цикл
       Если Док.Приёмщик=Приёмщик Тогда


А вот что дальше? Когда этот код идёт в Отчётах, там сосздаётся объект и таблицы. Но мне ведь не нужно этого, мне нужно только суммировать определённые данные и вывести их в диалоговом окне при прохождении процедуры Рассчитать. И правильно ли я задала Док=Док.Заказ? Этим я хотела прописать, по какому виду документа нужно выборку делать..., но сомневаюсь, что это правильно.

Ничего похожего по функционалу в моей конфигурации я не нашла, а документы с отбором данных из других документов я ещё не писала..

Похоже на правду. Теперь надо выбрать строки в документе и получать их, попутно суммируя в переменные нужные данные.

Выбор строк делаем так?

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Как дальше задать, по каким реквизитам суммировать и в какое поле документа эти суммы прописывать?

Я так понимаю, что дальше должно быть условие Если, но как его тут правильно применить?

(6)
СуммаРек1 = 0;
....
пока получитьСтроку() = 1 цикл

  СуммаРек1 = СуммаРек1 + Док.Рек1;
...

ТекстЗапроса="Период С ДатаН По ДатаК;
|ОбрабатыватьДокументы Проведенные;
|Без Итогов;
|Номенклатура=Документ.Номенклатура;
|Рекв1=Документ.Заказ.Рекв1;
|Рекв2=Документ.Заказ.Рекв2;
|Рекв3=Документ.Заказ.Рекв3;
|Приемщик=Документ.Заказ.Приемщик;
|Функция ИтогРекв1=Сумма(Рекв1);
|Функция ИтогРекв2=Сумма(Рекв3);
|Функция ИтогРекв3=Сумма(Рекв3);
|Условие(Приемщик=ВыбПриемщик);
|Группировка Номенклатура Без Групп;
|";

Запрос=СоздатьОбъект("Запрос");
Если Запрос.Выполнить(ТекстЗапроса)<>1 Тогда Возврат; КонецЕли;

Пока Запрос.Группировка()=1 Цикл
Сообщить(""+Запрос.Номенклатура+" "+Запрос.ИтогРекв1+" "+Запрос.ИтогРекв2+" "+Запрос.ИтогРекв3);
КонецЦикла;

Примерно вот так, дальше сама допилишь...

|Номенклатура=Документ.Номенклатура;
читать как
|Номенклатура=Документ.Заказ.Номенклатура;

(2) конечно не правильно, надо через СоздатьОбъект.
потом найтиДокумент

(10) что ты хочешь от девочки, малоквалифицированной, да еще кинутой на семерку...

(11) ну уж точно не запрос писать )))))

Решила пока попробовать вывести только один реквизит в свой документ. Для начала прописать в документе сумму принятых Приемщиком заказов.

Процедура Рассчитать()  
    Процедура Рассчитать()  
    Док=СоздатьОбъект("Документ.Заказ");
Док.ВыбратьДокументы(Дата1,Дата2);
Пока Док.ПолучитьДокумент()=1 Цикл
    Если Док.ДатаДок>=Дата1 Тогда
        Продолжить;
    КонецЕсли;
    Если Док.ДатаДок<=Дата2 Тогда
        Продолжить;
        КонецЕсли;        
Если Приёмщик=Док.Приемщик Тогда           
       Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл  
    ЗаказовВсего=Док.СтоимостьЗаказаСкидка.Сумма;        
    КонецЦикла;
    КонецЕсли;
КонецЦикла;        
КонецПроцедуры


Ошибок никаких не выдаёт, но и ничего в документ не выводит.

С Запросом тоже всё сложно - с ними никогда не работала... не понимаю пока, каки куда их пихать.

(14) стучись в скайп Zlopun - сейчас все удаленно поправим, сделаем, расскажу. покажу.
..слабость у меня к Иришкам...

Док.ВыбратьДокументы(Дата1,Дата2);
и
    Если Док.ДатаДок>=Дата1 Тогда
        Продолжить;
    КонецЕсли;
    Если Док.ДатаДок<=Дата2 Тогда
        Продолжить;
        КонецЕсли;      

.
..как бы взаимоисключающие условия

это что за хрень?
.
Пока Док.ПолучитьСтроку()=1 Цикл  
    ЗаказовВсего=Док.СтоимостьЗаказаСкидка.Сумма;        
КонецЦикла;
.
логика какая: перебрать все строки документа, но на выходе получить значение только для последнего? - НАФЕЙХОА?

эти условия
    Если Док.ДатаДок>=Дата1 Тогда
        Продолжить;
    КонецЕсли;
    Если Док.ДатаДок<=Дата2 Тогда
        Продолжить;
        КонецЕсли;

вообще выкинь, они не нужны
..
чувствуется, что у тебя малость нет понимания что к чему.. ;-)

неужель Йаркая проявилась ?

вроде ещё не пятница, а здоровые мужики на развод уже клюют

По порядку...
(16)
Док.ВыбратьДокументы(Дата1,Дата2)

Дата1 и Дата2 - это реквизит документа, который я хочу заполнить. В них я задаю период отбора. В документе Заказ у меня есть разные даты. ДатаДок - дата документа, ДатаГотовности, ДатаВыдачи. Я хочу, чтоб период выборки был именно по Дате документа, а не какой либо другой.
(17)
ЗаказовВсего - это опять реквизит нового документа, который должен быть равен сумме по перебранным строкам СуммаЗаказаСкидка из документов Заказ. Тут я точно что-то не так сделала, но как сделать правильно, не поняла. Я вообще раньше не писала "с нуля" документы или отчёты, где нужно сделать выборку. Либо делала что-то по аналогии с имеющимся, меняя на нужные реквизиты. Тут же нужно написать документ, не имеющий аналогов в моей конфигурации. Так что прошу прощения, если какие-то простые для вас вещи мне не понятны...

(19) Кто такая?

(21) "ЗаказовВсего - это опять реквизит нового документа, который должен быть равен сумме по перебранным строкам"
- ну так если должен быть равен СУММЕ по перебранным строкам - то напиши оператор с выражением суммирования!

и для того, чтобы получить итог по строкам какого либо дока, совсем не обязательно перебирать строки - достаточно в пофигураторе для реквизита табличной части документа поставить флаг "итог" - и можно получить итог по строкам
Док.Итог("КакойТоРеквизиттабличнойЧасти")

ну, я в (15) помощь предложил.. на нет - и сюда/туда нет...

(25) Сейчас нет возможности выйти в Скайп, поэтому спасибо за предложение, возьму на заметку, но пока попробую всё же через форум решить задачку...

(24) попробую так.

(26) наличие фотки в прфиле увеличивает шансы на успешное решение задачи...

тимвьювер тоже покатит...

Всем спасибо, у меня получилось то, что нужно. (18) абсолютно верно. (4) это оказалось лишним. Достаточно было только выбрать Документы и суммировать определённые реквизиты из них.

Задача решена.

..не прошло и часа ;-)