Подскажите как оптимизировать этот код под внешнюю форму счет-фактуры
НомерПлатёжки = ?(ПустаяСтрока(НомерПлатРасчДок)=1,
?(ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"---------- ","_______________"),
СокрЛП(НомерПлатРасчДок));
ДатаПлатёжки = ?(ДатаЧисло(ДатаПлатРасчДок)=0,
?(ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"----------","_______________"),
ДатаПлатРасчДок);
НомерПлатёжки = ?(ПустаяСтрока(НомерПлатРасчДок)=1,
?(ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"---------- ","_______________"),
СокрЛП(НомерПлатРасчДок));
ДатаПлатёжки = ?(ДатаЧисло(ДатаПлатРасчДок)=0,
?(ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"----------","_______________"),
ДатаПлатРасчДок);
По теме из базы знаний
- Зачем и как читать чужой код? Какой результат ожидаем получить? Основные подходы
- Быстрый фронт в базе размером 6.8 терабайт – наши стандарты при разработке и рефакторинге запросов
- Бесплатный вебинар: Тонкости работы с Infostart ToolKit 23.05.2024
- Глайти склад: автоматизация склада с адресным хранением с помощью ТСД
- Гайд по XDTO для чайников
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
во внешней форме должен быть реквизит, например, "ТекущийДокумент". (или что-то подобное)
код будет выглядеть так:
НомерПлатёжки = ?(ПустаяСтрока(ТекущийДокумент.НомерПлатРасчДок)=1,
?(ТекущийДокумент.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"---------- ","_______________"),
СокрЛП(ТекущийДокумент.НомерПлатРасчДок));
ДатаПлатёжки = ?(ДатаЧисло(ТекущийДокумент.ДатаПлатРасчДок)=0,
?(ТекущийДокумент.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"----------","_______________"),
ТекущийДокумент.ДатаПлатРасчДок);
код будет выглядеть так:
НомерПлатёжки = ?(ПустаяСтрока(ТекущийДокумент.НомерПлатРасчДок)=1,
?(ТекущийДокумент.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"---------- ","_______________"),
СокрЛП(ТекущийДокумент.НомерПлатРасчДок));
ДатаПлатёжки = ?(ДатаЧисло(ТекущийДокумент.ДатаПлатРасчДок)=0,
?(ТекущийДокумент.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"----------","_______________"),
ТекущийДокумент.ДатаПлатРасчДок);
Во внешней печатной форме должна быть ссылка на документ. Обычно это СсылкаНаОбъект, т.е. перед каждым реквизитом документа должно стоять СсылкаНаОбъект:
НомерПлатёжки = ?(ПустаяСтрока(СсылкаНаОбъект.НомерПлатРасчДок)=1,
?(СсылкаНаОбъект.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"---------- ","_______________"),
СокрЛП(СсылкаНаОбъект.НомерПлатРасчДок));
ДатаПлатёжки = ?(ДатаЧисло(СсылкаНаОбъект.ДатаПлатРасчДок)=0,
?(СсылкаНаОбъект.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"----------","_______________"),
СсылкаНаОбъект.ДатаПлатРасчДок);
вот как то так
НомерПлатёжки = ?(ПустаяСтрока(СсылкаНаОбъект.НомерПлатРасчДок)=1,
?(СсылкаНаОбъект.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"---------- ","_______________"),
СокрЛП(СсылкаНаОбъект.НомерПлатРасчДок));
ДатаПлатёжки = ?(ДатаЧисло(СсылкаНаОбъект.ДатаПлатРасчДок)=0,
?(СсылкаНаОбъект.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"----------","_______________"),
СсылкаНаОбъект.ДатаПлатРасчДок);
вот как то так
сделал примерно так
ППечНомерПлатРасчДок = ?(ПустаяСтрока(СчетаФактурыВыданного.ПечНомерПлатРасчДок)=1,
?(СсылкаНаОбъект.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"---------- ","_______________"),
СокрЛП(СчетаФактурыВыданного.ПечНомерПлатРасчДок));
ПечДатаПлатРасчДок = ?(ДатаЧисло(СчетаФактурыВыданного.ПечДатаПлатРасчДок)=0,
?(ВидыОперацийСчетаФактурыВыданного.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"----------","_______________"),
СчетаФактурыВыданного.ПечДатаПлатРасчДок);
все ровно пишет
ПечНомерПлатРасчДок = ?(ПустаяСтрока(СчетаФактурыВыданного<<?>>.ПечНомерПлатРасчДок)=1,
{C:\Documents and Settings\Руслан\Рабочий стол\010312_Треллеборг_Бух\ExtForms\PrnForms\SF_1137.ert(246)}: Переменная не определена (СчетаФактурыВыданного)
ПечДатаПлатРасчДок = ?(ДатаЧисло(СчетаФактурыВыданного<<?>>.ПечДатаПлатРасчДок)=0,
{C:\Documents and Settings\Руслан\Рабочий стол\010312_Треллеборг_Бух\ExtForms\PrnForms\SF_1137.ert(250)}: Переменная не определена (СчетаФактурыВыданного)
При проверке модуля обнаружены синтаксические ошибки!
ППечНомерПлатРасчДок = ?(ПустаяСтрока(СчетаФактурыВыданного.ПечНомерПлатРасчДок)=1,
?(СсылкаНаОбъект.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"---------- ","_______________"),
СокрЛП(СчетаФактурыВыданного.ПечНомерПлатРасчДок));
ПечДатаПлатРасчДок = ?(ДатаЧисло(СчетаФактурыВыданного.ПечДатаПлатРасчДок)=0,
?(ВидыОперацийСчетаФактурыВыданного.ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"----------","_______________"),
СчетаФактурыВыданного.ПечДатаПлатРасчДок);
все ровно пишет
ПечНомерПлатРасчДок = ?(ПустаяСтрока(СчетаФактурыВыданного<<?>>.ПечНомерПлатРасчДок)=1,
{C:\Documents and Settings\Руслан\Рабочий стол\010312_Треллеборг_Бух\ExtForms\PrnForms\SF_1137.ert(246)}: Переменная не определена (СчетаФактурыВыданного)
ПечДатаПлатРасчДок = ?(ДатаЧисло(СчетаФактурыВыданного<<?>>.ПечДатаПлатРасчДок)=0,
{C:\Documents and Settings\Руслан\Рабочий стол\010312_Треллеборг_Бух\ExtForms\PrnForms\SF_1137.ert(250)}: Переменная не определена (СчетаФактурыВыданного)
При проверке модуля обнаружены синтаксические ошибки!
Передаем Параметр Документа,
Док=Форма.Параметр;
И приписываем
НомерПлатёжки = ?(ПустаяСтрока(Док.НомерПлатРасчДок)=1,
?(ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"---------- ","_______________"),
СокрЛП(Док.НомерПлатРасчДок));
ДатаПлатёжки = ?(ДатаЧисло(Док.ДатаПлатРасчДок)=0,
?(ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"----------","_______________"),
Док.ДатаПлатРасчДок);
Док=Форма.Параметр;
И приписываем
НомерПлатёжки = ?(ПустаяСтрока(Док.НомерПлатРасчДок)=1,
?(ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"---------- ","_______________"),
СокрЛП(Док.НомерПлатРасчДок));
ДатаПлатёжки = ?(ДатаЧисло(Док.ДатаПлатРасчДок)=0,
?(ВидОперации = Перечисление.ВидыОперацийСчетаФактурыВыданного.Аванс,"----------","_______________"),
Док.ДатаПлатРасчДок);
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот