Program drill-down
CS_AGDEP_AMD_MAN
AGENT COLD STORAGE DEPOSIT - AMEND. Type DSP, base table LOC_TRANS.
Field inventory
90
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CONF_DATE | I | 0 | 461, 529 | ||
| 1 | 0.0 | Work 1 | I | 0 | 401, 565 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 201, 289 | $SELECT S:LOCATION_CS_CODES;I\ROOM_NO |
|
| 1 | 0.0 | CMD 4 | C | -1 | 431, 289 | $SELECT 'DISPLAY A SELECTION WINDOW S:ROOM_SECTION;I\SECT;I\ROOM_NO |
|
| 1 | 0.0 | Label 8 | T | -1 | 21, 361 | ||
| 1 | 0.0 | Label 12 | T | -1 | 21, 433 | ||
| 1 | 0.0 | Work 9 | I | -1 | 141, 361 | '$CALCULATE $VALIDATE M: 'CHECK QTY IS NOT GREATER THAN QTY AVAIL I:I\QTYDEP;>;I\QTYAVAIL;NUM D:THIS IS GREATER THAN THE QUANTITY AVAILABLE;ERRORM;I\QTYDEP I:I\QTYDEP;<;I\DEP_ISSUES;NUM D:CANNOT ADJUST TO LESS THAN TOTAL ISSUE QTY ($I\DEP_ISSUES$);ERRORM;I\QTYDEP I:I\MARKET;<>;11 U:CS_AGENT_DEP_MAN;GET_T |
|
| 1 | 0.0 | Label 10 | T | -1 | 21, 253 | ||
| 1 | 0.0 | Work 11 | I | -1 | 141, 253 | ||
| 1 | 0.0 | Work 11 | I | -1 | 141, 397 | '$CALCULATE $VALIDATE 'MANDATORY M: 'GET MIN & MAX COLD STORAGE CHARGES F:CLIENT_MAST;Y;;I\TMP4=CM_CS_MIN_CHARGE,I\TMP5=CM_CS_MAX_CHARGE;CM_CODE='$I\MARKET$' 'CHECK IF ENTERED TARIFF IS GREATER THAN/LESS THAN MAX/MIN CHARGES A:MULT;I\QTYDEP;I\TMP;I\TARIFF A:VAR;I\TMP4;I\TMP4;;#0.000 A:VAR;I\TMP;I\TMP;; |
|
| 1 | 0.0 | Label 2 | T | -1 | 231, 181 | ||
| 1 | 0.0 | Label 2 | T | -1 | 21, 469 | ||
| 1 | 0.0 | Work 3 | I | -1 | 141, 469 | $CALCULATE C:UCASE O:BACKCOLOR;C\UPDATE;YELLOW O:SETFOCUS;C\UPDATE |
|
| 1 | 0.0 | LOC_TRANS | LT_MARKET | I | 0 | 161, 73 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD AGENT CODE A:ORGS;;I\ORGS 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN,I\CONF=CM_CS_CONF;; 'F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN,D\CM_CSTARIFF=CM_CSTARIFF;; 'F:CLIENT_MAST;;CM_CODE;I\TMP=SD_RECQ |
| 1 | 0.0 | Work 13 | I | -1 | 141, 433 | $CALCULATE 'C:UCASE 'I:I\PALLET;<>;Y ' DO(CHK) ' I:I\PALLET;<>; ' D:ENTER ONLY Y OR LEAVE BLANK;ERRORM;I\PALLET ' DOEND(CHK) 'SHOW THE POP UP IF 'Y' IS ENTERED 'I:I\PALLET;=;Y ' DO(CHK2) ' A:VAR;;I\PALLS_SOLD; ' U:CS_AGENT_DEP_MAN;PALLET_CS_ENTRY ' DOEND(CHK2) I:I\MARKET;=;11 DO(PRE) ''THE |
|
| 1 | 0.0 | Work 4 | I | -1 | 141, 289 | $SELECT S:LOCATION_CS_CODES;I\ROOM_NO $ESC O:SETFOCUS;I\CONSIGN '$CALCULATE $VALIDATE M: C:UCASE A:ZEROFILL;I\ROOM_NO,4,I\ROOM_NO 'MAKE SURE THE ROOM IS VALID F:ROOM_DET;Y;RD_ROOM;;;I\ROOM_NO 'GET CHARGE TYPE OF THE ROOM AND THE ROOM TYPE F:LOCATION_MAST;Y;LM_CODE;I\TMP4=LM_TYPE,I\TMP5=LM_CHG_TYP |
|
| 1 | 0.0 | Label 2 | T | -1 | 431, 109 | ||
| 1 | 0.0 | Work 1 | I | 0 | 131, 73 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME 'A:TIMER_ON;1000 O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE 'A:CONST;1;I\PALLET |
|
| 1 | 0.0 | DELNO | T | -1 | 21, 109 | ||
| 1 | 0.0 | Drop 1 | D | -1 | 371, 325 | $DEFAULT 'ADDS THE SPECIFIED ITEMS TO THE COMBOBOX B:ADDITEM;D\CM_CSTARIFF;M - MONTHLY,W - WEEKLY,D - DAILY,H - HOURLY $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'CHECKS THAT ONLY THE ADDED ITEMS ARE ENTERED I:D\CM_CSTARIFF;=;M - MONTHLY DO(M) 'TAKE THE LEFT MOST CHARACTER A:LEFT;D\CM_CSTARIFF,1;D\ |
|
| 1 | 0.0 | STK_MAST | SM_AGENT | T | -1 | 21, 145 | |
| 1 | 0.0 | LOC_TRANS | LT_CONSIGNO | I | -1 | 141, 109 | $DEFAULT 'O:DISABLEINPUT;C\ROOM,C\SECT $SELECT ' >> RK200906 ======================================= 'A:ORGS;;I\ORGS 'I:I\ORGS;<>; 'S:CONS_AGENT;I\CONSIGN;I\ORGS 'I:I\ORGS;=; 'S:CONS_CS;I\CONSIGN I:I\ORGS;<>; S:CONSIGN_DEPOSITS;I\CONSIGN;I\MARKET;I\ORGS I:I\ORGS;=; S:CONSIGN_DEPOSITS_MKT;I\CONSIGN |
| 1 | 0.0 | Work 1 | I | -1 | 141, 145 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 231, 109 | $SELECT 'DISPLAY A SELECTION WINDOW 'I:I\ORGS;<>; ' S:CONS_AGENT;I\CONSIGN;I\ORGS 'I:I\ORGS;=; ' S:CONS_QTY;I\CONSIGN I:I\ORGS;<>; S:CONSIGN_DEPOSITS;I\CONSIGN;I\MARKET;I\ORGS I:I\ORGS;=; S:CONSIGN_DEPOSITS_MKT;I\CONSIGN;I\MARKET |
|
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 8 | T | -1 | 251, 49 | ||
| 1 | 0.0 | DEL DATE | T | -1 | 21, 217 | ||
| 1 | 0.0 | AGENT_NAME | T | -1 | 211, 145 | ||
| 1 | 0.0 | Label 12 | T | -1 | 21, 181 | ||
| 1 | 0.0 | Work 13 | I | -1 | 141, 181 | ||
| 1 | 0.0 | Label 5 | T | -1 | 21, 289 | ||
| 1 | 0.0 | LOC_TRANS | LT_DEPNO | I | -1 | 581, 109 | $DEFAULT O:DISABLEINPUT;C\DEPNO $SELECT S:CS_DEPNO;I\DEPNO;I\AGENT;I\CONSIGN A:CONST;Y;I\KP $CALCULATE A:CONST;;I\FULLDEPNO,W\IS_DATE M: 'A:CON;I\CONSIGN;I\FULLDEPNO;I\DEPNO 'MAKES IT SO THAT THE WHOLE DEPOSIT NUMBER DOES NOT NEED TO BE ENTERED 'JRD 090506 I:I\KP;<>;Y DO(PPA) A:CON;I\CONSIGN; |
| 1 | 0.0 | H | -1 | 1, 31 | |||
| 1 | 0.0 | CONF | I | 0 | 581, 217 | ||
| 1 | 0.0 | Work 1 | I | 0 | 581, 169 | ||
| 1 | 0.0 | Work 7 | I | -1 | 371, 289 | $SELECT 'DISPLAY A SELECTION WINDOW S:ROOM_SECTION;I\SECT;I\ROOM_NO '$CALCULATE $VALIDATE 'MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'CHECK IF A VALID SECTION IS ENTERED I:I\MARKET;<>;15 DO(NOT_15) F:ROOM_DET;Y;;;RD_ROOM='$I\ROOM_NO$' AND RD_SECTION = '$I\SECT$' F:ROOM_DET;;;I\TMP=RD_SHELVES;RD_RO |
|
| 1 | 0.0 | Work 1 | I | 0 | 381, 361 | ||
| 1 | 0.0 | Label 8 | T | -1 | 271, 289 | ||
| 1 | 0.0 | Work 9 | I | -1 | 571, 289 | $SELECT 'DISPLAY A SELECTION WINDOW 'S:ROOM_SHELVES;I\SHELF;I\ROOM_NO;I\SECT '$CALCULATE $VALIDATE 'MANDATORY M: 'CHECK IF A VALID SHELF IS ENTERED 'F:ROOM_DET;;;I\TMP=RD_SHELVES;RD_ROOM='$I\ROOM_NO$' I:I\SHELF;>;I\TMP D:THIS IS GREATER THAN THE NUMBER OF SHELVES AVAILABLE;ERRORM |
|
| 1 | 0.0 | Label 10 | T | -1 | 491, 289 | ||
| 1 | 0.0 | Label 12 | T | -1 | 21, 397 | ||
| 1 | 0.0 | Label 3 | T | -1 | 271, 325 | ||
| 1 | 0.0 | Work 1 | I | -1 | 141, 325 | '$CALCULATE $VALIDATE 'DEFAULT DATE TO CURRENT I:I\DEP_DATE;=;"" A:DATE;DD MMM YYYY;I\DEP_DATE A:DATE;DD MMM YYYY;I\TMP I:I\TMP;<;I\DEP_DATE;DAT D:DEPOSIT DATE CANNOT BE GREATER THAN TODAY;ERRORM;I\DEP_DATE 'DIFF BETWEEN CURRENT DATE AND DEPOSIT DATE A:DATEDIFF;I\DEP_DATE;I\TMP1;I\TMP;;D 'GETS ABSOLUT |
|
| 1 | 0.0 | Label 2 | T | -1 | 21, 325 | ||
| 1 | 0.0 | Work 1 | I | 0 | 351, 517 | ||
| 1 | 0.0 | Work 2 | I | 0 | 311, 517 | ||
| 1 | 0.0 | Work 3 | I | 0 | 271, 517 | ||
| 1 | 0.0 | Work 4 | I | 0 | 231, 517 | ||
| 1 | 0.0 | Work 5 | I | 0 | 191, 517 | ||
| 1 | 0.0 | Work 6 | I | 0 | 151, 517 | ||
| 1 | 0.0 | Work 8 | I | 0 | 391, 517 | ||
| 1 | 0.0 | Work 9 | I | 0 | 121, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 501, 505 | ||
| 1 | 0.0 | Work 10 | I | -1 | 141, 217 | ||
| 1 | 0.0 | Work 1 | I | 0 | 431, 217 | ||
| 1 | 0.0 | Label 1 | T | -1 | 501, 325 | ||
| 1 | 0.0 | Work 2 | I | 0 | 321, 217 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 529 | ||
| 1 | 0.0 | LOC_TRANS | LT_TRANS | I | 0 | 211, 73 | |
| 1 | 0.0 | Work 1 | I | 0 | 181, 73 | ||
| 1 | 0.0 | Work 2 | I | 0 | 581, 133 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 681, 109 | $SELECT S:CS_DEPNO;I\DEPNO;I\AGENT;I\CONSIGN |
|
| 1 | 0.0 | Work 1 | I | 0 | 221, 253 | ||
| 1 | 0.0 | Work 2 | I | 0 | 561, 481 | ||
| 1 | 0.0 | Label 4 | T | 0 | 431, 85 | ||
| 1 | 0.0 | Work 1 | I | 0 | 311, 361 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 505 | ||
| 1 | 0.0 | CONF_USER | I | 0 | 491, 529 | ||
| 1 | 0.0 | Work 7 | I | 0 | 561, 505 | ||
| 1 | 0.0 | Work 2 | I | 0 | 341, 361 | ||
| 1 | 0.0 | Work 3 | I | 0 | 271, 361 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 651, 546 | $SCMD_FOCUS O:BACKCOLOR;C\UPDATE;YELLOW $SELECT I:I\CONSIGN;=; DO(CHK) O:SETFOCUS;I\CONSIGN D:ERROR - ENTER CONSIGNMENT AND PRESS ENTER;ERRORM;I\CONSIGN DOEND(CHK) I:I\CONSIGN;<>; F:STK_DETS;Y;;;SD_CONSIGN='$I\CONSIGN$';I\CONSIGN I:I\DEPNO;=; DO(CHK1) O:SETFOCUS;I\DEPNO D:ERROR - DEPO |
|
| 1 | 0.0 | Work 1 | I | 0 | 451, 385 | ||
| 1 | 0.0 | Work 6 | I | 0 | 621, 505 | ||
| 1 | 0.0 | LESS | I | 0 | 581, 529 | ||
| 1 | 0.0 | Work 1 | I | 0 | 561, 385 | ||
| 1 | 0.0 | CONF_TIME | I | 0 | 521, 529 | ||
| 1 | 0.0 | CONFIRMED | I | 0 | 551, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 581, 193 | ||
| 1 | 0.0 | DEP_ISSUES | I | 0 | 211, 361 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 145 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 145 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 145 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 145 | $BEFORE_WRITE U:CS_AGDEP_AMD_MAN;UPDATE_CS_DATA |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 145 |