Program drill-down
LOC_RATE_MAN
LOCATION RATE MAINTENANCE. Type DSP, base table CONT_RATE.
Field inventory
68
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | FUNIT1 | T | -1 | 361, 157 | ||
| 1 | 0.0 | CMD 20 | C | -1 | 231, 229 | $SELECT 'DISPLAY A SELECTION WINDOW I:W\BTN;=;Y S:LOCATION_TYPE;I\CR_TYPE |
|
| 1 | 0.0 | CONT | G | -1 | 11, 253 | ||
| 1 | 0.0 | PALL_RATE | PAR_PALL | I | -1 | 481, 229 | $SELECT ''S:PALLET;I\PAR_PALL CHANGED TO SELECT BELOW S:PALLET_CODE;I\PAR_PALL $VALIDATE 'CLEAR FIELDS A:CONST;;I\PAR_EFF_DATE,I\PAR_TYPE,I\PAR_TARRIF 'INITIALIZE GRIDS U:ZZGRID_SPLIT;INIT_GRID;G\PALL;I\PAR_PALL,I\PAR_TYPE,I\PAR_EFF_DATE,I\PAR_TARRIF 'RE-LOAD THE GRID U:LOC_RATE_MAN;LOAD_GRID;G\CO |
| 1 | 0.0 | Work 28 | G | -1 | 481, 253 | ||
| 1 | 0.0 | FUINIT2 | T | -1 | 361, 169 | ||
| 1 | 0.0 | CMD 26 | C | -1 | 591, 229 | $SELECT 'DISPLAY A SELECTION WINDOW I:I\PAR_PALL;<>; S:LOCATION_TYPE;I\PAR_TYPE |
|
| 1 | 0.0 | PALL_RATE | PAR_TARRIF | I | -1 | 721, 229 | $CALCULATE I:I\PAR_PALL;=; D:PALL IS A MANDATORY FIELD;ERRORM;I\PAR_PALL I:I\PAR_EFF_DATE;<>; DO(DF) A:DATEDIFF;I\PAR_EFF_DATE;W\DATEDIFF;T\DATE;#0;D I:W\DATEDIFF;<;0;NUM D:EFFECTIVE DATE MUST CANNOT BE LESS THAN THE TODAY'S DATE;ERRORM;I\PAR_EFF_DATE DOEND(DF) 'FORMAT THE DATE FOR PASSING |
| 1 | 0.0 | PALL_RATE | PAR_TARRIF | T | -1 | 721, 205 | |
| 1 | 0.0 | PALL_RATE | PAR_PALL | T | -1 | 481, 205 | |
| 1 | 0.0 | CMD 24 | C | -1 | 521, 229 | $SELECT ''S:PALLET;I\PAR_PALL CHANGED TO THE SELECT BELOW S:PALLET_CODE;I\PAR_PALL 'SET FOCUS O:SETFOCUS;I\PAR_PALL |
|
| 1 | 0.0 | PALL_RATE | PAR_TYPE | I | -1 | 551, 229 | $SELECT 'DISPLAY A SELECTION WINDOW S:LOCATION_TYPE;I\PAR_TYPE $VALIDATE 'MAKE THIS FIELD M: 'CONVERT TO UPPERCASE C:UCASE 'VALIDATE LOCATION TYPE F:LOCATION_TYPE;Y;LC_TYPE;;;I\PAR_TYPE 'CLEAR THIS FIELD A:CONST;;W\RESULT,I\PAR_EFF_DATE,I\PAR_TARRIF 'INITIALIZE GRIDS U:ZZGRID_SPLIT;INIT_GRID; |
| 1 | 0.0 | T | -1 | 551, 205 | |||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | CONT_RATE | CR_TARRIF | I | -1 | 361, 229 | $ESC A:CONST;;I\CR-TARRIF $CALCULATE I:I\CR_TARRIF;=;0;NUM D:ERROR - TARRIF CANNOT BE LESS OR EQUAL TO ZERO;ERRORM;I\CR_TARRIF A:VAR;I\CR_TARRIF;I\CR_TARRIF;;#0.000 I:I\CR_CONT;=; D:CONTAINER IS A MANDATORY FIELD;ERRORM;I\CR_CONT A:DATEDIFF;I\CR_EFF_DATE;W\DATEDIFF;T\DATE;#0;D I:W\DATEDIFF;<;0;NUM D:E |
| 1 | 0.0 | CONT_RATE | CR_TARRIF | T | -1 | 361, 205 | |
| 1 | 0.0 | T | -1 | 191, 205 | |||
| 1 | 0.0 | I\DATE | I | -1 | 161, 97 | '$SVAR_FOCUS 'A:CONST;;I\DATE 'I:I\DATE;<>; 'A:VAR;T\DATE;I\DATE $CALCULATE 'CLEAR FIELDS A:CONST;;I\PAR_PALL,I\PAR_TYPE,I\PAR_EFF_DATE,I\PAR_TARRIF,I\CR_CONT,I\CR_PRODUCT,I\MASS,I\CR_TYPE,I\CR_EFF_DATE,I\CN_FLRUNIT,I\CR_TARRIF,I\PERC A:CONST;N;W\RESULT 'DISABLE INPUT 'O:DISABLEINPUT;I\PERC $VALIDAT |
|
| 1 | 0.0 | Label 5 | T | -1 | 51, 97 | ||
| 1 | 0.0 | CONT_RATE | CR_TYPE | I | -1 | 191, 229 | $SELECT 'DISPLAY A SELECTION WINDOW I:W\BTN;=;Y S:LOCATION_TYPE;I\CR_TYPE $VALIDATE 'CLEAR THESE FIELDS A:CONST;;I\CN_FLRUNIT,I\CR_TARRIF 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'VALIDATE LOCATION TYPE F:LOCATION_TYPE;Y;LC_TYPE;;;I\CR_TYPE $CALCULATE '- - - - - - - - |
| 1 | 0.0 | CONT_RATE | CR_PRODUCT | I | -1 | 81, 229 | $SELECT I:W\BTN;=;Y S:PRODUCT;I\CR_PRODUCT $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'VALIDATE PRODUCT CODE I:I\CR_PRODUCT;<>; F:PRODUCT_MAST;Y;PR_PRODUCT;;PR_BLOCKED<>'Y';I\CR_PRODUCT A:CONST;;W\COMMODITY 'VALIDATE THE COMMODITY F:CONT_MAST;;;W\COMMODITY=CN_CONT,I\MASS=CN_MASS;CN_PRODUCT='$I\CR_ |
| 1 | 0.0 | CONT_RATE | CR_PRODUCT | T | -1 | 81, 205 | |
| 1 | 0.0 | CONT_MAST | CN_FLRUNIT | I | 0 | 311, 289 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 0.0 | CONT_MAST | CN_FLRUNIT | T | 0 | 301, 253 | |
| 1 | 0.0 | CONT_RATE | CR_CONT | I | -1 | 11, 229 | $SELECT 'DISPLAY SELECTION WINDOW S:CONT_SEL;I\CR_CONT $VALIDATE C:UCASE 'VALIDATE PALLET TYPE I:I\CR_CONT;<>; F:CONT_MAST;Y;CN_CONT;;CN_BLOCKED<>'Y';I\CR_CONT $CALCULATE A:CONST;;I\CR_PRODUCT,I\CR_TYPE,I\CR_EFF_DATE,I\CR_FLRUNIT,I\CR_TARRIF '- - - - - - - - - - - - - - - - - - - BEGIN- - - |
| 1 | 0.0 | CONT_RATE | CR_CONT | T | -1 | 11, 205 | |
| 1 | 0.0 | CONT_RATE | CR_EFF_DATE | I | -1 | 261, 229 | $DEFAULT O:DISABLEINPUT;I\CR_EFF_DATE $VALIDATE I:I\CR_EFF_DATE;<>; DO(DIF) A:DATEDIFF;I\CR_EFF_DATE;W\DATEDIFF;T\DATE;#0;D I:W\DATEDIFF;<;0;NUM D:EFFECTIVE DATE MUST CANNOT BE LESS THAN THE TODAY'S DATE;ERRORM;I\CR_EFF_DATE DOEND(DIF) 'DEFAULT TO TODAY'S DATE I:I\CR_EFF_DATE;=; DO |
| 1 | 0.0 | CONT_RATE | CR_EFF_DATE | T | -1 | 261, 205 | |
| 1 | 0.0 | CMD 10 | C | -1 | 51, 229 | $SELECT 'DISPLAY SELECTION WINDOW S:CONT_SEL;I\CR_CONT 'SET FOCUS O:SETFOCUS;I\CR_CONT |
|
| 1 | 0.0 | CMD 11 | C | -1 | 121, 229 | $SELECT I:W\BTN;=;Y S:PRODUCT;I\CR_PRODUCT |
|
| 1 | 0.0 | Label 32 | T | -1 | 501, 121 | ||
| 1 | 0.0 | Label 34 | T | -1 | 501, 97 | ||
| 1 | 0.0 | Label 8 | T | -1 | 271, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 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 | DEFAULT | I | 0 | 1, 49 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZE GRIDS U:ZZGRID_SPLIT;INIT_GRID;G\PALL;I\PAR_PALL,I\PAR_TYPE,I\PAR_EFF_DATE,I\PAR_TARRIF U:ZZGRID_SPLIT;INIT_GRID;G\CONT;I\CR_CONT,I\CR_PRODUCT,I\MASS,I\CR_TYPE,I\CR_EFF_DATE,I\CN_FLRUNIT:H,I\CR_TARRIF |
|
| 1 | 0.0 | Label 7 | T | -1 | 621, 205 | ||
| 1 | 0.0 | PERCENTAGE | I | -1 | 611, 121 | $CALCULATE 'A:CONST;;W\TEMP 'A:ISDATE;I\DATE;W\TEMP 'I:W\TEMP;=;N 'D:INVALID DATE FORMAT;ERRORM;I\DATE 'I:I\PERC;<>; ' DO(CHK) ' I:I\PERC;=;0.00;NUM ' D:PERCENTAGE CANNOT BE EQUAL TO ZERO;ERRORM;I\PERC ' DOEND(CHK) 'EDITED BY LAZ ON JANET'S REQUEST I:I\PERC;>;0;NUM DO(01) O:DISABLEINPUT;I\CR_CON |
|
| 1 | 0.0 | CONT BUTTON | C | -1 | 11, 481 | $SCMD_FOCUS O:BACKCOLOR;C\CONT;YELLOW $SELECT A:CONST;;I\LINE 'CHECK IF THE GRID IS EMPTY U:SUPPLIER_PALL_RETURN;LINE_NO;G\CONT I:I\LINE;=;1;NUM D:ERROR - THE GRID IS EMPTY - NO RECORDS TO UPDATE;ERRORM;I\PAR_PALL 'CHECK IF FIELD IS EMPTY WHOLE IF STATEMENT COMMENTED BY LAZ BECAUSE ITS UPDATING |
|
| 1 | 0.0 | TEMP | I | 0 | 21, 553 | ||
| 1 | 0.0 | PALL_RATE | PAR_EFF_DATE | I | -1 | 621, 229 | $DEFAULT O:DISABLEINPUT;I\PAR_EFF_DATE $VALIDATE I:I\PAR_EFF_DATE;<>; DO(DIFF) A:DATEDIFF;I\PAR_EFF_DATE;W\DATEDIFF;T\DATE;#0;D I:W\DATEDIFF;<;0;NUM D:EFFECTIVE DATE MUST CANNOT BE LESS THAN THE TODAY'S DATE;ERRORM;I\PAR_EFF_DATE DOEND(DIFF) 'DEFAULT TO TODAY'S DATE I:I\PAR_EFF_DATE; |
| 1 | 0.0 | PALL BUTTON | C | -1 | 481, 481 | $SCMD_FOCUS O:BACKCOLOR;C\PALL;YELLOW $SELECT 'CHECK IF THE GRID IS EMPTY U:SUPPLIER_PALL_RETURN;LINE_NO;G\PALL I:I\LINE;=;1;NUM D:ERROR - THE GRID IS EMPTY - NO RECORDS TO UPDATE;ERRORM;I\PAR_PALL 'CHECK IF THESE FIELDS ARE EMPTY WHOLE IF STATEMENT COMMENTED BY LAZ BECAUSE ITS UPDATING DATABASE WH |
|
| 1 | 0.0 | Work 1 | I | -1 | 151, 229 | ||
| 1 | 0.0 | Label 2 | T | -1 | 151, 205 | ||
| 1 | 0.0 | Work 1 | I | 0 | 191, 553 | ||
| 1 | 0.0 | Work 8 | I | 0 | 21, 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 | Label 9 | T | -1 | 191, 181 | ||
| 1 | 0.0 | Label 10 | T | -1 | 551, 181 | ||
| 1 | 0.0 | Label 11 | T | 0 | 191, 169 | ||
| 1 | 0.0 | Label 12 | T | 0 | 551, 169 | ||
| 1 | 0.0 | Work 14 | I | 0 | 261, 553 | ||
| 1 | 0.0 | Work 1 | I | 0 | 41, 553 | ||
| 1 | 0.0 | FLAG | I | 0 | 241, 553 | ||
| 1 | 0.0 | W\DATE | I | 0 | 151, 553 | ||
| 1 | 0.0 | Work 2 | I | 0 | 171, 553 | ||
| 1 | 0.0 | W PAR EFF DATE | I | 0 | 131, 553 | ||
| 1 | 0.0 | LINE | I | 0 | 171, 481 | ||
| 1 | 0.0 | COMMODITY | I | 0 | 61, 517 | ||
| 1 | 0.0 | DATE DIFF | I | 0 | 281, 553 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |