Program drill-down
BYR_AGEING_LIST_PTA
BUYER AGEING LISTING. Type DSP, base table DEBTOR_MAST.
Field inventory
40
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CMD 12 | C | -1 | 351, 397 | $SELECT A:CONST;PROCESING ...;T\PROG 'PATH THEN FOLLOWED BY PRINTING NAME THEN FOLLOWED BY PARAMETERS THEN LASTLY THE OUTPUT TYPE IE: S OR P OR Y E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_DEBTORS_AGEING_PTA;$I\MARKET$,$I\BUYER$,$I\TYPE$,$I\BYR_TYPE$,$I\FDATE$,$I\TDATE$,$I\BAL_TYPE$,$K\SEFA$,$K\DEF |
|
| 1 | 0.0 | CMD 16 | C | -1 | 451, 109 | $SELECT S:DEBTOR;I\BUYER |
|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | Work 10 | I | -1 | 351, 109 | $SELECT S:DEBTOR;I\BUYER $VALIDATE A:CONST;;T\PROG,T\NAME,W\TYPE I:I\BUYER;<>; F:DEBTOR_MAST;Y;;T\NAME=DM_NAME,W\TYPE=DM_ACCTYPE,I\TYPE=DM_ACCTYPE;DM_DEBTOR='$I\BUYER$';I\BUYER |
|
| 1 | 0.0 | Work 11 | I | -1 | 351, 145 | $VALIDATE A:CONST;;T\PROG,T\ACC_NAME I:I\TYPE;<>; DO(01) C:UCASE I:W\TYPE;<>; DO(W) I:W\TYPE;<>;I\TYPE D:ENTER THE SAME BUYER TYPE AS THAT OF BUYER ENTERED;ERRORM;I\BUYER DOEND(W) F:ACCOUNT_TYPE;Y;;T\ACC_NAME=AT_DESC;AT_CODE='$I\TYPE$';I\TYPE DOEND(01) |
|
| 1 | 0.0 | Work 19 | I | 0 | 11, 337 | ||
| 1 | 0.0 | Work 17 | I | 0 | 1, 61 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORGS;;I\ORGS '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 '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\ |
|
| 1 | 0.0 | Work 18 | I | 0 | 31, 61 | $DEFAULT 'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS A:DATE;DD MMM YYYY;T\DATE A:DATE;DD MMM YYYY;I\FDATE A:DATE;DD MMM YYYY;I\TDATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 |
|
| 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 | 301, 49 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 7 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 251, 109 | ||
| 1 | 0.0 | Label 9 | T | -1 | 251, 145 | ||
| 1 | 0.0 | Label 13 | T | -1 | 301, 433 | ||
| 1 | 0.0 | Label 14 | T | -1 | 491, 145 | ||
| 1 | 0.0 | Label 15 | T | -1 | 491, 109 | ||
| 1 | 0.0 | Label 1 | T | -1 | 251, 217 | ||
| 1 | 0.0 | Label 2 | T | -1 | 251, 253 | ||
| 1 | 0.0 | Label 3 | T | -1 | 251, 289 | ||
| 1 | 0.0 | Work 4 | I | -1 | 351, 217 | $VALIDATE I:I\FDATE;=; A:DATE;DD MMM YYYY;I\FDATE |
|
| 1 | 0.0 | Work 5 | I | -1 | 351, 253 | $VALIDATE I:I\TDATE;=; A:DATE;DD MMM YYYY;I\TDATE |
|
| 1 | 0.0 | Work 6 | I | -1 | 421, 289 | $VALIDATE C:UCASE V:Y;N; O:SETFOCUS;C\RUN O:BACKCOLOR;C\RUN;YELLOW |
|
| 1 | 0.0 | Label 1 | T | -1 | 251, 181 | ||
| 1 | 0.0 | Work 2 | I | -1 | 351, 181 | $SELECT S:DEBTOR_TYPE;I\BYR_TYPE $VALIDATE A:CONST;;T\BYR_TYPE I:I\BYR_TYPE;<>; DO(01) C:UCASE F:DEBTOR_TYPE;Y;;T\BYR_TYPE=DT_DESC;DT_TYPE='$I\BYR_TYPE$';I\BYR_TYPE DOEND(01) |
|
| 1 | 0.0 | Label 3 | T | -1 | 431, 181 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 391, 181 | $SELECT S:DEBTOR_TYPE;I\BYR_TYPE |
|
| 1 | 0.0 | CMD 5 | C | -1 | 451, 145 | ||
| 1 | 0.0 | Check 1 | K | -1 | 421, 325 | ||
| 1 | 0.0 | Check 2 | K | -1 | 421, 361 | $VALIDATE O:BACKCOLOR;C\RUN;YELLOW O:SETFOCUS;C\RUN |
|
| 1 | 0.0 | Label 3 | T | -1 | 251, 325 | ||
| 1 | 0.0 | Label 4 | T | -1 | 251, 361 | ||
| 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 |