Program drill-down
CS_AGENT_ISS_MAN
AGENT COLD STORAGE ISSUES. Type DSP, base table STK_DETS.
Field inventory
155
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 21 | I | -1 | 771, 229 | $CALCULATE 'A:VAR;W\LT_PALL_QTY;I\LT_PALL_QTY O:DISABLEINPUT;I\LT_TRVALUE I:I\MARKET;=;15 DO(ZIZ) I:I\ORGS;<>; DO(FMQ) F:LOCATION_MAST;;;I\MKT_ROOM=LM_AGENT,I\LM_TYPE=LM_TYPE;LM_CODE='$I\LT_LOCA$' I:I\MKT_ROOM;=; DO(NJA) I:I\LM_TYPE;<>;VR DO(NOTVR) U:CS_ISSUE_LOC |
|
| 1 | 0.0 | Work 1 | I | 0 | 541, 445 | ||
| 1 | 0.0 | Work 1 | I | 0 | 431, 493 | ||
| 1 | 0.0 | Work 2 | I | 0 | 31, 505 | ||
| 1 | 0.0 | Work 3 | I | 0 | 21, 73 | ||
| 1 | 0.0 | ORGS | I | 0 | 111, 49 | ||
| 1 | 0.0 | TOTAL PALL | I | -1 | 361, 445 | ||
| 1 | 0.0 | Work 12 | I | -1 | 311, 445 | ||
| 1 | 0.0 | LT_PALL_QTY | I | -1 | 381, 229 | $CALCULATE 'CLEAR FIELD A:CONST;;W\TEMP C:UCASE 'DETERMINE THE OWNER 'F:LOCATION_MAST;;;W\TMP=LM_AGENT;LM_CODE='$I\LT_LOCA$' 'IF LM_AGENT IS NULL THE OWNER IS THE MARKET - SO U MUST GET CHARGE TYPE FROM "CLIENT_MAST" 'I:W\TEMP;=; 'F:CLIENT_MAST;;;W\CHARGE_TYPE=CM_CHG_TYPE;CM_CODE='$I\MARKET$' 'IF LM_ |
|
| 1 | 0.0 | Work 1 | I | 0 | 1, 541 | ||
| 1 | 0.0 | VATRATE | I | 0 | 591, 445 | ||
| 1 | 0.0 | Work 1 | I | 0 | 401, 469 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 505 | ||
| 1 | 0.0 | LT_CHG_PRD | I | -1 | 482, 229 | $CALCULATE 'MAKE THIS FIELD MANDATORY M: I:I\LT_CHG_PRD;<;O;NUM D:ERROR - PERIOD CANNOT BE LESS THAN ZERO;ERRORM;I\LT_CHG_PRD |
|
| 1 | 0.0 | Work 3 | I | 0 | 161, 541 | ||
| 1 | 0.0 | Work 4 | I | 0 | 421, 157 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 445 | ||
| 1 | 0.0 | VATCODE | I | 0 | 591, 481 | ||
| 1 | 0.0 | Work 2 | I | 0 | 241, 541 | ||
| 1 | 0.0 | Work 1 | I | 0 | 221, 541 | ||
| 1 | 0.0 | PERIOD | I | 0 | 461, 181 | ||
| 1 | 0.0 | Work 1 | I | 0 | 401, 469 | ||
| 1 | 0.0 | LOC_TRANS | LT_PRQTY_AVAIL | I | -1 | 289, 229 | |
| 1 | 0.0 | TEMP | I | 0 | 491, 445 | ||
| 1 | 0.0 | SD_CONTMASS | I | 0 | 101, 541 | ||
| 1 | 0.0 | SD_PROV | I | 0 | 121, 541 | ||
| 1 | 0.0 | Label 8 | T | -1 | 1, 181 | ||
| 1 | 0.0 | Work 1 | I | 0 | 141, 541 | ||
| 1 | 0.0 | SM_DDATE | I | 0 | 71, 49 | ||
| 1 | 0.0 | STK_DETS | SD_DATE | I | 0 | 111, 505 | |
| 1 | 0.0 | BLOCKED | I | 0 | 401, 469 | ||
| 1 | 0.0 | WW | I | 0 | 281, 97 | ||
| 1 | 0.0 | CM_DEL_LEN | I | 0 | 261, 97 | ||
| 1 | 0.0 | LOC_TRANS | LT_DEP_TIME | I | 0 | 731, 253 | |
| 1 | 0.0 | PALLET DATA | I | 0 | 751, 253 | ||
| 1 | 0.0 | Label 1 | T | 0 | 41, 169 | ||
| 1 | 0.0 | SD_SIZE | I | 0 | 61, 541 | ||
| 1 | 0.0 | SD_CONT | I | 0 | 81, 541 | ||
| 1 | 0.0 | Label 7 | T | 0 | 691, 169 | ||
| 1 | 0.0 | Label 6 | T | 0 | 557, 169 | ||
| 1 | 0.0 | Label 5 | T | 0 | 511, 169 | ||
| 1 | 0.0 | TEMP DATE 1 | I | 0 | 181, 541 | ||
| 1 | 0.0 | Label 2 | T | 0 | 168, 169 | ||
| 1 | 0.0 | Label 3 | T | 0 | 275, 159 | ||
| 1 | 0.0 | Label 4 | T | 0 | 314, 159 | ||
| 1 | 0.0 | Work 1 | I | 0 | 411, 61 | ||
| 1 | 0.0 | Label 2 | T | -1 | 601, 133 | ||
| 1 | 0.0 | LOC_TRANS | LT_TRANS | I | -1 | 1, 229 | $SVAR_FOCUS 'A:CONST;+;I\LT_TRANS $SELECT S:G:G\GRID:R1,I\LT_TRANS $SELECT6 S:G:G\GRID:F1,I\LT_TRANS $CALCULATE A:CONST;;I\CS_ISS_ERROR I:I\LT_TRANS;=; DO(001) 'O:SETFOCUS;C\CREATE '''O:DISABLEINPUT;I\CONSIGN,I\COMMODITY,I\SLDQTY,I\PRICE,I\VAT,I\VALUE,W\DEL 'DISABLE GRID FIELDS |
| 1 | 0.0 | AGENT | I | 0 | 21, 49 | $DEFAULT A:ORGS;;I\AGENT A:ORGS;;I\ORGS 'GET USERNAME A:USERID;;I\USER 'GET USER IP A:USERIP;;I\IP 'LOAD AGENT NAME F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME 'READ FMSX DETAILS FOR THE USER AND SEE IF IT IS ALLOWED TO CHANGE TARRIF WHEN DOING COLD STORAGE ISSUES U:USER_PRIVILEGES;GET_INDICATOR 'INITI |
|
| 1 | 0.0 | Label 20 | T | -1 | 770, 201 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;I\CHARGEDAILY=CM_GENERATE_CS_CHARGE,I\OWN_CR=CM_OWN_ROOMS,I\TMP_TARIFF=CM_CS_MAX_CHARGE,I\TARIFF_OVRRD=CM_CS_ALLOW_TO,T\MARKET=CM_NAME,W\CM_DEL_LEN=CM_DEL_LEN,W\VATCODE=CM_CSVATCD,W\CS_MIN=CM_CS_MIN_CHARGE,W\CS_MAX=CM_CS_MAX_CHAR |
|
| 1 | 0.0 | Work 1 | I | 0 | 211, 445 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 433 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 469 | ||
| 1 | 0.0 | Work 1 | I | 0 | 181, 577 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 651, 545 | $SCMD_FOCUS O:BACKCOLOR;C\CREATE;YELLOW $SELECT I:I\LT_TRANS;=; DO(UPD) 'UPDATE GRID DATA U:CS_AGENT_ISS_MAN;UPD_GRID_DATA;G\GRID U:CS_ISSUE_LOCKING;UNLOCK 'INITIALIZE THE GRID TO CLEAR ITS CONTENTS U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LT_TRANS,I\LT_DEPNO:H,W\DEPNO,I\LT_DEP_DATE,I\LT_LOCA,I\LT_SE |
|
| 1 | 0.0 | Label 1 | T | -1 | 311, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 331, 121 | ||
| 1 | 0.0 | Work 1 | I | -1 | 211, 493 | ||
| 1 | 0.0 | Label 2 | T | -1 | 111, 493 | ||
| 1 | 0.0 | Work 1 | I | 0 | 291, 517 | ||
| 1 | 0.0 | MKT_ROOM | I | 0 | 701, 85 | ||
| 1 | 0.0 | Work 1 | I | 0 | 301, 73 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | SD_ITEM | I | 0 | 21, 541 | ||
| 1 | 0.0 | SD_CLASS | Work 3 | I | 0 | 41, 541 | |
| 1 | 0.0 | Work 1 | I | 0 | 21, 505 | ||
| 1 | 0.0 | LOC_TRANS | LT_SHELF | I | -1 | 249, 229 | |
| 1 | 0.0 | Label 10 | T | -1 | 251, 205 | ||
| 1 | 0.0 | Label 12 | T | -1 | 432, 205 | ||
| 1 | 0.0 | Label 3 | T | -1 | 519, 205 | ||
| 1 | 0.0 | Label 1 | T | -1 | 483, 205 | ||
| 1 | 0.0 | LOC_TRANS | LT_DEP_DATE | I | -1 | 100, 229 | |
| 1 | 0.0 | Label 2 | T | -1 | 101, 205 | ||
| 1 | 0.0 | Label 8 | T | -1 | 211, 205 | ||
| 1 | 0.0 | LOC_TRANS | LT_SECTION | I | -1 | 209, 229 | |
| 1 | 0.0 | Label 9 | T | 0 | 1, 169 | ||
| 1 | 0.0 | COMMODITY | I | -1 | 121, 133 | ||
| 1 | 0.0 | CHARGE TYPE | I | 0 | 401, 469 | ||
| 1 | 0.0 | Label 12 | T | -1 | 411, 133 | ||
| 1 | 0.0 | Work 13 | I | -1 | 511, 133 | ||
| 1 | 0.0 | Work 1 | G | -1 | 1, 253 | ||
| 1 | 0.0 | Label 5 | T | -1 | 169, 182 | ||
| 1 | 0.0 | LOC_TRANS | LT_DEPNO | I | 0 | 11, 265 | |
| 1 | 0.0 | H | -1 | 1, 85 | |||
| 1 | 0.0 | Label 6 | T | -1 | 170, 204 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 221, 97 | $SELECT I:I\MARKET;<>;37 DO(CHK) I:I\AGENT;<>; DO(AGN) '**************** USE OWN COLD OR SEE MARKETS TOO I:I\OWN_CR;=;Y DO(CHK1) I:I\CONF;=;Y S:CONSIGN_DEPOSITS;I\SD_CONSIGN;I\MARKET;I\AGENT I:I\CONF;<>;Y S:CONSIGN_DEPOSITS3;I\SD_CONSIGN;I\MARKET;I\AGENT DOEND(CHK1) I:I\OWN_CR;=;N DO(CHK1) I:I\CO |
|
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 627, 203 | ||
| 1 | 0.0 | Label 10 | T | -1 | 693, 203 | ||
| 1 | 0.0 | TOTAL DUE | I | -1 | 691, 229 | ||
| 1 | 0.0 | Label 8 | T | -1 | 691, 181 | ||
| 1 | 0.0 | LOC_TRANS | LT_TRVAT | I | -1 | 627, 229 | |
| 1 | 0.0 | Label 11 | T | -1 | 111, 445 | ||
| 1 | 0.0 | STK_MAST | SM_AGENT | T | -1 | 411, 97 | |
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | STK_DETS | SD_AGENT | I | -1 | 511, 97 | |
| 1 | 0.0 | Label 1 | T | -1 | 1, 205 | ||
| 1 | 0.0 | SD_DETS | SD_CONSIGN | I | -1 | 121, 97 | $SELECT I:I\MARKET;<>;37 DO(CHK) I:I\MARKET;<>;19 DO(CZX) I:I\AGENT;<>; DO(AGN) '**************** USE OWN COLD OR SEE MARKETS TOO I:I\OWN_CR;=;Y DO(CHK1) I:I\CONF;=;Y S:CONSIGN_DEPOSITS;I\SD_CONSIGN;I\MARKET;I\AGENT I:I\CONF;<>;Y S:CONSIGN_DEPOSITS3;I\SD_CONSIGN;I\MARKET;I\ |
| 1 | 0.0 | Label 5 | T | -1 | 561, 181 | ||
| 1 | 0.0 | Label 4 | T | -1 | 562, 205 | ||
| 1 | 0.0 | LOC_TRANS | LT_TRVALUE | I | -1 | 558, 229 | $DEFAULT O:DISABLEINPUT;I\LT_TRVALUE $CALCULATE 'CHECK MINUMUM U:CS_AGENT_ISS_MAN;MINIMUM I:W\FLAG2;=;N D:RE-ENTER THE NET AMOUNT FOR THIS ISSUE;ERRORM;I\LT_TRVALUE '===========================CALCULATE VAT============ BEGIN ================================ 'CALCULATE THE VAT F:VAT_MAST;;;W |
| 1 | 0.0 | Work 1 | I | 0 | 511, 61 | ||
| 1 | 0.0 | MAX CHARGE | I | 0 | 481, 505 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 469 | ||
| 1 | 0.0 | TEMP DATE 2 | I | 0 | 201, 541 | ||
| 1 | 0.0 | Label 2 | T | -1 | 520, 181 | ||
| 1 | 0.0 | Work 2 | I | 0 | 771, 253 | ||
| 1 | 0.0 | DELNO | T | -1 | 21, 97 | ||
| 1 | 0.0 | LOC_TRANS | LT_CS_PRDTYPE | I | -1 | 522, 229 | ' THIS FIELD WAS "I/PERIODTYPE" AND IT IS NOW "I\LT_CS_PRDTYPE" $CALCULATE 'MAKE THIS FIELD MANDATORY M: 'VALIDATE THE PERIOD TYPE ENTERED F:PERIOD_TYPE;Y;;;PT_TYPE='$I\LT_CS_PRDTYPE$';I\LT_CS_PRDTYPE |
| 1 | 0.0 | Label 3 | T | -1 | 42, 203 | ||
| 1 | 0.0 | Work 1 | I | 0 | 91, 49 | $DEFAULT 'PUTS PIC ON THE UPDATE BUTTON O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME 'A:TIMER_ON;1000 'GETS WHICH SCREEN IS BEING DISPLAYED I.E. AGENTS DEPOSIT (AD) OR AGENT ISSUE (AI) A:PARM;1;I\SCREEN_TYPE 'CHANGES THE TITLE OF THE |
|
| 1 | 0.0 | LOC_TRANS | LT_LOCA | I | -1 | 170, 229 | |
| 1 | 0.0 | Work 1 | I | 0 | 441, 445 | ||
| 1 | 0.0 | Label 17 | T | -1 | 327, 182 | ||
| 1 | 0.0 | LOC_TRANS | LT_TRTARIFF | I | -1 | 431, 229 | 'THE WHOLE VALIDATIONS/CHECKS CREATED BY LAZ $VALIDATE ''A:VAR;I\LT_TRTARIFF;W\MOMZ_TEST '''================== '''MOMZ FOR CAPE TOWN''' '''================== I:I\MARKET;=;15 DO(15) I:I\AGNROOM;<>; DO(MOMZ) I:I\LT_TRTARIFF;<>;W\MOMZ_TEST DO(MOZ) 'COMMENTED BY JD 20210218 - THIS DOES NOT AC |
| 1 | 0.0 | LOC_TRANS | LT_PRQTY | I | -1 | 331, 229 | $SVAR_FOCUS I:I\MARKET;=;19 DO(19) U:CS_ISS_FROM; I:I\CS_ISS_ERROR;=;Y D:AGENT NOT ALLOWED TO ISSUE FROM THIS ROOM;ERRORM;I\LT_TRANS A:CONST;;I\CS_ISS_ERROR DOEND(19) $CALCULATE M: 'CLEAR WORK FIELD 'A:CONST;;W\RESULT,W\VATCODE 'MAKE SURE QTY IS NOT < 0 I:I\LT_PRQTY;<=;0;NUM D:QUANTITY MUST |
| 1 | 0.0 | Label 10 | T | -1 | 331, 205 | ||
| 1 | 0.0 | TMP_TARIFF | I | 0 | 651, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 141, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 711, 493 | ||
| 1 | 0.0 | TARIFF_OVRRD | I | 0 | 241, 481 | ||
| 1 | 0.0 | DEPNO | I | -1 | 35, 229 | ||
| 1 | 0.0 | Work 1 | I | 0 | 541, 505 | ||
| 1 | 0.0 | UPDATE_FLAG | I | 0 | 3, 55 | ||
| 1 | 0.0 | Work 1 | I | 0 | 301, 553 | ||
| 1 | 0.0 | MIN CHARGE | I | 0 | 461, 505 | ||
| 1 | 0.0 | Work 1 | I | 0 | 361, 517 | ||
| 1 | 0.0 | Work 2 | I | 0 | 391, 517 | ||
| 1 | 0.0 | Work 3 | I | 0 | 431, 517 | ||
| 1 | 0.0 | Work 4 | I | 0 | 471, 517 | ||
| 1 | 0.0 | AGENT_NAME | T | -1 | 581, 97 | ||
| 1 | 0.0 | DEL DATE | T | -1 | 21, 133 | ||
| 1 | 0.0 | Label 8 | T | -1 | 271, 49 | ||
| 1 | 0.0 | Work 3 | I | 0 | 311, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 231, 73 | ||
| 1 | 0.0 | DEPOSITS | I | 0 | 301, 97 | ||
| 1 | 0.0 | Work 1 | I | 0 | 171, 49 | ||
| 1 | 0.0 | Label 16 | T | -1 | 286, 182 | ||
| 1 | 0.0 | Work 14 | I | 0 | 691, 445 | ||
| 1 | 0.0 | Label 2 | T | -1 | 39, 181 | ||
| 1 | 0.0 | Label 12 | T | -1 | 381, 205 | ||
| 1 | 0.0 | Label 8 | T | -1 | 291, 205 | ||
| 1 | 0.0 | FLAG2 | I | 0 | 501, 505 | ||
| 1 | 0.0 | I\TMP10 | I | 0 | 151, 481 | ||
| 1 | 0.0 | Work 2 | I | 0 | 261, 73 | ||
| 1 | 0.0 | Work 1 | I | 0 | 151, 505 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 85 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 85 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 85 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 85 | '$BEFORE_WRITE 'U:AGENT_SALES;BUYER_PIN_NO |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 85 | $EXIT U:CS_ISSUE_LOCKING;UNLOCK |