| Пример текстовой управляемой формы без 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