inc/rowcol/rcactacx.i

   1 /* rcactacx.i */
   2 /* row-display trigger code for account transaction of X browser */
   3
   4   IF AVAILABLE(AcctTran) THEN DO WITH FRAME {&FRAME-NAME}:
   5     DEFINE VARIABLE fcolor AS INTEGER INITIAL ? NO-UNDO.
   6
   7     IF AcctTran.ClosedState = "P" THEN fcolor = 3.
   8     ELSE IF AcctTran.ClosedState = "F" THEN fcolor = 2.
   9
  10     ASSIGN
  11       d-date:FGCOLOR IN BROWSE {&BROWSE-NAME} = fcolor
  12       ClosedState:FGCOLOR IN BROWSE {&BROWSE-NAME} = fcolor
  13       Reference:FGCOLOR IN BROWSE {&BROWSE-NAME} = fcolor
  14       Description:FGCOLOR IN BROWSE {&BROWSE-NAME} = fcolor
  15       FirstName:FGCOLOR IN BROWSE {&BROWSE-NAME} = fcolor
  16       BatchCode:FGCOLOR IN BROWSE {&BROWSE-NAME} = fcolor
  17     .
  18   END.