Program drill-down
CS_AGENT_RIP_MAN
AGENT RIPENING ROOM DEPOSIT. Type MAN, base table LOC_TRANS.
Field inventory
71
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 1 | I | 0 | 401, 565 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 201, 289 | $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 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 ' >> RK200905 ==================================================================== $SVAR_FOCUS I:I\CONSIGN;<>; DO(001) 'I:I\SD_ACTIVE;=;A 'DO(001) |
|
| 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 I:I\TMP;<;I\TMP4;NUM D:TARIFF IS LESS THAN MI |
|
| 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 ' >> RK200905 ==================================================================== $SVAR_FOCUS I:I\CONSIGN;<>; DO(001) 'I:I\SD_ACTIVE;=;A 'DO(001) A:CONST;N;I\SD_ACTIVE '''JP U:ACTIVE_CONS;LOCK 'DOEND(001) DOEND(001) ' << RK200905 =================================================== |
|
| 1 | 0.0 | LT_MARKET | I | 0 | 171, 73 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD AGENT A:ORGS;;I\ORGS '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;; 'F:CLIENT_MAST;;CM_CODE;I\TMP=SD_RECQTY,I\TMP2=SD_SLDQTY;; 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET |
|
| 1 | 0.0 | Work 13 | I | -1 | 141, 433 | '$CALCULATE $VALIDATE 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) ' >> RK200905 ============================= |
|
| 1 | 0.0 | Work 4 | I | -1 | 141, 289 | $SELECT 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_CODES;I\ROOM_NO DOEND(ALA) $ESC O:SETFOCUS;I\CO |
|
| 1 | 0.0 | Label 2 | T | -1 | 441, 109 | ||
| 1 | 0.0 | Work 1 | I | 0 | 141, 73 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 |
|
| 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 | LT_CONSIGNO | I | -1 | 141, 109 | $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_D |
|
| 1 | 0.0 | Work 1 | I | 0 | 441, 145 | ||
| 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 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_D |
|
| 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 | 261, 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 | LT_DEPNO | I | -1 | 581, 109 | ||
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 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 F:ROOM_DET;Y;;;RD_ROOM='$I\ROOM_NO$' AND RD_SECTION = '$I\SECT$' F:ROOM_DET;;;I\TMP=RD_SHELVES;RD_ROOM='$I\ROOM_NO$' ' >> RK200 |
|
| 1 | 0.0 | Work 1 | I | 0 | 281, 109 | ||
| 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 ' >> RK200905 ==== |
|
| 1 | 0.0 | Label 10 | T | -1 | 501, 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 | Work 2 | I | 0 | 631, 493 | ||
| 1 | 0.0 | Label 2 | T | -1 | 21, 325 | ||
| 1 | 0.0 | Work 1 | I | 0 | 351, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 311, 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 1 | I | 0 | 471, 529 | ||
| 1 | 0.0 | Work 10 | I | -1 | 141, 217 | ||
| 1 | 0.0 | CONT | I | 0 | 401, 217 | ||
| 1 | 0.0 | Label 1 | T | -1 | 511, 325 | ||
| 1 | 0.0 | Work 2 | I | 0 | 301, 217 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 529 | ||
| 1 | 0.0 | LOC_TRANS | LT_TRANS | I | 0 | 201, 73 | |
| 1 | 0.0 | ORGS | I | 0 | 371, 505 | ||
| 1 | 0.0 | Work 2 | I | 0 | 400, 499 | ||
| 1 | 0.0 | Work 1 | I | 0 | 261, 109 | ||
| 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 |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 115 | $EXIT U:ACTIVE_CONS;UNLOCK |