1C предприятие 7.7 для SQL самописная за основу взяли 7,70,026
Прошу помощи.
Сейчас бухгалтерия работает.
Создаём счёт.
На основании счёта создаётся накладная
Оплата заносится одним из 3-х подчинённых документов.
В журнале счетов напротив оплаченного счёта
После проплаты в колонке "Оплата" появляется "+"
Возникла необходимость в журнале после оплаты вместо "+", а лучше где-то рядом, указать номер подчинённой накладной
Модуль журнала счетовФункция Подчиненные()
Если ТекущийДокумент.Выбран()=0 Тогда
Возврат "";
КонецЕсли;
Док = СоздатьОбъект("Документ");
Док.ВыбратьПодчиненныеДокументы('01.01.1970','31.12.2100',ТекущийДокумент);
Текст = "";
Пока Док.ПолучитьДокумент()=1 Цикл
Текст = "Есть подчиненные документы!";
Прервать;
КонецЦикла;
Возврат Текст;
КонецФункции
// ===============================
Процедура ОткрытьПодчиненные()
Если ТекущийДокумент.Выбран()=0 Тогда
Возврат;
КонецЕсли;
ОткрытьФорму("Журнал.Подчиненные.ФормаСписка",,ТекущийДокумент);
КонецПроцедуры
Функция ОбновитьИнфоОплата()
Если ТекущийДокумент.Выбран()=0 Тогда
Возврат "";
КонецЕсли;
Док = СоздатьОбъект("Документ");
Док.ВыбратьПодчиненныеДокументы('01.01.1980','31.12.2100',ТекущийДокумент);
Пока Док.ПолучитьДокумент()=1 Цикл
Если (Док.Вид() = "ПриходныйБанкСНДС") или (Док.Вид() = "ПриходныйКассовыйКлиент") или (Док.Вид() = "ПриходныйБанкБезНДС") Тогда
Возврат "+";
КонецЕсли;
КонецЦикла;
Возврат "";
КонецФункции
КонецЦикла;
Возврат "";
КонецФункции
Сообщение отредактировал Vofka - 04.03.20, 11:45