OLE Automation (continued)

/* Iterate through salesrep table, to populate Worksheet */

For each salesrep:

dAnnualQuota = 0.

iTotalNumberOfOrders = 0.

dTotalSalesAmount = 0.

iColumn = iColumn + 1.

For each order OF salesrep:

iTotalNumberOfOrders = iTotalNumberOfOrders + 1.

Find invoice where invoice.order-num =

Order.order-num no-error.

If available invoice then

dTotalSalesAmount = dTotalSalesAmount + invoice.amount.

End.

Do iMonth = 1 TO 12:

dAnnualQuota = dAnnualQuota +

salesrep.month-quota[iMonth].

End.

Previous slide

Next slide

Back to first slide

View graphic version