Program drill-down
CS_ISSUE_TRANS
COLD STORAGE AUDITS. Type DSP, base table TROLLEY_MAST.
Field inventory
40
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CMD 5 | C | -1 | 361, 145 | ||
| 1 | 0.0 | Label 6 | T | -1 | 401, 145 | ||
| 1 | 0.0 | CMD 7 | C | -1 | 411, 325 | ||
| 1 | 0.0 | Label 8 | T | -1 | 451, 325 | ||
| 1 | 0.0 | Label 1 | T | -1 | 161, 361 | ||
| 1 | 0.0 | Work 2 | I | -1 | 311, 361 | $SELECT S:DEST_CODE;I\DEST $VALIDATE I:I\DEST;<>; F:REASON_MAST;Y;;T\DEST_DESC=RSN_DESC;RSN_REASON = '$I\DEST$';I\DEST 'F:AGENT_MAST;Y;;T\DEST_DESC=AM_NAME;AM_CODE = '$I\DEST$';I\DEST O:SETFOCUS;C\RUN O:BACKCOLOR;C\RUN;YELLOW |
|
| 1 | 0.0 | CMD 3 | C | -1 | 361, 361 | ||
| 1 | 0.0 | Label 4 | T | -1 | 401, 361 | ||
| 1 | 0.0 | Work 9 | I | 0 | 61, 61 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 651, 547 | $SCMD_FOCUS O:BACKCOLOR;C\RUN;YELLOW $SELECT A:CONST;PROCESSING ....;T\PROG E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=CS_ISSUES_TRANS;$I\MARKET$,$I\FROM_DATE$,$I\TO_DATE$,$I\AGENT$,$I\DEST$,$I\ROOM$,$I\SUPPLIER$,$I\CONSIGN$,S A:CONST;COMPLETE !!!;T\PROG A:CONST;;I\SELECT,I\ROOM,I\CONSIGN,I\SUPPLIER |
|
| 1 | 0.0 | H | -1 | 1, 25 | |||
| 1 | 0.0 | Work 11 | I | -1 | 311, 181 | ||
| 1 | 0.0 | Work 1 | I | -1 | 311, 325 | $SELECT S:SUPPLIER_MAST;I\SUPPLIER $VALIDATE 'ZERO FILL THIS FIELD TO SIX DIGITS IF IT IS NOT NULL 'A:ZEROFILL;I\SUPPLIER,6;I\SUPPLIER I:I\SUPPLIER;<>; F:SUPPLIER_MAST;Y;;T\SUPP_NAME=SUM_NAME;SUM_SUPPL = '$I\SUPPLIER$';I\SUPPLIER |
|
| 1 | 0.0 | Work 2 | I | -1 | 311, 289 | $SELECT 'S:CONSIGNMENT22;I\CONSIGN;I\AGENT S:CONS_NO;I\CONSIGN;I\MARKET;I\AGENT $VALIDATE I:I\CONSIGN;<>; DO(1) 'F:LOC_TRANS;Y;;;LT_MARKET='$I\MARKET$' AND LT_CONSIGNO = '$I\CONSIGN$' AND LT_CONFIRMED = 'Y' AND LT_DELIND <> 'Y' AND LT_PRQTY_AVAIL > '0';I\CONSIGN 'CHANGED BY JD 20131126 - VERY WRONG LOOKUP |
|
| 1 | 0.0 | MARKET | I | 0 | 21, 61 | $DEFAULT O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\RUN 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORGS;;I\ORGS I:I\ORGS;<>; DO(1) F:AGENT_MAST;Y;;T\AM_NAME=AM_NAME;AM_CODE = '$I\ORGS$'; O:DISABLEINPUT;I\AGENT,C\AGENT O:SETFOCUS;I\FROM_DATE DOEND(1) I:I\ORGS;=; O:SETFOCUS;I\AGENT 'LO |
|
| 1 | 0.0 | ORGS | I | 0 | 91, 109 | $DEFAULT A:ORGS;;I\ORGS 'I:I\ORGS;<>; 'DO(PAS) ' O:DISABLEINPUT;C\RUN,C\COMPLETE ' D:AGENTS MAY NOT RUN THIS SCREEN;ERRORM; 'DOEND(PAS) 'I:I\ORGS;=; 'DO(PAS) ' O:ENABLEINPUT;C\RUN,C\COMPLETE 'DOEND(PAS) |
|
| 1 | 0.0 | ROOM | I | -1 | 311, 253 | $VALIDATE C:UCASE V:M;A; |
|
| 1 | 0.0 | Work 12 | I | -1 | 311, 217 | $VALIDATE I:I\FROM_DATE;=; A:CONST;;I\TO_DATE I:I\FROM_DATE;<>; 'A:CONST;$T\DATE$;I\TO_DATE I:I\TO_DATE;<>; DO(03) A:DATEDIFF;I\TO_DATE;I\DATEDIFF;I\FROM_DATE I:I\DATEDIFF;<;0 D:TO DATE CANNOT BE LESS THAN FROM DATE;ERRORM;I\TO_DATE DOEND(03) 'O:SETFOCUS;C\RUN 'O:BACKCOLOR;C\RUN;YELLOW |
|
| 1 | 0.0 | Work 15 | I | 0 | 391, 553 | ||
| 1 | 0.0 | Work 3 | I | -1 | 311, 145 | $VALIDATE I:I\AGENT;<>; F:AGENT_MAST;Y;;T\AM_NAME=AM_NAME;AM_CODE = '$I\AGENT$';I\AGENT |
|
| 1 | 0.0 | Work 2 | I | 0 | 31, 181 | ||
| 1 | 0.0 | Label 1 | T | 0 | 31, 157 | ||
| 1 | 0.0 | Label 2 | T | -1 | 161, 325 | ||
| 1 | 0.0 | Label 1 | T | -1 | 161, 289 | ||
| 1 | 0.0 | Label 2 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 311, 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 9 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 13 | T | -1 | 161, 181 | ||
| 1 | 0.0 | Label 9 | T | -1 | 161, 253 | ||
| 1 | 0.0 | Label 14 | T | -1 | 161, 217 | ||
| 1 | 0.0 | Label 2 | T | -1 | 161, 145 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 25 |