Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://ns1.tyumbit.ru/
Код: Выделить всё
.f 'nul'
в этом прототипе tovn эта команда приводит к ошибке и не отрабатывается, так же как и неотрабатывается fexit ...edward_K писал(а):.F "NUL" вообще то надо.
Код: Выделить всё
.LinkForm '*****' prototype is 'TOVN'
.f 'nul'
.NameInList '************'
..... тут нужное количество скобочек
.begin
RunInterface('**********');
end.
.endform
к интерфейсу ни как не относится т.к. потом все равно управление передается линкованой форме, а та выведет пустой лист бизнестекстаedward_K писал(а):а к какой ошибке то? Fexit сработает только в самом начала формы и то не всегда. Вариант - в фейсе сделать abortform.
зная галактику ..edward_K писал(а):угу.
Повтор. А какая ошибка? Где то смутно ясно в начала, что при выполнении. И на "NUL" вы не исправили.
На 810 какое то время эта опция приводила к runtime 216 во всех формах, но потом починили.
я попробовал самый невероятный вариант Код: Выделить всё
.F "NUL"
Код: Выделить всё
.LinkForm 'PlatDocs_DOC' Prototype is 'PlatDocs'
.NameInList 'Комплект документов'
.Group 'РАСХОДНЫЙ КАССОВЫЙ ОРДЕР - ЦБРФ'
.group 'РАСХОДНЫЙ КАССОВЫЙ ОРДЕР ЦБРФ - РТФ'
.group 'Расходный кассовый ордер РК - РТФ'
.group 'Приходный КАССОВЫЙ ОРДЕР ЦБРФ - РТФ'
.F "NUL"
.Var
Count : Word;
.EndVar
.{
.{checkenter PlatDocsCycleDocRash
.}
!.{checkenter PlatDocsCycleDebetBuhNotes
!.}
!.{checkenter PlatDocsCycleKreditBuhNotes
!.}
.{
.}
.{
.}
.{checkenter PlatDocsCycleVKassu
.{checkenter PlatDocsCycleMemo1
.}
.}
.{checkenter PlatDocsCycleIzKassy
.{checkenter PlatDocsCycleMemo2
.}
.}
.{
.{
.{
.}
.}
.}
.if DELIMITERPLAT
---------------------------------------------------------------------------------
.else
.end
.if PAGESYMBOL
.else
.end
.begin
RunInterface(Print_DOC, PlPorNrec);
end.
.}
.endform
Хотел бы я чтоб все было так простоedward_K писал(а):Какая ошибка видимо никогда не узнаю
Ну вот вам работающий пример, начните с него, потом перейдете на tovn
В <F> регистр наверное не важен, хотя вроде в доке все опции FCOM в верхнем регистре. А вот NUL должен быть в двойных кавычках - иначе это просто имя файла.
и оно почти всегда работает.. независимо от регистра ...Код: Выделить всё
Ошибка поиска
Файл :\\.\NUL
Идентификатор : 65535
обрабатывается при просмотре
Код: Выделить всё
.LinkForm 'TOVN_20111102' Prototype is 'tovn'
.Group 'Накладные на продажу'
.NameInList 'Стандартная форма накладной (тест)'
.DEFP PA4
.DEFO PORTRAIT
.LL 80
.F "NUL"
.Create view nnn
from
katsopr,
spsopr
where
((
накладная_нрек == KatSopr.nRec
))
;
.{
.if TOVN01
.else
.end
.if TOVN02
.else
.end
.{
.}
.{CheckEnter TOVNUSL
.}
.{
.}
.}
.begin
message('ВОт не должно быть окна пустого...а оно есть ');
end.
.endform пух .. на 8.1 работает видимо поправили, в 7.12 в этой конкретной форме нет я уже и целиком текст в галактике правил.. в 8.1 тоже некоторые формы так косячат, встречалась полгода назад ..edward_K писал(а):судя по ошибке, у вас .F сработал не на гашение формы, а на сохранение в виде файла nul
если собрать линкованую форму как RTF все прокатит с помощью fexit !!!!!!!!!!!!! иху!!!