Program drill-down
SUB_BUYER_CRLIMIT
SUB BUYER CREDIT LIMIT ALLOCATION. Type DSP, base table BUYER_SUBS.
Field inventory
31
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 | Label 1 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 5 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 7 | T | -1 | 241, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 261, 169 | ||
| 1 | 0.0 | BUYER_SUBS | SUBS_MAIN_DEBTOR | I | -1 | 361, 169 | $SELECT S:MAIN_DEBTOR;I\SUBS_MAIN_DEBTOR $VALIDATE A:CONST;;T\NAME,W\CRLIMIT 'U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SUBS_SUB_BUYER,I\SUBS_SUB_CRLIMIT,I\CRLIMIT:H U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SUBS_SUB_BUYER,I\CRLIMIT:H,I\SUBS_SUB_CRLIMIT M: F:DEBTOR_MAST;Y;;T\NAME=DM_NAME,W\CRLIMIT=DM_CRLIMIT;DM_MARKET=' |
| 1 | 0.0 | Label 10 | T | -1 | 461, 169 | ||
| 1 | 0.0 | Label 11 | T | -1 | 261, 205 | ||
| 1 | 0.0 | Label 12 | T | -1 | 391, 205 | ||
| 1 | 0.0 | BUYER_SUBS | SUBS_SUB_BUYER | I | -1 | 261, 229 | $SELECT S:SUB_BUYER;I\SUBS_SUB_BUYER;I\MARKET;I\SUBS_MAIN_DEBTOR $VALIDATE 'M: I:I\SUBS_SUB_BUYER;<>; F:DEBTOR_MAST;Y;;;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\SUBS_SUB_BUYER$' AND DM_MAIN_DEBTOR='$I\SUBS_MAIN_DEBTOR$';I\SUBS_SUB_BUYER I:I\SUBS_SUB_BUYER;=; DO(03) O:DISABLEINPUT;I\SUBS_SUB_CRLIMIT O:BACKC |
| 1 | 0.0 | BUYER_SUBS | SUBS_SUB_CRLIMIT | I | -1 | 391, 229 | $VALIDATE M: 'I:I\SUBS_SUB_CRLIMIT;<>; 'DO(1) 'F:BUYER_SUBS;;;W\SUBS_TOT_LIMIT=SUM(SUBS_SUB_CRLIMIT) AS TOTAL;SUBS_MAIN_DEBTOR='$I\SUBS_MAIN_DEBTOR$' AND SUBS_SUB_BUYER <> '$I\SUBS_SUB_BUYER$' 'A:VAR;W\SUBS_TOT_LIMIT;W\SUBS_TOT_LIMIT;;#0.00 'A:ADD;W\SUBS_TOT_LIMIT;W\SUBS_TOT_LIMIT;I\SUBS_SUB_CRLIMIT;#0.00 'U:C |
| 1 | 0.0 | Work 16 | G | -1 | 261, 253 | ||
| 1 | 0.0 | CMD 17 | C | -1 | 361, 229 | $SELECT S:SUB_BUYER;I\SUBS_SUB_BUYER;I\MARKET;I\SUBS_MAIN_DEBTOR |
|
| 1 | 0.0 | Work 18 | I | 0 | 1, 73 | $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 'INITIALISES THE GRID, AND FILLS IT WITH DATA U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SUBS_SUB_BUYER,I\CRLIMIT:H,I\SUBS_SUB_CRLIMIT 'PUTS PIC ON THE UPDATE BUTTON O:LOADPIC; |
|
| 1 | 0.0 | Work 19 | I | 0 | 1, 97 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MKT |
|
| 1 | 0.0 | Work 25 | I | 0 | 1, 205 | ||
| 1 | 0.0 | Work 26 | I | 0 | 1, 229 | ||
| 1 | 0.0 | Work 21 | I | 0 | 1, 133 | $DEFAULT A:ORGS;;I\ORGS A:CONST;$I\ORGS$;I\AGENT 'I:I\ORGS;<>; 'DO(03) ''O:DISABLEINPUT;I\AGENT 'F:AGENT_MAST;;;T\NAME=AM_NAME,W\AGN_LIM_TOT=AM_PRO_LIMIT;AM_CODE='$I\ORGS$' 'U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;BUYER_SUBS,SUBS_MAIN_DEBTOR='$I\SUBS_MAIN_DEBTOR$' ORDER BY PS_SECT ASC 'DOEND(03) |
|
| 1 | 0.0 | Work 24 | I | 0 | 1, 169 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 253 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 651, 546 | $SELECT I:I\SUBS_MAIN_DEBTOR;=; D:MAIN BUYER IS A MANDATORY FIELD;ERRORM;I\SUBS_MAIN_DEBTOR I:I\SUBS_MAIN_DEBTOR;<>; F:DEBTOR_MAST;Y;;T\NAME=DM_NAME,W\CRLIMIT=DM_CRLIMIT;DM_MARKET='$I\MARKET$' AND DM_DEBTOR='$I\SUBS_MAIN_DEBTOR$' AND (DM_MAIN_DEBTOR = '' OR ISNULL(DM_MAIN_DEBTOR));I\SUBS_MAIN_DEBTOR I:I\ |
|
| 1 | 0.0 | BUYER_SUBS | SUBS_SUB_CRLIMIT | I | 0 | 351, 253 | |
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |