Program drill-down
REPRINT_CREDIT_NOTE
REPRINT CREDIT NOTE. Type DSP, base table STK_TRANS.
Field inventory
31
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 | 308, 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 | Work 8 | I | 0 | 1, 61 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 A:DATE;DD MMM YYYY;I\TRDATE |
|
| 1 | 0.0 | Label 7 | T | -1 | 541, 217 | ||
| 1 | 0.0 | Work 9 | I | 0 | 21, 61 | $DEFAULT 'LOAD MARKET CODE 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 A:CONST;Y;I\CNOTE |
|
| 1 | 0.0 | Work 10 | I | 0 | 41, 61 | $DEFAULT A:ORGS;;I\AGENT 'I:I\AGENT;<>; 'DO(CC4) ' O:DISABLEINPUT;I\AGENT_CODE,C\AGN ' A:VAR;I\AGENT;I\AGENT_CODE ' F:AGENT_MAST;;;T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT$' 'DOEND(CC4) 'I:I\AGENT;=; 'DO(MA1) ' O:ENABLEINPUT;I\AGENT_CODE,C\AGN 'DOEND(MA1) |
|
| 1 | 0.0 | Work 11 | I | 0 | 61, 61 | $DEFAULT A:USERID;;I\USERID |
|
| 1 | 0.0 | Work 12 | I | 0 | 81, 61 | $DEFAULT A:USERIP;;I\IP |
|
| 1 | 0.0 | Label 14 | T | -1 | 211, 181 | ||
| 1 | 0.0 | Label 15 | T | -1 | 211, 253 | ||
| 1 | 0.0 | Label 13 | T | -1 | 211, 217 | ||
| 1 | 0.0 | Work 16 | I | -1 | 391, 217 | $SELECT S:AGENT_CODE;I\AGENT_CODE $CALCULATE C:UCASE I:I\AGENT_CODE;<>; DO(N32) F:AGENT_MAST;Y;;T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT_CODE$' DOEND(N32) I:I\AGENT_CODE;=; A:CONST;N/A;T\AGN_NAME |
|
| 1 | 0.0 | Work 17 | I | -1 | 391, 253 | ||
| 1 | 0.0 | Work 18 | I | -1 | 391, 181 | $SELECT I:I\AGENT;=; S:CRED_NOTE;I\DOCNO I:I\AGENT;<>; S:CRED_NOTE_AGN;I\DOCNO;I\AGENT $CALCULATE M: F:STK_TRANS;Y;;I\AGENT_CODE=ST_AGENT,I\CONSIGN=ST_CONSIGN,I\TRTYPE=ST_TRTYPE;ST_MARKET='$I\MARKET$' AND ST_DOCNO='$I\DOCNO$' AND (ST_TRTYPE='DE' OR ST_TRTYPE ='DT');I\DOCNO F:AGENT_MAST;;;T\AGN_NAME=AM_NAME; |
|
| 1 | 0.0 | CMD 21 | C | -1 | 501, 181 | $SELECT I:I\AGENT;=; S:CRED_NOTE;I\DOCNO I:I\AGENT;<>; S:CRED_NOTE_AGN;I\DOCNO;I\AGENT |
|
| 1 | 0.0 | CMD 23 | C | -1 | 351, 337 | $ESC O:SETFOCUS;I\DOCNO $SELECT I:I\DOCNO;=; D:PLEASE SPECIFY A DOCNO;ERRORM;I\DOCNO I:I\MARKET;<>;60 U:REPRINT_DOCKETS;CREDIT_NOTE I:I\MARKET;=;60 U:CALL_PRINT_CREDNOTE;CALL;I\MARKET,I\AGENT_CODE,I\CONSIGN,I\DOCNO,Y,I\TRTYPE,I\COPIES,S A:CONST;;I\DOCNO,I\AGENT_CODE,I\CONSIGN,I\COPIES,T\AGN_NAME O:S |
|
| 1 | 0.0 | TRTYPE | I | 0 | 561, 145 | ||
| 1 | 0.0 | Work 2 | I | -1 | 391, 289 | $CALCULATE I:I\COPIES;=; A:CONST;1;I\COPIES O:SETFOCUS;C\GOGO O:BACKCOLOR;C\GOGO;YELLOW |
|
| 1 | 0.0 | Label 1 | T | -1 | 211, 289 | ||
| 1 | 0.0 | Work 1 | I | 0 | 531, 409 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 |