inc/rowcol/rcvch1.i

   1 /* rcvch1.i */
   2 /* row-display trigger code for voucher browsers */
   3 /* Row colour is determined by the VoucherStatus field */
   4
   5   IF AVAILABLE Voucher THEN DO:
   6
   7     DEF VAR fcolor AS INT NO-UNDO.
   8     DEF VAR bcolor AS INT NO-UNDO.
   9
  10     {inc/rowcol/rcvchcol.i}
  11
  12     ASSIGN
  13       Voucher.VoucherSeq:BGCOLOR
  14               IN BROWSE {&BROWSE-NAME} = bcolor
  15       Voucher.VoucherStatus:BGCOLOR    = bcolor
  16       Voucher.ApproverCode:BGCOLOR     = bcolor
  17       Voucher.CreditorCode:BGCOLOR     = bcolor
  18       Voucher.Date:BGCOLOR             = bcolor
  19       Voucher.Description:BGCOLOR      = bcolor
  20       Voucher.InvoiceReference:BGCOLOR = bcolor
  21       Voucher.GoodsValue:BGCOLOR       = bcolor
  22       Voucher.TaxValue:BGCOLOR         = bcolor
  23       total-value:BGCOLOR              = bcolor
  24       date-due:BGCOLOR                 = bcolor
  25       cheque-detail:BGCOLOR            = bcolor
  26       update-detail:BGCOLOR            = bcolor
  27
  28       Voucher.VoucherSeq:FGCOLOR       = fcolor
  29       Voucher.VoucherStatus:FGCOLOR    = fcolor
  30       Voucher.ApproverCode:FGCOLOR     = fcolor
  31       Voucher.CreditorCode:FGCOLOR     = fcolor
  32       Voucher.Date:FGCOLOR             = fcolor
  33       Voucher.Description:FGCOLOR      = fcolor
  34       Voucher.InvoiceReference:FGCOLOR = fcolor
  35       Voucher.GoodsValue:FGCOLOR       = fcolor
  36       Voucher.TaxValue:FGCOLOR         = fcolor
  37       total-value:FGCOLOR              = fcolor
  38       date-due:FGCOLOR                 = fcolor
  39       cheque-detail:FGCOLOR            = fcolor
  40       update-detail:FGCOLOR            = fcolor
  41     NO-ERROR.
  42
  43   END.