Program drill-down
PRODUCT_MAN
PRODUCT MAINTENANCE. Type MAN, base table PRODUCT_MAST.
Field inventory
82
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 8 | T | -1 | 291, 25 | ||
| 1 | 0.0 | H | -1 | 1, 25 | |||
| 1 | 0.0 | PRODUCT_MAST | PR_PRODUCT | I | -1 | 191, 121 | $SELECT S:PRODUCT_NOBLOCK;I\PR_PRODUCT $VALIDATE M: 'CONVERT TO UPPERCASE C:UCASE A:LEN;I\PR_PRODUCT;I\TMPLEN I:I\TMPLEN;<>;2 D:PRODUCT CODE MUST BE TWO CHARACTERS;ERRORM;I\PR_PRODUCT F:PRODUCT_MAST;;;I\TMPNEW=PR_PRODUCT;PR_PRODUCT='$I\PR_PRODUCT$' I:I\TMPNEW;=; A:CONST;;I\LEVY $AFTER_READ I:I\PR |
| 1 | 0.0 | PRODUCT_MAST | PR_PRODUCT | T | -1 | 21, 121 | |
| 1 | 0.0 | PRODUCT_MAST | PR_DESC | I | -1 | 191, 157 | $VALIDATE M: C:UCASE |
| 1 | 0.0 | PRODUCT_MAST | PR_DESC | T | -1 | 21, 157 | |
| 1 | 0.0 | PRODUCT_MAST | PR_ADESC | I | -1 | 191, 193 | $VALIDATE C:UCASE |
| 1 | 0.0 | PRODUCT_MAST | PR_ADESC | T | -1 | 21, 193 | |
| 1 | 0.0 | CMD 4 | C | -1 | 251, 121 | $SELECT S:PRODUCT;I\PR_PRODUCT |
|
| 1 | 0.0 | PRODUCT_MAST | PR_SECT | I | -1 | 471, 121 | $SELECT S:SECTIONI;I\PR_SECT $VALIDATE M: C:UCASE F:SECT_MAST;Y;SE_SECT;I\PR_SECT=SE_SECT;SE_TYPE='I';I\PR_SECT |
| 1 | 0.0 | PRODUCT_MAST | PR_SECT | T | -1 | 371, 121 | |
| 1 | 0.0 | PRODUCT_MAST | PR_COMM_PERC | I | -1 | 191, 229 | $VALIDATE I:I\PR_COMM_PERC;<> R:0;100;I\PR_COMM_PERC |
| 1 | 0.0 | PRODUCT_MAST | PR_COMM_PERC | T | -1 | 21, 229 | |
| 1 | 0.0 | Label 7 | T | -1 | 301, 49 | ||
| 1 | 0.0 | PRODUCT_MAST | PR_GENLV | T | -1 | 21, 277 | |
| 1 | 0.0 | PRODUCT_MAST | PR_VATCD | T | -1 | 191, 277 | |
| 1 | 0.0 | PRODUCT_MAST | PR_PRCVAR | T | -1 | 391, 277 | |
| 1 | 0.0 | PRODUCT_MAST | PR_GROUP | T | -1 | 21, 313 | |
| 1 | 0.0 | PRODUCT_MAST | PR_LEVY | I | 0 | 21, 481 | |
| 1 | 0.0 | PRODUCT_MAST | PR_LEVY | T | -1 | 21, 457 | |
| 1 | 0.0 | PRODUCT_MAST | PR_ONHREQ | T | -1 | 391, 313 | |
| 1 | 0.0 | PRODUCT_MAST | PR_FRTSTAT | T | -1 | 561, 277 | |
| 1 | 0.0 | APO_DESC | T | -1 | 571, 421 | ||
| 1 | 0.0 | PRODUCT_MAST | PR_APOSTAT | T | -1 | 391, 421 | |
| 1 | 0.0 | PRODUCT_MAST | PR_BEMSTAT | T | -1 | 191, 313 | |
| 1 | 0.0 | PRODUCT_MAST | PR_MKTDUE | T | -1 | 391, 349 | |
| 1 | 0.0 | PRODUCT_MAST | PR_DECFRT | T | -1 | 561, 313 | |
| 1 | 0.0 | PRODUCT_MAST | PR_CONTBLK | T | -1 | 21, 385 | |
| 1 | 0.0 | PRODUCT_MAST | PR_VARPER | T | -1 | 21, 421 | |
| 1 | 0.0 | PRODUCT_MAST | PR_SPECDEL | T | -1 | 191, 349 | |
| 1 | 0.0 | PRODUCT_MAST | PR_EXPLIFE | T | -1 | 391, 385 | |
| 1 | 0.0 | PRODUCT_MAST | PR_NDAITEM | I | -1 | 501, 229 | $VALIDATE M: C:UCASE A:LEN;I\PR_NDAITEM;I\NDA_LEN I:I\NDA_LEN;<>;3 D:NDA CODE MUST BE 3 CHARACTERS FOR PRODUCT;ERRORM;I\PR_NDAITEM |
| 1 | 0.0 | PRODUCT_MAST | PR_NDAITEM | T | -1 | 371, 229 | |
| 1 | 0.0 | Label 1 | T | -1 | 441, 457 | ||
| 1 | 0.0 | PRODUCT_MAST | PR_BAR_CODE | I | -1 | 541, 457 | |
| 1 | 0.0 | CMD 1 | C | -1 | 313, 278 | $SELECT S:VAT;I\PR_VATCD |
|
| 1 | 0.0 | CMD 2 | C | -1 | 191, 457 | $SELECT S:LEVY_MAN;I\LEVY_LST |
|
| 1 | 0.0 | CMD 3 | C | -1 | 191, 481 | $SELECT I:I\LEVY_LST;<>; DO(CHK) I:I\PR_LEVY;<>; DO(CHK2) A:CRLF;I\TMP;I\TMP A:CON;I\TMP;I\WORK;I\LEVY U:DELETE_MV;DELETE_DESC;I\LEVY_LST,I\LEVY U:DELETE_MV;DELETE;I\LEVY_LST,I\PR_LEVY DOEND(CHK2) DOEND(CHK) A:CONST;;I\LEVY_LST O:SETFOCUS;C\DEL;I\LEVY_LST |
|
| 1 | 0.0 | TMP | I | 0 | 101, 541 | ||
| 1 | 0.0 | Label 1 | T | 0 | 1, 589 | ||
| 1 | 0.0 | Label 9 | T | -1 | 1, 25 | ||
| 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, 73 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 |
|
| 1 | 0.0 | Label 1 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 2 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 21, 349 | ||
| 1 | 0.0 | Work 15 | I | 0 | 51, 73 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME C:MCASE;;T\MARKET |
|
| 1 | 0.0 | CMD 1 | C | -1 | 521, 121 | $SELECT S:SECTIONI;I\PR_SECT |
|
| 1 | 0.0 | Work 7 | I | 0 | 121, 481 | ||
| 1 | 0.0 | Work 6 | I | -1 | 241, 457 | $AFTER_READ U:DELETE_MV;MV_LOAD |
|
| 1 | 0.0 | Work 7 | I | 0 | 121, 553 | ||
| 1 | 0.0 | Work 2 | I | 0 | 221, 553 | ||
| 1 | 0.0 | Work 1 | I | 0 | 341, 553 | ||
| 1 | 0.0 | Work 3 | I | 0 | 561, 229 | ||
| 1 | 0.0 | Work 2 | I | 0 | 301, 553 | ||
| 1 | 0.0 | Work 1 | I | 0 | 261, 553 | ||
| 1 | 0.0 | TMPLEN | I | 0 | 81, 541 | ||
| 1 | 0.0 | APOSTAT | I | 0 | 381, 553 | ||
| 1 | 0.0 | Label 2 | T | 0 | 41, 541 | ||
| 1 | 0.0 | Work 1 | I | 0 | 601, 121 | ||
| 1 | 1.0 | PRODUCT_MAST | PR_GENLV | I | -1 | 151, 277 | $VALIDATE C:UCASE V:Y;N; I:I\PR_GENLV;=; A:CONST;N;I\PR_GENLV |
| 1 | 1.0 | PRODUCT_MAST | PR_GROUP | I | -1 | 151, 313 | $VALIDATE C:UCASE |
| 1 | 1.0 | PRODUCT_MAST | PR_VARPER | I | -1 | 151, 421 | $VALIDATE 'VALIDATE THE VARIANCE I:I\PR_VARPER;<>; R:0;100 |
| 1 | 1.0 | PRODUCT_MAST | PR_BLOCKED | I | -1 | 151, 349 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'ALLOW ONLY Y N OR BLANK V:Y;N; 'DEFAULT THIS FIELD TO 'Y' I:I\PR_BLOCKED;=; A:CONST;N;I\PR_BLOCKED |
| 1 | 1.0 | PRODUCT_MAST | PR_CONTBLK | K | -1 | 151, 385 | |
| 1 | 2.0 | PRODUCT_MAST | PR_VATCD | I | -1 | 271, 277 | $SELECT S:VAT;I\PR_VATCD $VALIDATE M: F:VAT_MAST;Y;VT_CODE;I\PR_VATCD=VT_CODE;VT_CODE='$I\PR_VATCD$';I\PR_VATCD |
| 1 | 2.0 | PRODUCT_MAST | PR_SPECDEL | I | -1 | 311, 349 | $VALIDATE C:UCASE V:Y;N; I:I\PR_SPECDEL;=; A:CONST;N;I\PR_SPECDEL |
| 1 | 2.0 | PRODUCT_MAST | PR_BEMSTAT | D | -1 | 271, 313 | $DEFAULT 'LOAD THE COMBOBOX WITH VALUES I:I\MARKET;=;15 B:ADDITEM;D\PR_BEMSTAT;1=POTATOES,2=ONIONS,3=TOMATOES,4=VEGETABLES,5=BANANAS,6=FRUIT,7=OTHER-PALLETS I:I\MARKET;<>;15 B:ADDITEM;D\PR_BEMSTAT;1=POTATOES,2=VEGETABLES,3=FRUIT,4=TOMATOES,5=BANANAS,6=ONIONS,7=OTHER $VALIDATE 'DISPLAY ERROR MESSAGE IF INVA |
| 1 | 3.0 | PRODUCT_MAST | PR_PRCVAR | I | -1 | 511, 277 | $VALIDATE C:UCASE V:A;R; |
| 1 | 3.0 | PRODUCT_MAST | PR_ONHREQ | I | -1 | 511, 313 | $VALIDATE C:UCASE V:Y;N; I:I\PR_ONHREQ;=; A:CONST;N;I\PR_ONHREQ |
| 1 | 3.0 | PRODUCT_MAST | PR_MKTDUE | I | -1 | 511, 349 | $VALIDATE C:UCASE V:Y;N; I:I\PR_MKTDUE;=; A:CONST;Y;I\PR_MKTDUE |
| 1 | 3.0 | PRODUCT_MAST | PR_EXPLIFE | I | -1 | 511, 385 | |
| 1 | 3.0 | PRODUCT_MAST | PR_APOSTAT | D | -1 | 511, 421 | $DEFAULT B:ADDITEM;D\PR_APOSTAT;0=NONE,1=POTATOES,2=ONIONS,3=TOMATOES,4=MANGOES $VALIDATE M: U:DELIVERY_MAN;COMBO_SIZE;D\PR_APOSTAT,100 'A:LEFT;D\PR_APOSTAT,2;D\PR_APOSTAT A:CONST;;T\APO_DESC,W\APOSTAT 'DISPLAY ERROR MESSAGE IF INVALID ENTRY IS ENTERED I:D\PR_APOSTAT;<>; A:LEN;D\PR_APOSTAT;W\APOSTAT |
| 1 | 4.0 | PRODUCT_MAST | PR_DECFRT | I | -1 | 671, 313 | $VALIDATE C:UCASE V:Y;N; I:I\PR_DECFRT;=; A:CONST;N;I\PR_DECFRT |
| 1 | 4.0 | PRODUCT_MAST | PR_FRTSTAT | D | -1 | 671, 277 | $DEFAULT B:ADDITEM;D\PR_FRTSTAT;BLANK,1=PLUMS,2=PRUNES,3=PEACHES,4=NECTARINES,5=GRAPES,6=PEARS,7=APPLES,8=TOMATOES $VALIDATE 'DISPLAY ERROR MESSAGE IF INVALID ENTRY IS ENTERED I:D\PR_FRTSTAT;<>;B A:LEN;D\PR_FRTSTAT;W\TEMP8 I:W\TEMP8;<>; DO(008) A:LEFT;D\PR_FRTSTAT,1;D\PR_FRTSTAT 'VALIDATE THE C |
| 1 | 5.0 | LEVY_LST | I | -1 | 151, 457 | $SELECT S:LEVY_MAN;I\LEVY_LST $VALIDATE C:UCASE I:I\LEVY_LST;<>; DO(TEST) U:DELETE_MV;DUPLICATES;I\LEVY_LST,I\PR_LEVY,I\TMP10 I:I\TMP10;=;N D:THAT VALUE ALREADY EXISTS IN THE FIELD;ERRORM;I\LEVY_LST F:LEVY_MAST;Y;LV_CODE;I\LEVY_DESC=LV_DESC;LV_DELIND<>'Y';I\LEVY_LST A:CRLF;I\LEVY_LST;I\TMP A: |
|
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 25 |