process/one-off/non-ttp.p

   1 SESSION:APPL-ALERT-BOXES = Yes.
   2
   3 {inc/ofc-this.i}
   4 {inc/ofc-acct.i "DEBTORS" "sundry-debtors"}
   5 DEF VAR debtors-ac AS DEC NO-UNDO.
   6 debtors-ac = DECIMAL(sundry-debtors).
   7
   8 DEF VAR month-1 AS INT NO-UNDO.
   9 FIND Month WHERE Month.StartDate = DATE( 1, 1, 1997) NO-LOCK.
  10 month-1 = Month.MonthCode.
  11 DEF VAR month-n AS INT NO-UNDO.
  12 FIND Month WHERE Month.EndDate = DATE( 12, 31, 1997) NO-LOCK.
  13 month-n = Month.MonthCode.
  14
  15 FIND ConsolidationList WHERE ConsolidationList.Name = "TTPL" NO-LOCK.
  16
  17 OUTPUT TO "CLIPBOARD".
  18
  19 DEF VAR coy-code AS CHAR NO-UNDO.
  20 DEF VAR ac-total AS DEC NO-UNDO INITIAL 0.
  21 DISPLAY month-1 month-n debtors-ac WITH DOWN FRAME x.
  22 DOWN WITH FRAME x.
  23
  24 FOR EACH AccountBalance WHERE AccountBalance.EntityType = "L"
  25                         AND AccountBalance.AccountCode = debtors-ac
  26                         AND AccountBalance.MonthCode >= month-1
  27                         AND AccountBalance.MonthCode < month-n
  28                         NO-LOCK WITH DOWN FRAME x:
  29   coy-code = STRING(AccountBalance.EntityCode).
  30   IF LOOKUP( coy-code, ConsolidationList.CompanyList ) > 0 THEN NEXT.
  31   FIND Month OF AccountBalance NO-LOCK.
  32   DISPLAY AccountBalance.EntityCode LABEL "Coy"
  33           MONTH(Month.StartDate) FORMAT ">9" LABEL "Mth"
  34           1997 FORMAT ">>>9" LABEL "Year"
  35           AccountBalance.Balance.
  36   DOWN WITH FRAME x.
  37   ac-total = ac-total + AccountBalance.Balance .
  38 END.
  39
  40 DISPLAY ac-total @ AccountBalance.Balance WITH FRAME x.
  41
  42 OUTPUT CLOSE.