
ADOBE FRAMEMAKER 10
MIF Reference
233
SEND PACKET
(vDoc;"<Tbls <Tbl <TblID 2> <TblFormat <TblTag `Format A'>>"+CR)
SEND PACKET
(vDoc;"<TblNumColumns 5> <TblColumnWidth .6"+DQ+">"+CR)
SEND PACKET
(vDoc;"<TblColumnWidth 3.25"+DQ+">"+CR)
SEND PACKET
(vDoc;"<TblColumnWidth .5"+DQ+">"+CR)
SEND PACKET
(vDoc;"<TblColumnWidth 1.7"+DQ+">"+CR)
SEND PACKET
(vDoc;"<TblColumnWidth 1.0"+DQ+">"+CR)
SEND PACKET
(vDoc;"<TblTitle"+CR)
SEND PACKET
(vDoc;"<TblTitleContent"+CR)
SEND PACKET
(vDoc;"<Para <PgfTag `TableTitle'>"+CR)
SEND PACKET
(vDoc;"<ParaLine <String `Offerings as of "
+String
(Current
date;5)+"'>>>>>"+CR)
`Table Heading Row.
SEND PACKET
(vDoc;"<TblH <Row <RowMaxHeight 14.0"+DQ+"> "+CR)
SEND PACKET
(vDoc;"<Cell <CellContent <Para <PgfTag `CellHeading'>"+CR)
SEND PACKET
(vDoc;"<ParaLine <String `Ref No.'>>>>>"+CR)
SEND PACKET
(vDoc;"<Cell <CellContent <Para <PgfTag `CellHeading'>"+CR)
SEND PACKET
(vDoc;"<ParaLine <String `Coffee'>>>>>"+CR)
SEND PACKET
(vDoc;"<Cell <CellContent <Para <PgfTag `CellHeading'>"+CR)
SEND PACKET
(vDoc;"<ParaLine <String `Bags'>>>>>"+CR)
SEND PACKET
(vDoc;"<Cell <CellContent <Para <PgfTag `CellHeading'>"+CR)
SEND PACKET
(vDoc;"<ParaLine <String `Status'>>>>>"+CR)
SEND PACKET
(vDoc;"<Cell <CellContent <Para <PgfTag `CellHeading'>"+CR)
`Retail and Discount prices are conditional.
SEND PACKET
(vDoc;"<ParaLine <Conditional <InCondition `Retail'>>"+CR)
SEND PACKET
(vDoc;"<String `Price per Bag'>"+CR)
SEND PACKET
(vDoc;"<Conditional <InCondition `Discount'>> <String `Discount
Price'>"+CR)
SEND PACKET
(vDoc;"<Unconditional> >>>>>>"+CR)
`Table Body.
FIRST RECORD
([Inventory])
SEND PACKET
(vDoc;"<TblBody"+CR)
For
($n;1;
Records in selection
([Inventory])
`Change shading of row depending on inventory status.
If
([Inventory]Status="In stock")
vFill:="<CellFill 6> <CellColor `Green'>"
Else
vFill:=" <CellFill 6> <CellColor `Red'>"
End if
`Compute discount price.
vDiscPrice:=[Inventory]Price per Bag*vDisc
RELATE ONE
([Inventory]Name)
SEND PACKET
(vDoc;"<Row <RowMaxHeight 14.0"+DQ+">"+CR)
SEND PACKET
(vDoc;"<Cell "+vFill+" <CellContent <Para <PgfTag
`Number'>"+CR)
SEND PACKET
(vDoc;"<ParaLine <String `"
+String
([Inventory]Ref
Number;"###")+"'>>>>>"+CR)
SEND PACKET
(vDoc;"<Cell "+vFill+" <CellContent <Para <PgfTag `Body'>"+CR)
SEND PACKET
(vDoc;"<ParaLine <String `"+[Inventory]Name+"'>>>"+CR)
SEND PACKET
(vDoc;"<Para <PgfTag `CellBody'>"+CR)
SEND PACKET
(vDoc;"<ParaLine <String `"+[Beans]Desc"'>>>>>"+CR)
SEND PACKET
(vDoc;"<Cell "+vFill+" <CellContent <Para <PgfTag