Program drill-down
TRANSACTION_FEE_MAN
TRANSACTION FEE MAINTENANCE. Type MAN, base table DEBTOR_MAST.
Field inventory
36
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | I | -1 | 401, 157 | $SELECT S:DEBTOR;I\DM_DEBTOR $CALCULATE F:DEBTOR_MAST;Y;;T\NAME=DM_NAME;DM_DEBTOR='$I\DM_DEBTOR$';I\DM_DEBTOR $VALIDATE M: |
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | T | -1 | 241, 157 | |
| 1 | 0.0 | DEBTOR_MAST | DM_TRANSFIXED | I | -1 | 401, 277 | $CALCULATE I:I\DM_TRANSFIXED;<>; O:DISABLEINPUT;I\DM_TRANSPERC I:I\DM_TRANSFIXED;=;0;NUM DO(ABC) I:I\DM_TRANSPERC;<>;0;NUM O:ENABLEINPUT;I\DM_TRANSPERC DOEND(ABC) $VALIDATE I:I\DM_TRANSFIXED;<>; DO(11) A:ISNUMERIC;I\DM_TRANSFIXED;I\TMP2 I:I\TMP2;<>;Y DO(ZZZ) O:ENABLEINPUT;I\DM_TRANSFIXED D |
| 1 | 0.0 | DEBTOR_MAST | DM_TRANSFIXED | T | -1 | 241, 277 | |
| 1 | 0.0 | DEBTOR_MAST | DM_TRANSMAX | I | -1 | 401, 313 | $VALIDATE M: I:I\DM_TRANSMAX;<=;0;NUM D:CANNOT BE ZERO OR A NEGATIVE NUMBER;ERRORM;I\DM_TRANSMAX |
| 1 | 0.0 | DEBTOR_MAST | DM_TRANSMAX | T | -1 | 241, 313 | |
| 1 | 0.0 | DEBTOR_MAST | DM_TRANSPERC | I | -1 | 401, 241 | $CALCULATE I:I\DM_TRANSPERC;<>; O:DISABLEINPUT;I\DM_TRANSFIXED I:I\DM_TRANSPERC;=;0;NUM O:ENABLEINPUT;I\DM_TRANSFIXED I:I\DM_TRANSPERC;<>; DO(10) A:ISNUMERIC;I\DM_TRANSPERC;I\TMP1 I:I\TMP1;<>;Y DO(XXX) O:ENABLEINPUT;I\DM_TRANSPERC D:THIS FIELD MUST BE NUMERIC;ERRORM;I\DM_TRANSPERC DOEND(XXX) DO |
| 1 | 0.0 | DEBTOR_MAST | DM_TRANSPERC | T | -1 | 241, 241 | |
| 1 | 0.0 | DEBTOR_MAST | DM_TRANSVAT | I | -1 | 401, 349 | $SELECT S:VAT;I\DM_TRANSVAT $CALCULATE F:VAT_MAST;Y;;I\CON=VT_RATE;VT_CODE='$I\DM_TRANSVAT$';I\DM_TRANSVAT A:CON;I\CON;T\VAT;" %" $VALIDATE M: |
| 1 | 0.0 | DEBTOR_MAST | DM_TRANSVAT | T | -1 | 241, 349 | |
| 1 | 0.0 | DEBTOR_MAST | DM_ACCTYPE | I | 0 | 291, 517 | |
| 1 | 0.0 | DEBTOR_MAST | DM_ACCTYPE | T | -1 | 241, 193 | |
| 1 | 0.0 | Label 7 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 8 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 9 | T | -1 | 261, 49 | ||
| 1 | 0.0 | Label 10 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 11 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 12 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 13 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Work 14 | I | 0 | 21, 85 | $DEFAULT 'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 $AFTER_READ 'I:I\DM_TRANSPERC;<>; 'O:DISABLEINPUT;I\DM_TRANSFIXED 'I:I\DM_TRANSPERC;=; 'O:ENABLEINPUT;I\DM_TRANSFIXED 'I:I\DM_TRANSFIXED;<>; 'O:DISABLEINPUT;I\DM_TR |
|
| 1 | 0.0 | Work 15 | I | 0 | 61, 85 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET |
|
| 1 | 0.0 | Work 16 | I | 0 | 31, 517 | ||
| 1 | 0.0 | Work 17 | I | 0 | 71, 517 | ||
| 1 | 0.0 | Label 18 | T | -1 | 521, 349 | ||
| 1 | 0.0 | Label 19 | T | -1 | 571, 157 | ||
| 1 | 0.0 | CMD 20 | C | -1 | 521, 157 | $SELECT S:DEBTOR;I\DM_DEBTOR |
|
| 1 | 0.0 | CMD 21 | C | -1 | 431, 349 | $SELECT S:VAT;I\DM_TRANSVAT |
|
| 1 | 0.0 | Label 22 | T | 0 | 161, 517 | ||
| 1 | 0.0 | Work 26 | I | 0 | 111, 517 | ||
| 1 | 0.0 | Work 1 | I | -1 | 401, 193 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |