Files
MBS/WEBSERVICES/shoppingcart/client/Shopping.per
T

89 lines
1.7 KiB
Plaintext

--
-- FOURJS_START_COPYRIGHT(U,2011)
-- Property of Four Js*
-- (c) Copyright Four Js 2011, 2019. All Rights Reserved.
-- * Trademark of Four Js Development Tools Europe Ltd
-- in the United States and elsewhere
--
-- Four Js and its suppliers do not warrant or guarantee that these samples
-- are accurate and suitable for your purposes. Their inclusion is purely for
-- information purposes only.
-- FOURJS_END_COPYRIGHT
--
LAYOUT (TEXT="Stateful Web Service demo : Shopping cart")
HBOX
GROUP ( TEXT="List of goods" )
GRID
{
<TABLE >
Serial Description Price
[a1 |b1 |c1 ]
[a1 |b1 |c1 ]
[a1 |b1 |c1 ]
[a1 |b1 |c1 ]
[a1 |b1 |c1 ]
[a1 |b1 |c1 ]
[a1 |b1 |c1 ]
[a1 |b1 |c1 ]
[a1 |b1 |c1 ]
[a1 |b1 |c1 ]
}
END -- grid
END -- group
GROUP ( TEXT="Shopping cart" )
VBOX
GRID
{
[label1]
[label2]
Welcome [user ]
}
END -- grid
GRID
{
<TABLE >
Description Quantity
[b2 |c2 ]
[b2 |c2 ]
[b2 |c2 ]
[b2 |c2 ]
[b2 |c2 ]
}
END -- grid
END -- vbox
END -- group
END -- hbox
ATTRIBUTES
EDIT a1 = FORMONLY.a1, NOENTRY;
EDIT b1 = FORMONLY.b1, NOENTRY;
EDIT c1 = FORMONLY.c1, NOENTRY;
PHANTOM FORMONLY.a2;
EDIT b2 = FORMONLY.b2;
EDIT c2 = FORMONLY.c2;
LABEL user = FORMONLY.USER;
LABEL label1 : label1;
LABEL label2 : label2;
END
INSTRUCTIONS
SCREEN RECORD sr_goods[10] (
FORMONLY.a1,
FORMONLY.b1,
FORMONLY.c1
);
SCREEN RECORD sr_cart[5] (
FORMONLY.a2,
FORMONLY.b2,
FORMONLY.c2
);
END