Program drill-down
BUYERS_ACCOUNTS
BUYERS ACCOUNTS. Type MAN, base table DEBTOR_TRANS.
Field inventory
40
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 | Work 1 | I | 0 | 1, 97 | ||
| 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 | 311, 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 | 241, 145 | ||
| 1 | 0.0 | Label 9 | T | -1 | 241, 181 | ||
| 1 | 0.0 | Label 10 | T | -1 | 241, 217 | ||
| 1 | 0.0 | Work 11 | I | -1 | 371, 145 | $CALCULATE M: I:I\MARKET;<>;39 DO(FL1) I:I\AGENT;<>; D:AGENTS ARE NOT ALLOWED TO RUN THIS SCREEN;ERRORM;I\SDATE DOEND(FL1) $PRINT I:I\MARKET;<>;39 DO(FL1) I:I\AGENT;<>; D:AGENTS ARE NOT ALLOWED TO RUN THIS SCREEN;ERRORM;I\SDATE DOEND(FL1) I:I\SDATE;=; D:PLEASE SPECIFY A STARTING DATE;ERRORM;I\ |
|
| 1 | 0.0 | Label 1 | T | -1 | 241, 253 | ||
| 1 | 0.0 | Work 2 | I | -1 | 371, 253 | $SELECT S:BUYER_TYPE;I\DT_TYPE $VALIDATE C:UCASE I:I\DT_TYPE;<>; F:DEBTOR_TYPE;Y;;T\DT_DESC=DT_DESC;DT_TYPE='$I\DT_TYPE$';I\DT_TYPE |
|
| 1 | 0.0 | Work 12 | I | -1 | 371, 181 | $CALCULATE M: |
|
| 1 | 0.0 | Work 13 | I | -1 | 371, 217 | $SELECT S:ACCOUNT;I\TYPE $CALCULATE C:UCASE 'F:ACCOUNT_TYPE;;;T\DESC=AT_DESC;AT_CODE='$I\TYPE$';I\TYPE 'SB 20120215 I:I\TYPE;<>; F:ACCOUNT_TYPE;Y;;T\DESC=AT_DESC;AT_CODE='$I\TYPE$';I\TYPE 'JD 20110817 F:ZV_USER_DEFAULTS;;;I\OUT=ZV_TEXT;ZV_CODE='DEBTORS_OUT' I:I\OUT;=;Y D:BUYERS OUT, PLEASE CORRECT |
|
| 1 | 0.0 | Label 7 | T | -1 | 531, 289 | ||
| 1 | 0.0 | CMD 14 | C | -1 | 481, 217 | $SELECT S:ACCOUNT;I\TYPE |
|
| 1 | 0.0 | Work 15 | I | 0 | 1, 61 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'LOAD MARKET CODE A:ORG;;I\MARKET I:I\MARKET;<>;18 DO(MAA) I:I\MARKET;<>;11 O:HIDE;I\DT_TYPE,T\DT_DESC,C\DT_TYPE,T\DT_TYPE,T\SEND_MAIL,I\SEND_MAIL I:I\MARKET;=;11 O:HIDE;T\SEND_MAIL,I\SEND_MAIL DOEND(MAA) I:I\MARKET;= |
|
| 1 | 0.0 | Work 16 | I | 0 | 21, 61 | ||
| 1 | 0.0 | Label 17 | T | -1 | 531, 217 | ||
| 1 | 0.0 | DEBTOR_TRANS | DT_TRVAT | I | 0 | 41, 61 | |
| 1 | 0.0 | Label 1 | T | -1 | 341, 445 | ||
| 1 | 0.0 | Label 1 | T | -1 | 241, 289 | ||
| 1 | 0.0 | Work 5 | I | -1 | 371, 289 | $SELECT S:BUYER_GROUP1;I\BUYER_GROUP $VALIDATE I:I\BUYER_GROUP;<>; F:BUYER_GROUP;Y;;T\GROUP_DESC=BG_DESC;BG_CODE='$I\BUYER_GROUP$';I\BUYER_GROUP |
|
| 1 | 0.0 | CMD 3 | C | -1 | 481, 253 | $SELECT S:BUYER_TYPE;I\DT_TYPE |
|
| 1 | 0.0 | Label 4 | T | -1 | 531, 253 | ||
| 1 | 0.0 | Work 4 | I | -1 | 371, 397 | $VALIDATE I:I\FROM_AMOUNT;>;0 DO(1) I:I\TO_AMOUNT;<=;0 D:ENTER TO AMOUNT;ERRORM;I\TO_AMOUNT DOEND(1) I:I\TO_AMOUNT;>;0 DO(2) A:VAR;I\TO_AMOUNT;I\TO_AMOUNT;;#0.00 I:I\FROM_AMOUNT;<=;0 D:ENTER FROM AMOUNT TO PROCEEDE;ERRORM;I\FROM_AMOUNT DOEND(2) I:I\TO_AMOUNT;<;I\FROM_AMOUNT D:TO AMOUNT CAN NOT BE LES |
|
| 1 | 0.0 | Work 2 | I | -1 | 371, 325 | $VALIDATE C:UCASE I:I\DUMP;=; A:CONST;N;I\DUMP V:Y;N |
|
| 1 | 0.0 | Label 1 | T | -1 | 241, 325 | ||
| 1 | 0.0 | CMD 6 | C | -1 | 481, 289 | $SELECT S:BUYER_GROUP1;I\BUYER_GROUP |
|
| 1 | 0.0 | Label 1 | T | -1 | 241, 361 | ||
| 1 | 0.0 | Label 2 | T | -1 | 241, 397 | ||
| 1 | 0.0 | Work 3 | I | -1 | 371, 361 | $VALIDATE I:I\FROM_AMOUNT;<=;0 A:CONST;;I\FROM_AMOUNT I:I\FROM_AMOUNT;<>; A:VAR;I\FROM_AMOUNT;I\FROM_AMOUNT;;#0.00 |
|
| 1 | 0.0 | Work 2 | I | 0 | 91, 289 | ||
| 1 | 0.0 | Label 1 | T | 0 | 91, 313 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | $ESC O:SETFOCUS;I\TYPE |
|
| 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 | $BEFORE_WRITE ''''''''''U:BUYERS_ACCOUNTS;GET_DATA 'JD 20090816 I:I\DUMP;<>;Y DO(11) A:CONST;COLLECTING DATA...;T\PROGRESS I:I\MARKET;=;11 'U:BUYERS_ACCOUNTS_NEW;GET_DATA '========= COMMENTED BY SIYA TO CALL PRINTING DIRECT 20171114 E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT= |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |