Program drill-down
SINGLE_JOURNAL
SINGLE ENTRY JOURNAL. Type DSP, base table DEBTOR_TRANS.
Field inventory
38
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 | 291, 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 | 171, 205 | ||
| 1 | 0.0 | CMD 9 | C | -1 | 401, 133 | $SELECT S:DEBTOR;I\BUYER |
|
| 1 | 0.0 | TRANS | I | -1 | 301, 205 | $CALCULATE A:VAR;I\TRANS;I\TRANS;;00 V:04;11 I:I\TRANS;=;04 DO(041) A:CONST;DEBIT JOURNAL;T\DESC O:BACKCOLOR;T\DESC;RED DOEND(041) I:I\TRANS;=;11 DO(110) A:CONST;CREDIT JOURNAL;T\DESC O:BACKCOLOR;T\DESC;BLUE DOEND(110) |
|
| 1 | 0.0 | Label 11 | T | -1 | 171, 133 | ||
| 1 | 0.0 | BUYER | I | -1 | 301, 133 | $SELECT S:DEBTOR;I\BUYER $CALCULATE M: C:UCASE F:DEBTOR_MAST;Y;;I\ACCTYPE=DM_ACCTYPE,I\BAL=DM_OSBAL,T\NAME=DM_NAME,I\DM_DTYPE=DM_DTYPE;DM_DEBTOR='$I\BUYER$';I\BUYER I:I\DM_DTYPE;=;F D:TRANSACTING AGAINST THIS BUYER IS PROHIBITED.;ERRORM;I\BUYER 'CHECK IF DEBTOR IS THIS CASHIER'S ACCOUNT F:CASH_MAST;;;I |
|
| 1 | 0.0 | Work 1 | I | 0 | 11, 85 | ||
| 1 | 0.0 | Label 14 | T | -1 | 171, 241 | ||
| 1 | 0.0 | Label 21 | T | -1 | 411, 205 | ||
| 1 | 0.0 | AMOUNT | I | -1 | 301, 241 | $CALCULATE M: I:I\AMOUNT;<=;0 D:AMOUNT MUST BE GREATER THAN ZERO;ERRORM;I\AMOUNT $ESC A:CONST;04 = DEB, 11 = CRED;T\DESC O:BACKCOLOR;T\DESC;GREY |
|
| 1 | 0.0 | Label 17 | T | -1 | 171, 169 | ||
| 1 | 0.0 | BAL | I | -1 | 301, 169 | ||
| 1 | 0.0 | CMD 19 | C | -1 | 651, 541 | $SELECT A:VAR;I\TRANS;I\TRANS;;00 I:I\BUYER;=; D:BUYER NUMBER IS MANDATORY;ERRORM;I\BUYER I:I\DM_DTYPE;=;F D:TRANSACTING AGAINST THIS BUYER IS PROHIBITED.;ERRORM;I\BUYER 'CHECK IF DEBTOR IS THIS CASHIER'S ACCOUNT F:CASH_MAST;;;I\CASH=CSH_CASHIER;CSH_DEBTOR='$I\BUYER$' I:I\CASH;=;I\USERID D:JOURNALS MAY N |
|
| 1 | 0.0 | Work 1 | I | -1 | 301, 349 | $VALIDATE I:I\MARKET;=;18 DO(188) I:I\CODE;<>; DO(0) F:CASH_TRANS_REMARK;Y;;T\CODE_DESC=CTR_DESC;CTR_CODE ='$I\CODE$';I\CODE DOEND(0) DOEND(188) O:BACKCOLOR;C\CREATE;YELLOW O:SETFOCUS;C\CREATE |
|
| 1 | 0.0 | Label 2 | T | -1 | 171, 349 | ||
| 1 | 0.0 | Label 1 | T | -1 | 171, 313 | ||
| 1 | 0.0 | Label 20 | T | -1 | 441, 133 | ||
| 1 | 0.0 | Work 23 | I | 0 | 11, 61 | $DEFAULT O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE 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 'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS A:DATE;DD MMM Y |
|
| 1 | 0.0 | Work 1 | I | 0 | 81, 133 | ||
| 1 | 0.0 | Label 1 | T | -1 | 171, 277 | ||
| 1 | 0.0 | MSG | I | -1 | 301, 277 | $CALCULATE C:UCASE I:I\MARKET;<>;18 DO(OTHER) O:BACKCOLOR;C\CREATE;YELLOW O:SETFOCUS;C\CREATE DOEND(OTHER) |
|
| 1 | 0.0 | Work 24 | I | 0 | 31, 61 | $DEFAULT A:ORGS;;I\ORGS I:I\ORGS;<>; DO(BEQ) O:DISABLEINPUT;I\BUYER,I\TRANS,I\AMOUNT,C\CREATE D:AGENTS MAY NOT RUN THIS SCREEN!;ERRORM;I\BUYER DOEND(BEQ) |
|
| 1 | 0.0 | Work 2 | I | -1 | 301, 313 | $VALIDATE C:UCASE V:Y;N |
|
| 1 | 0.0 | CASH | I | 0 | 161, 61 | ||
| 1 | 0.0 | ACCTYPE | I | 0 | 181, 61 | ||
| 1 | 0.0 | USERID | I | 0 | 51, 61 | $DEFAULT A:USERID;;I\USERID |
|
| 1 | 0.0 | Label 1 | T | -1 | 411, 349 | ||
| 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 |