Program drill-down
BYR_PURCHASE_ENQUIRY
BUYER PURCHASE ENQUIRY. Type DSP, base table STK_TRANS.
Field inventory
39
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 291, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 7 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 10 | T | -1 | 251, 217 | ||
| 1 | 0.0 | Label 11 | T | -1 | 251, 289 | ||
| 1 | 0.0 | Label 12 | T | -1 | 251, 325 | ||
| 1 | 0.0 | Work 14 | I | -1 | 361, 217 | $SELECT S:DEBTOR;I\BUYER $VALIDATE C:UCASE I:I\BUYER;<>; DO(02) O:DISABLEINPUT;I\ACCTYPE,C\ACCTYPE F:DEBTOR_MAST;Y;;I\ACCTYPE=DM_ACCTYPE,T\NAME=DM_NAME;DM_DEBTOR='$I\BUYER$';I\BUYER DOEND(02) I:I\BUYER;=; DO(03) A:CONST;;T\NAME,I\ACCTYPE O:ENABLEINPUT;I\ACCTYPE,C\ACCTYPE DOEND(03) O:SETFOCUS:C\RUN |
|
| 1 | 0.0 | Work 15 | I | -1 | 361, 289 | $VALIDATE I:I\FROMDATE;=; A:DATE;DD MMM YYYY;I\FROMDATE |
|
| 1 | 0.0 | Work 16 | I | -1 | 361, 325 | $VALIDATE I:I\TODATE;=; A:DATE;DD MMM YYYY;I\TODATE |
|
| 1 | 0.0 | Work 17 | I | 0 | 1, 73 | $DEFAULT A:ORG;;I\MARKET A:ORGS;;I\ORGS A:DATE;DD MMM YYYY;T\DATE A:DATE;HH:MM:SS;T\TIME A:DATE;DD MMM YYYY;I\FDATE A:DATE;DD MMM YYYY;I\TDATE F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\MARKET$' A:ORGS;;I\AGENT I:I\ORGS;<>; DO(01) O:DISABLEINPUT;I\AGENT,C\AGENT F:AGENT_MAST;;;T\ANAME=AM_NAME;AM_CO |
|
| 1 | 0.0 | Work 18 | I | 0 | 51, 73 | ||
| 1 | 0.0 | Label 19 | T | -1 | 251, 253 | ||
| 1 | 0.0 | Work 20 | I | -1 | 361, 253 | $SELECT S:ACCOUNT_TYPE;I\ACCTYPE $VALIDATE C:UCASE A:CONST;;T\TRANS_DESC I:I\ACCTYPE;<>; F:ACCOUNT_TYPE;Y;;T\TRANS_DESC=AT_DESC;AT_CODE='$I\ACCTYPE$';I\ACCTYPE |
|
| 1 | 0.0 | CMD 21 | C | -1 | 321, 397 | $SELECT I:I\FROMDATE;=; A:DATE;YYYY MM DD;I\FROMDATE I:I\TODATE;=; A:DATE;YYYY MM DD;I\TODATE A:CONST;PROCESSING;T\PROG E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_BYR_PURCHASE_ENQUIRY;$I\MARKET$,$I\AGENT$,$I\FROMDATE$,$I\TODATE$,$I\BUYER$,$I\ORDER$,$I\ACCTYPE$,$I\SELECT$,S |
|
| 1 | 0.0 | Label 22 | T | -1 | 341, 433 | ||
| 1 | 0.0 | Label 6 | T | -1 | 501, 217 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 461, 217 | $SELECT S:DEBTOR;I\DEBTOR |
|
| 1 | 0.0 | CMD 2 | C | -1 | 461, 253 | $SELECT S:ACCOUNT_TYPE;I\ACCTYPE |
|
| 1 | 0.0 | Label 3 | T | -1 | 501, 253 | ||
| 1 | 0.0 | Label 7 | T | -1 | 251, 361 | ||
| 1 | 0.0 | Work 8 | I | -1 | 361, 361 | $VALIDATE 'V:1;2 I:I\ORDER;<>;1 DO(01) I:I\ORDER;<>;2 D:ENTER 1 TO ORDER BY BUYER CODE OR 2 TO ORDER BY BUYER NAME;ERRORM;I\ORDER DOEND(01) 'DO(02) 'D:ENTER 1 TO ORDER BY BUYER CODE OR 2 TO ORDER BY BUYER NAME;ERRORM;I\ORDER 'DOEND(02) O:SETFOCUS;C\RUN O:BACKCOLOR;C\RUN;YELLOW |
|
| 1 | 0.0 | Label 1 | T | -1 | 241, 145 | ||
| 1 | 0.0 | Work 2 | I | -1 | 361, 145 | $VALIDATE V:1;2 O:SETFOCUS;C\RUN |
|
| 1 | 0.0 | Label 4 | T | -1 | 321, 97 | ||
| 1 | 0.0 | Label 1 | T | -1 | 251, 181 | ||
| 1 | 0.0 | Work 2 | I | -1 | 361, 181 | $SELECT S:AGENT_CODE;I\AGENT $VALIDATE I:I\AGENT;<>; F:AGENT_MAST;Y;AM_CODE;T\ANAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT |
|
| 1 | 0.0 | Label 3 | T | -1 | 161, 97 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 461, 181 | $SELECT S:AGENT_CODE;I\AGENT |
|
| 1 | 0.0 | Label 1 | T | -1 | 501, 181 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 1 |