Универсальная дочерняя форма



Posted by Александр, Киев (213.169.65.51) on January 29, 2001 at 09:33:26:

Задача: Из формы родителя запустить дочернюю форму и "вернуться" с ее ответами обратно.

Шапка формы "SKLAD"
*AR-адресс возврата; AI-аргументы селектора
?FM; IF [CPFM,1,3]='UMF' ?AR;?AI
TX='N:ENTER:R '+[STRIP[CPFM,4,8]]+' ·'+[INTSNAR]+'·'; AI=[INTSNAI]
FOR I=1 TO [LENGTHAI] TX=TX+'#'+[CPAI,I,1]+'·'; ENDFOR
PRINTSTR=TX+[CH13]
ENDIF;
*******************
Тело формы "SKLAD"
*******************
Формат строки вызова:R Имя дочери+'UMF'+Имя родителя+Адрес точки вызова(родительской формы)
+номера полей дочерней формы
Пример R SKLAD·UMFPREDOK·25·138·
Теперь если нажать "ENTER" на развернутой форме "SKLAD"
будет вызвана форма "PREDOK" с первым аргументом "25" и
содержимым 1,3,8 полей формы "SKLAD"


Пpишедшие ответы: