/* Pizzas */
#pizzas =
/* Open Business View V4101JC */
v41021jb
/* Sum Qtys */
[group(f41021.mcu,f4101.litm)
sum(f41021.pqoh,f41021.hcom,f41021.pcom)]
/* Pizzas */
all(f41021.mcu=30 f4101.srtx=PIZZA);
List Orders to be Picked
/* Orders Waiting for Pick Slip print */
#pick =
/* Open SO Detail */
f4211
/* Select Order and count number of Lines */
[group(doco) count(lnid)]
/* Where Pizzas are at Status 540 */
all(litm in PPIZZA,HPIZZA nxtr = 540);
List Orders to be Shipped
/* Orders Ready to be Shipped */
#ship =
/* Open SO Detail */
f4211
/* Select the fields */
(doco,litm,uorg,nxtr)
/* Where Pizzas are at Status 560 */
all(litm in PPIZZA,HPIZZA nxtr = 560);