Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 ноя 2024, 05:47

Как получить ссылку на документ?

Автор Айрат116, 22 июл 2019, 09:14

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

Айрат116

Помогите пжл. Мне нужно получить ссылку на документ "Передача товара"
Но код я пишу в модуле менеджера в документе "Дефектная ведомость"
И не могу получить ссылку на другой док

ВЫБРАТЬ
   ХозрасчетныйДвиженияССубконто.Регистратор КАК Регистратор,
   ХозрасчетныйДвиженияССубконто.Сумма КАК Сумма
   
ИЗ
   РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто КАК ХозрасчетныйДвиженияССубконто
ГДЕ
   ХозрасчетныйДвиженияССубконто.Регистратор = &Регистратор  --- Сюда поставить ссылку на док





wise

(0) СсылкаНаДок001 = Документы.ПередачаТовара.НайтиПоНомеру("001", ТекущаяДата());
Если СсылкаНаДок001 = Документы.ПередачаТовара.ПустаяСсылка() Тогда
    Сообщить("НЕТ документа с ТАКИМ номером");
Иначе
    Сообщить("УРА!! Нашёлся...");
КонецЕсли;
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

Айрат116

Цитата: wise от 22 июл 2019, 18:46
(0) СсылкаНаДок001 = Документы.ПередачаТовара.НайтиПоНомеру("001", ТекущаяДата());
Если СсылкаНаДок001 = Документы.ПередачаТовара.ПустаяСсылка() Тогда
    Сообщить("НЕТ документа с ТАКИМ номером");
Иначе
    Сообщить("УРА!! Нашёлся...");
КонецЕсли;


Так не получится( Я задание не правильно объяснил( Мне надо сделать так чтоб в печ форму вывести. Сумму из регистра бух, движение документа "ПередачаТовара" а документ "Дефектная" я создал на оснований "ПередачаТоваров" Мне нужно взять данные и с док Дефектная и с движения док Передача
https://wampi.ru/image/62RpVmt
https://wampi.ru/image/62RpXJE

Добавлено: 23 июл 2019, 07:42


Цитата: Айрат116 от 23 июл 2019, 07:28
Цитата: wise от 22 июл 2019, 18:46
(0) СсылкаНаДок001 = Документы.ПередачаТовара.НайтиПоНомеру("001", ТекущаяДата());
Если СсылкаНаДок001 = Документы.ПередачаТовара.ПустаяСсылка() Тогда
    Сообщить("НЕТ документа с ТАКИМ номером");
Иначе
    Сообщить("УРА!! Нашёлся...");
КонецЕсли;


Это в модуле менеджера пишу. Документа "Дефектная"
&НаСервере
Функция  ОтчетДефНаСервере()
   Возврат Документы.ТН_ДефектнаяВедомость.ПечатьОтчетДефектная(Объект);
КонецФункции

Так не получится( Я задание не правильно объяснил( Мне надо сделать так чтоб в печ форму вывести. Сумму из регистра бух, движение документа "ПередачаТовара" а документ "Дефектная" я создал на оснований "ПередачаТоваров" Мне нужно взять данные и с док Дефектная и с движения док Передача
https://wampi.ru/image/62RpVmt
https://wampi.ru/image/62RpXJE
Добавлено: 23 июл 2019, 07:47


Цитата: Айрат116 от 23 июл 2019, 07:28
Цитата: wise от 22 июл 2019, 18:46
(0) СсылкаНаДок001 = Документы.ПередачаТовара.НайтиПоНомеру("001", ТекущаяДата());
Если СсылкаНаДок001 = Документы.ПередачаТовара.ПустаяСсылка() Тогда
    Сообщить("НЕТ документа с ТАКИМ номером");
Иначе
    Сообщить("УРА!! Нашёлся...");
КонецЕсли;


Так не получится( Я задание не правильно объяснил( Мне надо сделать так чтоб в печ форму вывести. Сумму из регистра бух, движение документа "ПередачаТовара" а документ "Дефектная" я создал на оснований "ПередачаТоваров" Мне нужно взять данные и с док Дефектная и с движения док Передача
https://wampi.ru/image/62RpVmt
https://wampi.ru/image/62RpXJE

Добавлено: 23 июл 2019, 07:42


Цитата: Айрат116 от 23 июл 2019, 07:28
Цитата: wise от 22 июл 2019, 18:46
(0) СсылкаНаДок001 = Документы.ПередачаТовара.НайтиПоНомеру("001", ТекущаяДата());
Если СсылкаНаДок001 = Документы.ПередачаТовара.ПустаяСсылка() Тогда
    Сообщить("НЕТ документа с ТАКИМ номером");
Иначе
    Сообщить("УРА!! Нашёлся...");
КонецЕсли;



Так не получится( Я задание не правильно объяснил( Мне надо сделать так чтоб в печ форму вывести. Сумму из регистра бух, движение документа "ПередачаТовара" а документ "Дефектная" я создал на оснований "ПередачаТоваров" Мне нужно взять данные и с док Дефектная и с движения док Передача
https://wampi.ru/image/62RpVmt
https://wampi.ru/image/62RpXJE

Это в модуле менеджера документа "Дефектная"
Функция ПечатьОтчетДефектная (Ссылка) Экспорт

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


Это в модуле формы . Документа "Дефектная"
&НаСервере
Функция  ОтчетДефНаСервере()
   Возврат Документы.ТН_ДефектнаяВедомость.ПечатьОтчетДефектная(Объект);
КонецФункции


alexandr_ll

В документе "Дефектная" должен быть реквизит "ДокументОснование" с типом документ ссылка на основании которого вводится дефектная.

Айрат116

Цитата: alexandr_ll от 23 июл 2019, 08:19
В документе "Дефектная" должен быть реквизит "ДокументОснование" с типом документ ссылка на основании которого вводится дефектная.


А потом ссылку брать с этого реквизита?

Добавлено: 23 июл 2019, 08:28


Цитата: alexandr_ll от 23 июл 2019, 08:19
В документе "Дефектная" должен быть реквизит "ДокументОснование" с типом документ ссылка на основании которого вводится дефектная.

Или где надо написать код чтоб привязать это все (Я новичок. Первый раз такое задание делаю)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск