Hi, Roy.

RM> RM>Great fun, I'm hitting it with ParadoxWin at the moment. At its

RM> FM> Roy! You still using this? I have a whole heap of questions! Off the
to
RM> FM> of my head, here's one...

RM>Yes, I'm still using 4dos batch, so why are you asking all these
RM>hard questions?

RM> FM> I have a simple script

RM>Ha!!

:-)

RM> FM> which just runs a few queries, then presents the
RM> [chomp]
RM> FM> Then, because I've changed the format, when the user closes that
RM> FM> TableView it says the view properties have been changed, do you want
to
RM> FM> save them. I just want to get out of the table.

RM> FM> OK, so that was 2 questions :-)

RM>ten, actually..

RM>From what I've seen of PdoxWin, you've done something reel stupid,
RM>which you haven't included in the stuff you've given me, because
RM>there's so much nuts and bolts stuff you have to do to set up a
RM>minimal usable system.

OK, here's the full script. It runs stand alone. Have a look down
towards the bottom...

; Show unfilled orders
method run(var eventInfo Event)
var Extract Query
        Tbl Table
        TV TableView
endvar

Extract = Query
ANSWER: :PRIV:temp1.DB

CLIENT.DB | Client   | ShortName |
          | Check _a | Check     |

ORDER.DB | OrderType | OrderNo   | Client | Security | Units
                | CancelUnits | Limit |
         | Check     | Check _c! | _a     | Check    | Check _d,calc _d
- _e as Unfilled | _e          | Check |

TRADE.DB | OrderNo | Units    |
         | _c      | calc sum |

EndQuery
Message ("Extracting trades...")
ExecuteQBE (Extract)


Extract = Query

ANSWER: :PRIV:temp2.DB
SORT: 4, :PRIV:TEMP1.DB->"Security",
:PRIV:TEMP1.DB->"Units", 1, 5,

:PRIV:TEMP1.DB | Client                      | ShortName | OrderType |
               | _f,calc _f+" "+_g as Client | _g        | _a        |

:PRIV:TEMP1.DB | OrderNo                      | Security | Units
   |
               | _e,calc (_a+" ")+_e as Order | Check    | Check as
Ordered |

:PRIV:TEMP1.DB | Sum of Units | Unfilled                               |
Limit |
               | _c           | _d,not=_c*_b,calc _d-_c*_b as Unfilled |
Check |

ORDERTYP.DB | Code | InOut |
            | _a   | _b    |

EndQuery
Message ("Calculating order completion...")
ExecuteQBE (Extract)


Extract = Query
ANSWER: :PRIV:Unfilled.db

:PRIV:TEMP2.DB | Order | Client | Security | Unfilled      | Limit |
Ordered |
               | Check | Check  | Check    | Check not = 0 | Check |
Check   |


(Continued to next message)
---
 þ 4u2c   * þ * þ Pants: Trousers' country cousins.

---
@EOT:

---