Program drill-down
STK_TAKE_MAN
STOCK TAKE. Type DSP, base table STK_DETS.
Field inventory
57
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | ITEM | T | -1 | 391, 157 | ||
| 1 | 0.0 | MARKET | I | 0 | 1, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL C:MCASE;;T\MARKET |
|
| 1 | 0.0 | TYPE | C | -1 | 161, 157 | $SELECT S:LOCATION_TYPE;I\TYPE |
|
| 1 | 0.0 | TYPE_DESC | T | -1 | 201, 157 | ||
| 1 | 0.0 | Label 8 | T | -1 | 1, 157 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 133 | ||
| 1 | 0.0 | LOC | C | -1 | 161, 133 | $SELECT S:LOCATION_MAST;I\LOC |
|
| 1 | 0.0 | LOC_DESC | T | -1 | 201, 133 | ||
| 1 | 0.0 | TYPE | I | -1 | 111, 157 | $SELECT S:LOCATION_TYPE;I\TYPE $VALIDATE C:UCASE 'A:CON;I\LOC,I\ITEM,I\TYPE;I\TMP1 'I:I\TMP1;<>; 'DO(001) I:I\TYPE;<>; F:LOCATION_TYPE;Y;LC_TYPE;T\TYPE_DESC=LC_DESC U:STK_TAKE_MAN;FILL_GRID;G\GRID_ST,WK_T0,ST_LOCA,ST_SECTION,ST_SHELF,ST_CONSIGN,ST_TRANS,SD_ITEM,SD_CLASS,SD_SIZE,SD_CONT,SD_PROV,ST_TRQTY |
|
| 1 | 0.0 | LOC | I | -1 | 111, 133 | $SELECT S:LOCATION_MAST;I\LOC $VALIDATE C:UCASE 'A:CON;I\LOC,I\ITEM,I\TYPE;I\TMP1 'I:I\TMP1;<>; 'DO(001) I:I\LOC;<>; DO(002) F:LOCATION_MAST;Y;LM_CODE;T\LOC_DESC=LM_DESC,I\TYPE=LM_TYPE F:LOCATION_TYPE;Y;;T\TYPE_DESC=LC_DESC;LC_TYPE='$I\TYPE$' O:DISABLEINPUT;I\TYPE DOEND(002) U:STK_TAK |
|
| 1 | 0.0 | MARKET | T | -1 | 1, 25 | ||
| 1 | 0.0 | TMP1 | I | 0 | 1, 517 | $DEFAULT A:DATE;DD MMM YYYY;I\TMP1 A:TIME;HH:MM:SS;I\TMP2 A:VAR;I\TMP1;T\DATE A:VAR;I\TMP2;T\TIME A:TIMER_ON;100;I\TMP2 X:STK_TRANS;G\GRID_ST;WK_T0,ST_LOCA [1 + 3],ST_SECTION [1 + 4],ST_SHELF [1 + 4],ST_CONSIGN [1 + 9],ST_TRANS [1 + 6],SD_ITEM [1 + 4],SD_CLASS [1 + 4],SD_SIZE [1 + 3],SD_CONT [1 + 3],SD_PROV [1 + |
|
| 1 | 0.0 | TMP2 | I | 0 | 1, 541 | ||
| 1 | 0.0 | UPDATE | C | -1 | 271, 505 | $SELECT U:STK_TAKE_MAN;SAVE_GRID;G\GRID_ST A:CONST;YES;I\SAVED A:CONST;0;I\CNT |
|
| 1 | 0.0 | Label 8 | T | -1 | 621, 49 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | HEADING | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 5 | T | -1 | 621, 25 | ||
| 1 | 0.0 | SQTY | I | -1 | 501, 505 | ||
| 1 | 0.0 | HEADING2 | T | -1 | 291, 49 | ||
| 1 | 0.0 | TIME | T | -1 | 681, 49 | ||
| 1 | 0.0 | DATE | T | -1 | 681, 25 | ||
| 1 | 0.0 | PQTYTOT | I | -1 | 661, 505 | ||
| 1 | 0.0 | SQTYTOT | I | -1 | 611, 505 | ||
| 1 | 0.0 | CANCEL_ST | C | -1 | 141, 505 | $SELECT A:CONST;NO;I\CANCEL U:STK_TAKE_MAN;CANCEL_STK_TAKE I:I\CANCEL;=;YES DO(001) X:STK_TRANS;G\GRID_ST;WK_T0,ST_LOCA [1 + 3],ST_SECTION [1 + 4],ST_SHELF [1 + 4],ST_CONSIGN [1 + 9],ST_TRANS [1 + 6],SD_ITEM [1 + 4],SD_CLASS [1 + 4],SD_SIZE [1 + 3],SD_CONT [1 + 3],SD_PROV [1 + 4],ST_TRQTY [1 + 5],WK_T4,WK_T4:E,W |
|
| 1 | 0.0 | CANCEL | I | 0 | 1, 565 | ||
| 1 | 0.0 | CNT | I | 0 | 31, 541 | $DEFAULT A;CONST;0;I\CNT |
|
| 1 | 0.0 | SAVED | I | 0 | 31, 517 | ||
| 1 | 0.0 | PQTY | I | 0 | 291, 553 | ||
| 1 | 0.0 | Label 3 | T | -1 | 421, 505 | ||
| 1 | 0.0 | PQTY | I | -1 | 561, 505 | ||
| 1 | 0.0 | P2QTY | I | 0 | 351, 553 | ||
| 1 | 0.0 | STKTAKE | I | -1 | 111, 109 | $SELECT S:STK_TAKE;I\STKTAKE;I\SD_MARKET;I\SD_AGENT $VALIDATE I:I\STKTAKE;<>; DO(001) A:LEFT;I\STKTAKE,1;I\TMP1 I:I\TMP1;<>;* DO(LOAD) ' F:STK_TAKE;Y;STK_STKTAKE;I\LOC=STK_LOCA,I\TYPE=STK_LOC_TYPE,I\ITEM=STK_ITEM;STK_MARKET = '$I\MARKET$' AND STK_AGENT = '$I\SD_AGENT$';I\STKTAKE F:STK_TAKE;Y; |
|
| 1 | 0.0 | CMD 2 | C | -1 | 221, 109 | ||
| 1 | 0.0 | Label 3 | T | -1 | 1, 109 | ||
| 1 | 0.0 | STK_DETS | SD_AGENT | T | -1 | 1, 85 | |
| 1 | 0.0 | CMD 2 | C | -1 | 161, 85 | ||
| 1 | 0.0 | AGENT_NAME | T | -1 | 191, 85 | ||
| 1 | 0.0 | ST_DESC | T | -1 | 261, 109 | ||
| 1 | 0.0 | CMD 2 | C | -1 | 561, 157 | ||
| 1 | 0.0 | ITEM_DESC | T | -1 | 601, 157 | ||
| 1 | 0.0 | STK_DETS | SD_AGENT | I | -1 | 111, 85 | $DEFAULT 'GET THIS USERS AGENT CODE A:ORGS 'GET AGENTS NAME FROM AGENT_MAST AND DISABLE AGENT CODE INPUT I:I\SD_AGENT;<>; DO(001) F:AGENT_MAST;;;T\AGENT_NAME=AM_NAME,I\AM_DEL_LEN=AM_DEL_LEN;AM_CODE='$I\SD_AGENT$' AND AM_MARKET='$I\MARKET$' O:DISABLEINPUT;I\SD_AGENT C:MCASE;;T\AGENT_NAME 'SET DELIVERY |
| 1 | 0.0 | START | C | -1 | 11, 505 | $SELECT I:I\STKTAKE;<>; DO(001) O:DISABLEINPUT;I\LOC,I\TYPE,I\ITEM U:STK_TAKE_MAN;START;G\GRID_ST A:CONST;NO;I\SAVED DOEND(001) |
|
| 1 | 0.0 | STATUS | T | -1 | 561, 109 | ||
| 1 | 0.0 | STATUS | I | -1 | 501, 109 | ||
| 1 | 0.0 | Label 5 | T | -1 | 391, 109 | ||
| 1 | 0.0 | CONSIGN | I | -1 | 501, 133 | $SELECT I:I\SD_AGENT;<>; S:DELIVERY_STA;I\CONSIGN;I\MARKET;I\SD_AGENT I:I\SD_AGENT;=; S:DELIVERY_ST;I\CONSIGN;I\MARKET $VALIDATE I:I\CONSIGN;<>; DO(001) ' F:STK_DETS;Y;;I\TMP2=SD_STK_TAKE;VA_PRODUCT='$I\TMP1$' AND VA_VARIETY='$I\TMP2$';I\ITEM ' F:PRODUCT_MAST;Y;;I\TMP1=PR_DESC;PR_PRODUCT='$I\TMP1$';I\I |
|
| 1 | 0.0 | CONSIGN | T | -1 | 391, 133 | ||
| 1 | 0.0 | CONSIGN | C | -1 | 601, 133 | $SELECT I:I\SD_AGENT;<>; S:DELIVERY_NO2;I\CONSIGN;I\MARKET;I\SD_AGENT I:I\SD_AGENT;=; S:DELIVERY_NO;I\CONSIGN;I\MARKET |
|
| 1 | 0.0 | AM_DEL_LEN | I | 0 | 31, 565 | ||
| 1 | 1.0 | ITEM | I | -1 | 501, 157 | $SELECT S:LOCATION_TYPE;I\TYPE $VALIDATE C:UCASE 'A:CON;I\LOC,I\ITEM,I\TYPE;I\TMP1 'I:I\TMP1;<>; 'DO(001) I:I\ITEM;<>; DO(001) A:LEFT;I\ITEM,2;I\TMP1 A:MID;I\ITEM,3,2;I\TMP2 F:VAR_MAST;Y;;I\TMP2=VA_DESC;VA_PRODUCT='$I\TMP1$' AND VA_VARIETY='$I\TMP2$';I\ITEM F:PRODUCT_MAST;Y;;I\TMP1=PR_DESC;PR_PROD |
|
| 1 | 3.0 | GRID_ST | G | -1 | 1, 193 | $GRID_LEAVECELL U:STK_TAKE_MAN;LEAVE_CELL;G\GRID_ST $GRID_ENTERCELL U:STK_TAKE_MAN;ENTER_CELL;G\GRID_ST $GRID_VALIDATE U:STK_TAKE_MAN;GRID_VALIDATE;G\GRID_ST |
|
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 | $EXIT I:I\SAVED;<>;YES DO(NOSAVE) I:I\CNT;=;0;NUM DO(CNT) A:CONST;1;I\CNT D:THE ENTERED DATA HAS NOT BEEN SAVED!!! - CLICK EXIT AGAIN TO EXIT ANYWAY;ERROR ' D:CLICK EXIT AGAIN TO EXIT ANYWAY;ERROR DOEND(CNT) DOEND(NOSAVE) |
|
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 |