Adobe FRAMEMAKER 10 - Page 238

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]Description+"'>>>>>"+CR)
SEND PACKET(vDoc;"<Cell "+vFill+" <CellContent <Para <PgfTag