Program drill-down
CS_STOCK_LISTING
COLD STORAGE STOCK LISTING BY ROOM. Type DSP, base table TROLLEY_MAST.
Field inventory
31
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | TIME | T | -1 | 671, 25 | ||
| 1 | 0.0 | ST_MARKET | I | 0 | 21, 49 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 I:I\DATE;=; A:VAR;T\DATE;I\DATE 'I:I\DATE;=; A:VAR;T\DATE;I\DATEF;;DD MMM YYYY A:VAR;T\DATE;I\DATET;;DD MMM YYYY 'LOAD MARKET CODE A:ORG;;I\ST_MARKET A:ORGS;;I\ORGS 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME |
|
| 1 | 0.0 | Label 3 | T | -1 | 271, 49 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 5 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Work 2 | I | -1 | 361, 277 | $VALIDATE I:I\DATET;=; A:CONST;$T\DATE$;I\DATET I:I\DATET;<>; DO(03) I:I\DATEF;<>; DO(02) A:DATEDIFF;I\DATET;I\DATEDIFF;I\DATEF I:I\DATEDIFF;<;0 D:END DATE CANNOT BE LESS THAN START DATE;ERRORM;I\DATET DOEND(02) DOEND(03) 'O:SETFOCUS;C\RUN 'O:BACKCOLOR;C\RUN;YELLOW ''/PR |
|
| 1 | 0.0 | Label 1 | T | -1 | 211, 313 | ||
| 1 | 0.0 | Work 2 | I | -1 | 361, 313 | $VALIDATE C:UCASE V:Y;N O:SETFOCUS;C\RUN O:BACKCOLOR;C\RUN;YELLOW |
|
| 1 | 0.0 | DATE | T | -1 | 671, 49 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | MARKET | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 291, 25 | ||
| 1 | 0.0 | START DATE | I | -1 | 361, 241 | $VALIDATE I:DATEF;=; A:CONST;$T\DATE$;I\DATEF M: A:VAR;I\DATEF;I\DATET |
|
| 1 | 0.0 | Label 1 | T | -1 | 211, 277 | ||
| 1 | 0.0 | Label 12 | T | -1 | 211, 241 | ||
| 1 | 0.0 | Work 1 | I | 0 | 41, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 501, 289 | ||
| 1 | 0.0 | Work 3 | I | -1 | 361, 205 | $SELECT I:I\ORGS;<>; S:LOCATION_MAST1;I\ROOM;I\ORGS I:I\ORGS;=; S:LOCATION_MAST;I\ROOM $VALIDATE 'A:CONST;;T\BUYER_NAME,I\BLOCK1 A:CONST;;I\LM_CODE A:CONST;$T\DATE$;I\DATEF A:CONST;$T\DATE$;I\DATET 'M: C:UCASE I:I\ROOM;<>; DO(CHK) I:I\ORGS;=; F:LOCATION_MAST;Y;;I\EXIST=LM_CODE,I\TYPE=LM_TYPE,I\MK |
|
| 1 | 0.0 | Label 5 | T | 0 | 491, 205 | ||
| 1 | 0.0 | Label 4 | T | -1 | 211, 205 | ||
| 1 | 0.0 | CMD 6 | C | -1 | 461, 205 | I:I\ORGS;<>; S:LOCATION_MAST1;I\ROOM;I\ORGS I:I\ORGS;=; S:LOCATION_MAST;I\ROOM |
|
| 1 | 0.0 | Work 2 | I | -1 | 361, 169 | $VALIDATE A:CONST;;T\PRO C:UCASE I:I\OPTION;=; A:CONST;S;I\OPTION V:D;S |
|
| 1 | 0.0 | Work 1 | I | 0 | 61, 49 | ||
| 1 | 0.0 | Label 2 | T | -1 | 291, 397 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 281, 373 | $SELECT I:I\OPTION;=; A:CONST;S;I\OPTION I:I\ROOM;<>; DO(CHK) I:I\ORGS;=; F:LOCATION_MAST;Y;;I\EXIST=LM_CODE,I\TYPE=LM_TYPE,I\MKT_ROOM=LM_AGENT;LM_CODE='$I\ROOM$' AND LM_AGENT='';I\ROOM I:I\ORGS;<>; F:LOCATION_MAST;Y;;I\EXIST=LM_CODE,I\TYPE=LM_TYPE,I\MKT_ROOM=LM_AGENT;LM_CODE='$I\ROOM$' AND LM_AGENT='$I |
|
| 1 | 0.0 | Label 1 | T | -1 | 211, 169 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | 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_DELETE | Z | 0 | 0, 0 |