Program drill-down
CS_CONF
COLD STORAGE CONFIRMATION. Type DSP, base table LOC_TRANS.
Field inventory
45
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 74 | I | 0 | 41, 61 | $DEFAULT A:ORGS;;I\ORGS I:I\ORGS;<>; DO(PAS) O:DISABLEINPUT;I\AGENT,I\SEQ,I\CONF,C\AGENT,C\UPDATE D:AGENTS MAY NOT RUN THIS SCREEN;ERRORM;I\AGENT DOEND(PAS) I:I\ORGS;=; DO(PAS) O:ENABLEINPUT;I\AGENT,I\SEQ,I\CONF,C\AGENT,C\UPDATE DOEND(PAS) |
|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | Work 72 | I | 0 | 81, 61 | $DEFAULT A:USERID;;I\USERID |
|
| 1 | 0.0 | Label 44 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 45 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 46 | T | -1 | 231, 49 | ||
| 1 | 0.0 | Label 47 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 48 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 49 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 50 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 51 | T | -1 | 171, 145 | ||
| 1 | 0.0 | Work 52 | I | -1 | 311, 145 | $SELECT S:AGENT_CODE;I\AGENT $VALIDATE A:CONST;;I\PRT_LABELS M: C:UCASE F:AGENT_MAST;Y;;T\AGN_DESC=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT U:COLD_STORAGE_CONFIRMATION;POP_GRID O:SETFOCUS;I\SEQ |
|
| 1 | 0.0 | Work 53 | G | -1 | 71, 301 | ||
| 1 | 0.0 | CMD 54 | C | -1 | 421, 145 | $SELECT S:AGENT_CODE;I\AGENT |
|
| 1 | 0.0 | Label 55 | T | -1 | 71, 253 | ||
| 1 | 0.0 | Label 56 | T | -1 | 311, 253 | ||
| 1 | 0.0 | Label 57 | T | -1 | 421, 253 | ||
| 1 | 0.0 | Label 58 | T | -1 | 561, 253 | ||
| 1 | 0.0 | Label 59 | T | -1 | 641, 253 | ||
| 1 | 0.0 | Label 61 | T | -1 | 111, 253 | ||
| 1 | 0.0 | Work 62 | I | -1 | 71, 277 | $SELECT S:G:G\GRID:S1 $CALCULATE I:I\SEQ;<>; DO(DLD) O:ENABLEINPUT;I\CONF U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\SEQ I:I\MARKET;=;11 O:SETFOCUS;I\CONF_DATE DOEND(DLD) I:I\MARKET;=;15 DO(MKT) I:I\SEQ;=; DO(SQS) A:CONST;;I\SEQ,I\DEPNO,I\CONSIGN,I\DEPDTE,I\COMMODITY,I\QTY,I\CONF O:D |
|
| 1 | 0.0 | Label 4 | T | -1 | 441, 469 | ||
| 1 | 0.0 | Work 63 | I | -1 | 311, 313 | ||
| 1 | 0.0 | Work 64 | I | -1 | 421, 277 | ||
| 1 | 0.0 | Work 65 | I | -1 | 561, 277 | ||
| 1 | 0.0 | Work 66 | I | -1 | 641, 277 | $CALCULATE C:UCASE V:Y;N; I:I\CONF;=; A:CONST;N;I\CONF U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ O:SETFOCUS;I\SEQ A:CONST;;I\SEQ,I\DEPNO,I\DEPDTE,I\CONF_DATE,I\COMMODITY,I\QTY,I\CONF,I\CONSIGN |
|
| 1 | 0.0 | Label 3 | T | -1 | 71, 469 | ||
| 1 | 0.0 | Work 68 | I | -1 | 111, 277 | ||
| 1 | 0.0 | CMD 69 | C | -1 | 651, 548 | $SCMD_FOCUS O:BACKCOLOR;C\UPDATE;YELLOW $SELECT 'I:I\ORGS;<>; 'D:AGENTS MAY NOT RUN THIS SCREEN;ERRORM;I\MARKET U:COLD_STORAGE_CONFIRMATION;UPDATE A:DATE;DD MMM YYYY;I\CONF_DATE I:I\MARKET;<>;15 DO(L15) O:SETFOCUS;I\AGENT A:CONST;;I\AGENT,T\AGN_DESC;I\SEQ,I\DEPNO,I\CONSIGN,I\DEPDTE,I\CONF_DATE,I |
|
| 1 | 0.0 | Work 1 | I | -1 | 191, 469 | $VALIDATE C:UCASE V:Y;N; I:I\PRT_LABELS;=;Y DO(Y) O:ENABLEINPUT;T\NUMB_LABELS,I\NUMB_LABELS O:SETFOCUS;I\NUMB_LABELS DOEND(Y) I:I\PRT_LABELS;=; A:CONST;N;I\PRT_LABELS I:I\PRT_LABELS;<>;Y DO(002) A:CONST;;I\AGENT,T\AGN_DESC;I\SEQ,I\DEPNO,I\CONSIGN,I\DEPDTE,I\COMMODITY,I\QTY,I\CONF,I\PRT |
|
| 1 | 0.0 | Work 2 | I | -1 | 571, 469 | $VALIDATE M: I:I\NUMB_LABELS;=;0 D:ENTER A VALID NUMBER OF COPIES TO PRINT;ERRORM;I\NUMB_LABELS I:I\NUMB_LABELS;<>;0 DO(SET) O:SETFOCUS;C\UPDATE O:BACKCOLOR;C\UPDATE;YELLOW DOEND(SET) I:I\NUMB_LABELS;<>;0 DO(2) U:CS_DEPOSIT_LABELS;CS_CONF DOEND(2) A:CONST;;I\AGENT,T\AGN_DESC;I\SEQ,I\DEPNO,I\CON |
|
| 1 | 0.0 | Label 70 | T | -1 | 471, 145 | ||
| 1 | 0.0 | Label 71 | T | -1 | 561, 229 | ||
| 1 | 0.0 | Work 73 | I | 0 | 61, 61 | $DEFAULT A:USERIP;;I\IP |
|
| 1 | 0.0 | Work 77 | I | -1 | 211, 277 | ||
| 1 | 0.0 | Work 75 | 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 'I:I\MARKET;<>;11 'O:ENABLEINPUT;I\DEPDTE I:I\MARKET;<>;15 DO(09) O:HIDE;T\PRT_LABELS,I\PRT_LABELS,T\NUMB_LABELS,I\NUMB |
|
| 1 | 0.0 | Work 76 | I | 0 | 1, 61 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 I:I\MARKET;<>;11 O:DISABLEUNPUT;I\CONF_DATE U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\DEPNO,I\CONSIGN,I\DEPDTE,I\CONF_DATE:H,I\COMMODITY,I\QTY,I\CONF,I\DELDATE:H,I\IP:H 'PUTS PIC ON THE UPDATE BUTTON O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS |
|
| 1 | 0.0 | Label 78 | T | -1 | 211, 253 | ||
| 1 | 0.0 | Work 1 | I | -1 | 311, 277 | ||
| 1 | 0.0 | Work 1 | I | 0 | 421, 313 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_PRINT | 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 |