Program drill-down
CS_AGENT_DEP_MAN
AGENT COLD STORAGE DEPOSIT. Type DSP, base table LOC_TRANS.
Field inventory
100
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 12 | T | -1 | 21, 169 | ||
| 1 | 0.0 | Work 11 | I | -1 | 141, 241 | ||
| 1 | 0.0 | Label 8 | T | -1 | 271, 49 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 21, 277 | ||
| 1 | 0.0 | Work 2 | I | -1 | 141, 457 | $VALIDATE C:UCASE O:DISABLEINPUT;T\PRT_LABELS,I\PRT_LABELS,T\NUMB_LABELS,I\NUMB_LABELS O:SETFOCUS;C\CREATE O:BACKCOLOR;C\CREATE;YELLOW |
|
| 1 | 0.0 | Label 2 | T | -1 | 21, 313 | ||
| 1 | 0.0 | Label 10 | T | -1 | 501, 277 | ||
| 1 | 0.0 | Label 12 | T | -1 | 21, 385 | ||
| 1 | 0.0 | Label 3 | T | -1 | 271, 313 | ||
| 1 | 0.0 | Label 8 | T | -1 | 271, 277 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 201, 277 | $SELECT ' >> RK200906 =========================== 'S:LOCATION_CS_CODES;I\ROOM_NO I:I\ORGS;=; DO(AJA) I:I\OWN_CR;=;Y S:LOCATION_CS_CODES1;I\ROOM_NO I:I\OWN_CR;=;N S:LOCATION_CS_CODES;I\ROOM_NO DOEND(AJA) I:I\ORGS;<>; DO(ALA) I:I\OWN_CR;=;Y S:LOCATION_CS_CODES2;I\ROOM_NO;I\ORGS I:I\O |
|
| 1 | 0.0 | CMD 1 | C | -1 | 650, 548 | $SELECT 'U:ACTIVE_CONS;LOCK 'I:I\MARKET;=;18 'DO(DBN) ' A:DATE;DD MMM YYYY;I\DEP_DATE 'DOEND(DBN) 'JD 20250318 - TO TRAP DIFFERENT AGENT CODES FOR SPRINGS F:STK_DETS;;;I\AGENT=SD_AGENT,I\TMP_AGENT=SD_AGENT;SD_CONSIGN = '$I\CONSIGN$' AND ISNULL(SD_CDATE);I\CONSIGN I:I\AGENT;<>;I\TMP_AGENT D:AGENT CODE DOES |
|
| 1 | 0.0 | Work 1 | I | 0 | 581, 241 | ||
| 1 | 0.0 | Work 1 | I | 0 | 571, 385 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 431, 277 | $SELECT 'DISPLAY A SELECTION WINDOW S:ROOM_SECTION;I\SECT;I\ROOM_NO |
|
| 1 | 0.0 | Work 1 | I | 0 | 321, 409 | ||
| 1 | 0.0 | Work 1 | I | 0 | 581, 529 | ||
| 1 | 0.0 | Work 1 | I | 0 | 321, 85 | ||
| 1 | 0.0 | Work 1 | I | 0 | 61, 49 | ||
| 1 | 0.0 | Work 1 | I | -1 | 141, 97 | $SELECT 'DISPLAY A SELECTION WINDOW A:ORGS;;I\ORGS ' >> ADDED RK200911 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I:I\MARKET;<>;23 DO(001) I:I\ORGS;<>; S:CONS_AGENT;I\CONSIGN;I\ORGS I:I\ORGS;=; S:CONS_QTY;I\CONSIGN DOEND(001) I:I\MARKET;=;23 DO(23) I:I\ORGS;<>; DO(001) U:COLD_STORAGE_DAT |
|
| 1 | 0.0 | Work 1 | I | 0 | 1, 49 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME 'A:TIMER_ON;1000 A:CONST;1;I\PALLET U:MENU_GROUP;LOOKUP |
|
| 1 | 0.0 | Work 10 | I | -1 | 141, 205 | ||
| 1 | 0.0 | CONT | I | 0 | 401, 205 | ||
| 1 | 0.0 | Work 2 | I | 0 | 301, 205 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 529 | ||
| 1 | 0.0 | ORGS | I | 0 | 341, 565 | ||
| 1 | 0.0 | Work 2 | I | 0 | 371, 565 | ||
| 1 | 0.0 | Work 1 | I | 0 | 581, 181 | 'ADDED BY LP20110628 BECAUSE IF CONSIGNMENT HAS BEEN RE-USED IT SHOWS WRONG DETAILS |
|
| 1 | 0.0 | Work 1 | I | 0 | 321, 109 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 133 | ||
| 1 | 0.0 | Work 1 | I | -1 | 141, 133 | ||
| 1 | 0.0 | Work 13 | I | -1 | 141, 169 | ||
| 1 | 0.0 | Work 11 | I | -1 | 141, 385 | '$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 I:I\TMP;<;I\TMP4;NUM D:TARIFF IS LESS THAN MI |
|
| 1 | 0.0 | Drop 1 | D | -1 | 371, 313 | $DEFAULT 'ADDS THE SPECIFIED ITEMS TO THE COMBOBOX I:I\MARKET;<>;11 B:ADDITEM;D\CM_CSTARIFF;M - MONTHLY,W - WEEKLY,D - DAILY,H - HOURLY I:I\MARKET;=;11 B:ADDITEM;D\CM_CSTARIFF;D - DAILY $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'CHECKS THAT ONLY THE ADDED ITEMS ARE ENTERED I:D\CM_CSTARIFF;=;M - MONTHL |
|
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 1 | 0.0 | Work 1 | I | 0 | 471, 529 | ||
| 1 | 0.0 | Work 3 | I | 0 | 271, 529 | ||
| 1 | 0.0 | Work 4 | I | 0 | 231, 529 | ||
| 1 | 0.0 | Work 5 | I | 0 | 191, 529 | ||
| 1 | 0.0 | Work 6 | I | 0 | 151, 529 | ||
| 1 | 0.0 | Work 8 | I | 0 | 391, 529 | ||
| 1 | 0.0 | Work 9 | I | 0 | 111, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 311, 529 | ||
| 1 | 0.0 | Work 1 | I | 0 | 351, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 631, 493 | ||
| 1 | 0.0 | Work 1 | I | -1 | 141, 313 | '$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 | Work 9 | I | -1 | 571, 277 | $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 ' >> RK200905 ==== |
|
| 1 | 0.0 | Work 1 | I | 0 | 81, 49 | ||
| 1 | 0.0 | Work 7 | I | -1 | 371, 277 | $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 F:ROOM_DET;Y;;I\TMP=RD_SHELVES;RD_ROOM='$I\ROOM_NO$' AND RD_SECTION = '$I\SECT$' 'F:ROOM_DET;;;I\TMP=RD_SHELVES;RD_ROOM='$I\ROOM_N |
|
| 1 | 0.0 | Work 1 | I | -1 | 581, 97 | ||
| 1 | 0.0 | Work 1 | I | -1 | 141, 493 | $VALIDATE C:UCASE I:I\MARKET;=;15 DO(0) V:Y;N; I:I\PRT_LABELS;=;Y DO(Y) O:ENABLEINPUT;T\NUMB_LABELS,I\NUMB_LABELS O:SETFOCUS;I\NUMB_LABELS DOEND(Y) I:I\PRT_LABELS;=; DO(L) A:CONST;N;I\PRT_LABELS DOEND(L) ' I:I\PRT_LABELS;=;N ' DO(S) ' O:DISABLEINPUT;I\NUMB_LABELS ' O:ENABLEINP |
|
| 1 | 0.0 | Work 13 | I | -1 | 371, 385 | $CALCULATE '$VALIDATE C:UCASE 'MAKE SURE QTY IS NOT < 0 A:LEFT;I\ITEM,2;I\TMP;; I:I\TMP;<>;BA; DO(BA) I:I\MARKET;=;18 DO(DBN) I:I\PALLET;<=;0;NUM D:QUANTITY MUST BE GREATER THAN ZERO;ERRORM;I\PALLET I:I\PALLET;>=;999;NUM D:QUANTITY CAN'T BE GREATER THAN 999;ERRORM;I\PALLET DOEND(DBN) DOEND(BA) I:I\ |
|
| 1 | 0.0 | Work 4 | I | -1 | 511, 493 | $VALIDATE I:I\NUMB_LABELS;=;0 D:ENTER A VALID NUMBER OF COPIES TO PRINT;ERRORM;I\NUMB_LABELS I:I\NUMB_LABELS;=; D:ENTER A VALID NUMBER OF COPIES TO PRINT;ERRORM;I\NUMB_LABELS O:SETFOCUS;C\CREATE O:BACKCOLOR;C\CREATE;YELLOW |
|
| 1 | 0.0 | LOC_TRANS | LT_TRANS | I | 0 | 41, 49 | |
| 1 | 0.0 | LOC_TRANS | LT_MARKET | I | 0 | 21, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD AGENT A:ORGS;;I\ORGS 'LOAD IP A:USERIP;;I\IP A:USERID;;I\USERID 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;I\OWN_CR=CM_OWN_ROOMS,T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN,D\CM_CSTARIFF=CM_CSTARIFF;; 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL C:MCA |
| 1 | 0.0 | Work 9 | I | -1 | 141, 349 | '$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 ' >> RK200905 ==================================================================== $SVAR_FOCUS I:I\CONSIGN;<>; DO(001) 'I:I\SD_ACTIVE;=;A 'DO(001) |
|
| 1 | 0.0 | Work 1 | I | 0 | 401, 565 | ||
| 1 | 0.0 | Label 2 | T | -1 | 21, 421 | ||
| 1 | 0.0 | DELNO | T | -1 | 21, 97 | ||
| 1 | 0.0 | STK_MAST | SM_AGENT | T | -1 | 21, 133 | |
| 1 | 0.0 | Label 10 | T | -1 | 21, 241 | ||
| 1 | 0.0 | Label 12 | T | -1 | 271, 385 | ||
| 1 | 0.0 | Label 8 | T | -1 | 21, 349 | ||
| 1 | 0.0 | Label 2 | T | -1 | 231, 169 | ||
| 1 | 0.0 | Work 1 | I | 0 | 251, 565 | ||
| 1 | 0.0 | Work 1 | I | 0 | 511, 445 | ||
| 1 | 0.0 | Work 1 | I | 0 | 451, 169 | ||
| 1 | 0.0 | Work 1 | I | 0 | 661, 157 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 231, 97 | $SELECT 'DISPLAY A SELECTION WINDOW A:ORGS;;I\ORGS ' >> ADDED RK200911 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I:I\MARKET;<>;23 DO(001) I:I\ORGS;<>; S:CONS_AGENT;I\CONSIGN;I\ORGS I:I\ORGS;=; S:CONS_QTY;I\CONSIGN DOEND(001) I:I\MARKET;=;23 DO(001) I:I\ORGS;<>; DO(001) U:COLD_STORAGE_DA |
|
| 1 | 0.0 | Label 2 | T | -1 | 441, 97 | ||
| 1 | 0.0 | Work 4 | I | -1 | 141, 277 | $SELECT I:I\MARKET;<>;63 DO(FFV) I:I\ORGS;=; DO(AJA) I:I\OWN_CR;=;Y S:LOCATION_CS_CODES1;I\ROOM_NO I:I\OWN_CR;=;N S:LOCATION_CS_CODES;I\ROOM_NO DOEND(AJA) I:I\ORGS;<>; DO(ALA) I:I\OWN_CR;=;Y S:LOCATION_CS_CODES2;I\ROOM_NO;I\ORGS I:I\OWN_CR;=;N S:LOCATION_CS_CODES3;I\ROOM_NO;I\ORGS |
|
| 1 | 0.0 | Work 2 | I | 0 | 581, 217 | 'ADDED BY LP20110628 BECAUSE IF CONSIGNMENT HAS BEEN RE-USED IT SHOWS WRONG DETAILS |
|
| 1 | 0.0 | Work 3 | I | -1 | 141, 421 | $VALIDATE C:UCASE O:DISABLEINPUT;T\PRT_LABELS,I\PRT_LABELS,T\NUMB_LABELS,I\NUMB_LABELS O:SETFOCUS;C\CREATE O:BACKCOLOR;C\CREATE;YELLOW ' >> RK200905 ==================================================================== $SVAR_FOCUS I:I\CONSIGN;<>; DO(001) 'I:I\SD_ACTIVE;=;A 'DO(001) A:CONST;N;I\SD_ACTI |
|
| 1 | 0.0 | DEL DATE | T | -1 | 21, 205 | ||
| 1 | 0.0 | AGENT_NAME | T | -1 | 211, 133 | ||
| 1 | 0.0 | Label 2 | T | -1 | 21, 493 | ||
| 1 | 0.0 | Label 3 | T | -1 | 411, 493 | ||
| 1 | 0.0 | Label 1 | T | -1 | 501, 313 | ||
| 1 | 0.0 | Label 1 | T | -1 | 21, 457 | ||
| 1 | 0.0 | Work 1 | I | 0 | 511, 469 | ||
| 1 | 0.0 | Work 1 | I | 0 | 281, 565 | ||
| 1 | 0.0 | Work 3 | I | 0 | 311, 565 | ||
| 1 | 0.0 | Work 1 | I | 0 | 261, 493 | ||
| 1 | 0.0 | Work 2 | I | 0 | 291, 493 | ||
| 1 | 0.0 | Work 3 | I | 0 | 321, 493 | ||
| 1 | 0.0 | Work 1 | I | 0 | 231, 565 | ||
| 1 | 0.0 | Work 1 | I | 0 | 401, 133 | ||
| 1 | 0.0 | Work 2 | I | 0 | 111, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 661, 133 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 115 | $EXIT U:ACTIVE_CONS;UNLOCK U:CS_AGENT_DEP_MAN;CHECK_CONS_UNLOCK |
|
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 115 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 115 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 115 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 115 | $BEFORE_WRITE 'U:ACTIVE_CONS;LOCK 'U:CS_AGENT_DEP_MAN;UPDATE_CS_DATA 'I:I\MARKET;=;15 'DO(0) 'I:I\NUMB_LABELS;<>;0 'DO(2) 'U:CS_DEPOSIT_LABELS;MARKET_DP 'DOEND(2) 'DOEND(0) |