Пример текстовой управляемой формы без SQL элементов Назад В начало Вперед

Форма-прототип

.form склад
.fields валюта .endfields
.[h
-------------------------------------------
номер   код	единица  количество  цена
склада материала измер.			 @@@@@
-------------------------------------------
.]h
.fields
   номер_склада материал мера количество:double
   цена:double
.endfields
.{--------------------------------------------------
.{===============================
@@@@  @@@@@@@@@@  @@@@	@@@@@@	@@@@@
.}===============================
.}----------------------------------------------------
.endform

Входной поток

Валюта= рубль

Номер_склада = 1

материал

мера

количество

цена

7

Г

10

10

9

КГ

20

10

11

Ц

30

10

19

Т

40

10

Номер_склада = 2

материал

мера

количество

цена

5

Г

70

20

9

КГ

80

20

19

Ц

90

20

21

Т

100

20

Отчет по форме-прототипу

-------------------------------------------
номер   код	единица  количество  цена
склада материала измер.			 @@@@@
-------------------------------------------
1		7		 Г		 10		10
1		9		 КГ		20		10
1		11		Ц		 30		10
1		19		Т		 40		10
2		5		 Г		 70		20
2		9		 КГ		80		20
2		19		Ц		 90		20
2		21		Т		100		20

Присоединенная форма

.linkform итоги prototype is склад
.fields   валюта  номер_склада  .endfields
.var   сумма1:double   сумма2:double  .endvar
.fields   сумма2  сумма1+сумма2 .endfields
Общая стоимость материалов по складам
-----------------------------------
Номер склада  стоимость материалов,
			@@@@@@@
-----------------------------------
.{-----------------------------------------------------
! начало цикла по номеру склада
.begin  сумма1:=сумма2; сумма2:=0 ;  end.
.{================================
.begin сумма2:=сумма2+количество*цена; end.
.}=================================
Склад@@	@@@@@@@
.}------------------------------------------------------
! Конец цикла по номеру склада
Всего:		@@@@@@@
.endform

Отчет по присоединенной форме

Общая стоимость материалов по складам
-----------------------------------
Номер склада  стоимость материалов,
			рубль
-----------------------------------
Склад1		1000
Склад2		6800
Всего:		7800