Program drill-down
DEBTOR_ENQ
DEBTOR ENQUIRY SCREEN. Type DSP, base table DEBTOR_MAST.
Field inventory
111
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | LEN | I | 0 | 31, 541 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_120 | I | -1 | 621, 505 | |
| 1 | 0.0 | DEBTOR_MAST | DM_60 | I | -1 | 421, 505 | |
| 1 | 0.0 | DEBTOR_MAST | DM_90 | I | -1 | 521, 505 | |
| 1 | 0.0 | DEBTOR_MAST | DM_OSBAL | I | -1 | 111, 505 | |
| 1 | 0.0 | DEBTOR_MAST | DM_CURR | I | -1 | 221, 505 | |
| 1 | 0.0 | DEBTOR_MAST | DM_30 | I | -1 | 321, 505 | |
| 1 | 0.0 | Label 7 | T | -1 | 621, 481 | ||
| 1 | 0.0 | Label 6 | T | -1 | 521, 481 | ||
| 1 | 0.0 | Label 3 | T | -1 | 211, 481 | ||
| 1 | 0.0 | Label 4 | T | -1 | 321, 481 | ||
| 1 | 0.0 | Label 5 | T | -1 | 421, 481 | ||
| 1 | 0.0 | Label 2 | T | -1 | 111, 481 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 505 | ||
| 1 | 0.0 | Label 2 | T | -1 | 641, 85 | ||
| 1 | 0.0 | CMD 3 | C | 0 | 601, 85 | $SELECT S:MAIN_DEBTOR;I\DM_MAIN_DEBTOR |
|
| 1 | 0.0 | DEBTOR_MAST | DM_MAIN_DEBTOR | I | -1 | 481, 85 | $SELECT S:MAIN_DEBTOR;I\DM_MAIN_DEBTOR $VALIDATE I:I\DM_MAIN_DEBTOR;<>; DO(RAI) I:I\DM_MAIN_DEBTOR;=;I\DM_DEBTOR D:DEBTOR AND MAIN DEBTOR CANNOT BE THE SAME;ERRORM;I\DM_MAIN_DEBTOR ' F:DEBTOR_MAST;Y;;T\MAIN_DESC=DM_NAME;DM_DEBTOR='$I\DM_MAIN_DEBTOR$' AND ISNULL(DM_MAIN_DEBTOR);I\DM_MAIN_DEBTOR F:DEBTOR_M |
| 1 | 0.0 | Label 1 | T | -1 | 621, 193 | ||
| 1 | 0.0 | POINT | I | 0 | 231, 49 | ||
| 1 | 0.0 | AGENT | I | 0 | 71, 541 | ||
| 1 | 0.0 | CASHIER | I | 0 | 121, 145 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_TITLE | D | -1 | 481, 121 | $DEFAULT 'ADD ITEMS INTO THE COMBOBOX B:ADDITEM;D\DM_TITLE;MR,MRS,MISS,DR,PROF,REV,SIR $VALIDATE 'MANDATORY 'M: 'UPPERCASE C:UCASE 'VALIDATE THE LANGUAGE I:D\DM_TITLE;<>; B:VALIDATE;D\DM_TITLE;MR,MRS,MISS,DR,PROF,REV,SIR |
| 1 | 0.0 | CMD 1 | C | 0 | 591, 193 | $SELECT S:BUYER_GROUP;I\DM_GROUP |
|
| 1 | 0.0 | DEBTOR_MAST | DM_BLOCKED | I | -1 | 111, 337 | $VALIDATE 'UPPERCASE 'C:UCASE 'VALIDATE THE FIELD 'V:Y;N; 'DEFAULT TO 'N' 'I:I\DM_BLOCKED;=; 'A:CONST;N;I\DM_BLOCKED |
| 1 | 0.0 | DEBTOR_MAST | DM_MAIN_DEBTOR | T | -1 | 371, 85 | |
| 1 | 0.0 | TEMP | I | 0 | 51, 541 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_IDNO | I | -1 | 111, 265 | $VALIDATE 'A:CONST;;W\ID 'MANDATORY 'I:D\DM_ACCTYPE;=;SC 'M: 'I:D\DM_ACCTYPE;=;CR 'DO(02) 'I:I\DM_DTYPE;<>;C 'M: 'DOEND(02) 'UPPERCASE 'C:UCASE 'I:I\MARKET;=;18 'DO(DBN) 'M: 'F:DEBTOR_MAST;;;W\ID=DM_IDNO;DM_IDNO='$I\DM_IDNO$' AND DM_DEBTOR <> '$I\DM_DEBTOR$' 'I:W\ID;=;I\DM_IDNO 'D:T |
| 1 | 0.0 | EXIST | I | 0 | 161, 541 | ||
| 1 | 0.0 | Label 47 | T | -1 | 1, 337 | ||
| 1 | 0.0 | Label 38 | T | -1 | 341, 409 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_REMARK | I | -1 | 111, 445 | $VALIDATE 'UPPERCASE 'C:UCASE |
| 1 | 0.0 | Label 34 | T | -1 | 581, 157 | ||
| 1 | 0.0 | Work 1 | I | 0 | 311, 553 | ||
| 1 | 0.0 | T | -1 | 371, 157 | |||
| 1 | 0.0 | DEBTOR_MAST | DM_ACCTYPE | D | -1 | 481, 157 | $DEFAULT 'LOAD DATA ON THE COMBOBOX B:READTABLE;D\DM_ACCTYPE;ACCOUNT_TYPE;AT_CODE;SELECT CONCAT(AT_CODE,'-',AT_DESC) AS AT_CODE FROM ACCOUNT_TYPE WHERE AT_BLOCKED <> 'Y' $VALIDATE 'MANDATORY M: 'UPPERCASE C:UCASE U:DEBTOR_FUNCTIONS;STRIP_DESC;D\DM_ACCTYPE 'VALIDATE THE ACCOUT TYPE AND LOAD THE DESCRIPT |
| 1 | 0.0 | DEBTOR_MAST | DM_DTYPE | I | -1 | 111, 157 | |
| 1 | 0.0 | T | -1 | 1, 157 | |||
| 1 | 0.0 | CMD 3 | C | 0 | 141, 157 | $SELECT S:DEBTOR_TYPE;I\DM_DTYPE |
|
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | I | -1 | 111, 85 | $SELECT S:DEBTOR;I\DM_DEBTOR $VALIDATE 'MANDATORY M: 'UPPERCASE C:UCASE F:DEBTOR_MAST;Y;DM_DEBTOR;;;I\DM_DEBTOR U:PAID_SALES_TO_DATE;SEARCH I:I\DM_MARKET;=;15 DO(P) O:SETFOCUS;C\PRINT O:BACKCOLOR;C\PRINT;YELLOW DOEND(P) '$AFTER_READ 'LOAD THE DATES 'F:DEBTOR_MAST;;DM_DEBTOR;T\DM_SB_DATE= |
| 1 | 0.0 | DEBTOR_MAST | DM_REFUND_BLOCK | I | -1 | 111, 409 | $AFTER_READ 'I:I\DM_REFUND_BLOCK;=; 'A:CONST;N;I\DM_REFUND_BLOCK 'I:I\DM_REFUND_BLOCK;=;N 'DO(Z4) 'A:CONST;;I\DM_RB_REASON,T\REASON2,T\DM_RB_DATE 'O:HIDE;I\DM_RB_REASON,C\RREASON,T\REASON2,T\DM_RB_REASON,T\RB_DATE,T\DM_RB_DATE 'DOEND(Z4) 'I:I\DM_REFUND_BLOCK;=;Y 'DO(Z4) 'A:CONST;;I\DM_RB_REASON,T\REASON2, |
| 1 | 0.0 | Label 3 | T | -1 | 371, 277 | ||
| 1 | 0.0 | Work 4 | I | -1 | 481, 277 | ||
| 1 | 0.0 | CASHP | I | 0 | 191, 49 | ||
| 1 | 0.0 | USERIP | I | 0 | 211, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 371, 253 | ||
| 1 | 0.0 | Label 2 | T | 0 | 191, 337 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 301 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_JDATE | I | -1 | 111, 301 | |
| 1 | 0.0 | Label 1 | T | -1 | 371, 229 | ||
| 1 | 0.0 | T | -1 | 1, 373 | |||
| 1 | 0.0 | Label 4 | T | -1 | 181, 157 | ||
| 1 | 0.0 | T | -1 | 371, 193 | |||
| 1 | 0.0 | DEBTOR_MAST | DM_SB_DATE | T | -1 | 621, 385 | |
| 1 | 0.0 | DEBTOR_MAST | DM_GROUP | I | -1 | 481, 193 | $SELECT S:BUYER_GROUP;I\DM_GROUP $VALIDATE A:CONST;;T\DM_GROUP_DESC 'MANDATORY 'M: 'UPPERCASE C:UCASE I:I\DM_GROUP;<>; F:BUYER_GROUP;Y;BG_CODE;T\DM_GROUP_DESC=BG_DESC;BG_DELIND<>'Y';I\DM_GROUP $AFTER_READ I:I\DM_GROUP;<>; F:BUYER_GROUP;Y;BG_CODE;T\DM_GROUP_DESC=BG_DESC;BG_DELIND<>'Y';I\DM_GROUP |
| 1 | 0.0 | DEBTOR_MAST | DM_RB_REASON | I | -1 | 301, 409 | |
| 1 | 0.0 | DEBTOR_MAST | DM_SB_REASON | I | -1 | 301, 373 | $AFTER_READ 'A:CONST;;T\REASON 'DISPLAY THE REASON DESCRIPTION I:I\DM_SB_REASON;<>; F:REASON_MAST;;;T\REASON=RSN_DESC;RSN_REASON='$I\DM_SB_REASON$' AND RSN_TYPE = 'BL';I\DM_SB_REASON 'DISPLAY THE REASON DATE 'I:I\DM_SB_REASON;<>; ' DO(1) ' F:DEBTOR_MAST;;;T\DM_SB_DATE=DM_SB_DATE;DM_MARKET='$I\MARKET |
| 1 | 0.0 | DEBTOR_MAST | DM_CRLIMIT | I | -1 | 581, 361 | |
| 1 | 0.0 | DEBTOR_MAST | DM_CRLIM_PERC | I | -1 | 681, 361 | |
| 1 | 0.0 | Label 3 | T | -1 | 581, 229 | ||
| 1 | 0.0 | Label 5 | T | -1 | 371, 301 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 641, 545 | $SELECT I:I\DM_MARKET;=;15 DO(FBZ) U:CALL_BUYER_ENQ_PRT;CALL DOEND(FBZ) I:I\DM_MARKET;<>;15 DO(FCZ) E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_DEBTORS_ENQ;$I\DM_MARKET$,$I\DM_DEBTOR$,S DOEND(FCZ) O:SETFOCUS;I\DM_DEBTOR |
|
| 1 | 0.0 | Label 1 | T | -1 | 581, 301 | ||
| 1 | 0.0 | Work 2 | I | -1 | 691, 301 | ||
| 1 | 0.0 | Label 1 | T | -1 | 581, 277 | ||
| 1 | 0.0 | Work 2 | I | -1 | 691, 277 | ||
| 1 | 0.0 | Label 3 | T | -1 | 581, 253 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_PURCH_DATE | I | -1 | 481, 253 | |
| 1 | 0.0 | DEBTOR_MAST | DM_LPDATE | I | -1 | 481, 229 | |
| 1 | 0.0 | T | -1 | 1, 229 | |||
| 1 | 0.0 | DEBTOR_MAST | DM_NAME | I | -1 | 111, 121 | $VALIDATE 'MANDATORY M: 'UPPERCASE C:UCASE |
| 1 | 0.0 | CLIENT_MAST | CM_CODE | T | -1 | 1, 25 | |
| 1 | 0.0 | T | -1 | 1, 121 | |||
| 1 | 0.0 | CLIENT_MAST | CM_ADD1 | T | 0 | 71, 49 | |
| 1 | 0.0 | CMD 5 | C | 0 | 151, 229 | $SELECT S:ENTRY;I\DM_ENTRYTYP |
|
| 1 | 0.0 | Label 1 | T | -1 | 1, 85 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | T | -1 | 1, 265 | |||
| 1 | 0.0 | Label 8 | T | -1 | 321, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_ENTRYTYP | I | -1 | 111, 229 | $SELECT 'S:ENTRY;I\DM_ENTRYTYP '$VALIDATE 'MANDATORY 'M: 'UPPERCASE C:UCASE 'VALIDATE THE ENTRY TYPE AND LOAD THE DESCRIPTION 'I:I\DM_ENTRYTYP;<>; 'F:ENTRY_TYPE;Y;;T\ENTRY=ET_DESC;ET_TYPE='$I\DM_ENTRYTYP$';I\DM_ENTRYTYP $AFTER_READ 'A:CONST;;T\ENTRY 'VALIDATE THE ENTRY TYPE AND LOAD THE DESCRI |
| 1 | 0.0 | Label 4 | T | -1 | 1, 445 | ||
| 1 | 0.0 | Label 48 | T | -1 | 501, 385 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_RB_DATE | T | -1 | 621, 421 | |
| 1 | 0.0 | Label 6 | T | -1 | 191, 229 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_MARKET | I | 0 | 11, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\DM_MARKET A:USERIP;;I\USERIP 'GETS CASH POINT F:CASH_POINT;;;I\CASHP=CPO_CASHPT;CPO_IP='$I\USERIP$' AND CPO_MARKET='$I\DM_MARKET$'; 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,T\MARKET2=CM_NAME,T\MARKET3=CM_NAME,W\CM_TRAN_FEE=CM_TRAN_FEE 'CONVERT ONLY T |
| 1 | 0.0 | DEBTOR_MAST | DM_SC_UNSEC | I | -1 | 111, 193 | $VALIDATE C:UCASE V:Y;N; I:I\DM_SC_UNSEC;=; A:CONST;N;I\DM_SC_UNSEC I:I\PARM;=;HEA DO(FUK) I:I\DM_SC_UNSEC;=;N D:HEAD CASHIERS MAY ONLY EDIT/CREATE UNREGISTERED SC BUYERS;ERRORM;I\DM_SC_UNSEC DOEND(FUK) |
| 1 | 0.0 | DEBTOR_MAST | DM_SC_UNSEC | T | -1 | 1, 193 | |
| 1 | 0.0 | PARM | I | 0 | 131, 49 | $DEFAULT U:MENU_GROUP;LOOKUP |
|
| 1 | 0.0 | T | -1 | 341, 373 | |||
| 1 | 0.0 | DEBTOR_MAST | DM_SALE_BLOCK | I | -1 | 111, 373 | $AFTER_READ 'I:I\DM_SALES_BLOCK;=; 'A:CONST;N;I\DM_SALES_BLOCK 'I:I\DM_SALE_BLOCK;=;N 'DO(Z4) 'A:CONST;;I\DM_SB_REASON,T\REASON,T\DM_SB_DATE 'O:HIDE;I\DM_SB_REASON,C\SREASON,T\REASON,T\DM_SB_REASON,T\SB_DATE 'DOEND(Z4) 'I:I\DM_SALE_BLOCK;=;Y 'DO(Z4) 'A:CONST;;I\DM_RB_REASON,T\REASON2,T\DM_RB_DATE 'O:SHOW;I |
| 1 | 0.0 | Label 1 | T | -1 | 371, 337 | ||
| 1 | 0.0 | CALC_CRLIM | I | -1 | 481, 361 | $AFTER_READ '=========================== 'NEW CALCULATION JD 20150513 '=========================== A:MULT;I\DM_CRLIMIT;I\CALC_CRLIM;I\DM_CRLIM_PERC A:DIV;I\CALC_CRLIM;I\CALC_CRLIM;100 A:VAR;I\CALC_CRLIM;I\CALC_CRLIM;;#0.00 |
|
| 1 | 0.0 | Work 4 | I | -1 | 691, 229 | ||
| 1 | 0.0 | Work 6 | I | -1 | 481, 301 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_CRLIMIT | I | 0 | 291, 337 | |
| 1 | 0.0 | Work 6 | I | -1 | 691, 253 | ||
| 1 | 0.0 | T | -1 | 201, 373 | |||
| 1 | 0.0 | T | -1 | 1, 409 | |||
| 1 | 0.0 | T | -1 | 201, 409 | |||
| 1 | 0.0 | T | -1 | 501, 421 | |||
| 1 | 0.0 | CMD 2 | C | -1 | 291, 85 | $SELECT S:DEBTOR;I\DM_DEBTOR |
|
| 1 | 0.0 | T | -1 | 371, 121 | |||
| 1 | 0.0 | Label 6 | T | -1 | 681, 337 | ||
| 1 | 0.0 | Label 5 | T | -1 | 581, 337 | ||
| 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 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 |