Program drill-down
WHOLESALE_SUPP_MAN
WHOLESALE SUPPLIER MAINTENANCE. Type MAN, base table SUPPLIER_MAST.
Field inventory
89
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 5 | T | -1 | 541, 205 | ||
| 1 | 0.0 | Label 7 | T | 0 | 541, 229 | ||
| 1 | 0.0 | Label 1 | T | -1 | 431, 481 | ||
| 1 | 0.0 | Label 1 | T | -1 | 521, 301 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_BEE | T | -1 | 161, 433 | |
| 1 | 0.0 | Label 46 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 43 | T | -1 | 621, 25 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_SPECULATOR | K | -1 | 491, 361 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_SUPPL | T | -1 | 161, 109 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_NATIONAL | T | -1 | 471, 109 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_NAME | T | -1 | 161, 145 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_AREA | T | -1 | 161, 481 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_LANGUAGE | T | -1 | 161, 181 | |
| 1 | 0.0 | Label 1 | T | -1 | 381, 301 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_ID_NO | T | -1 | 161, 205 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_VAT_NO | T | -1 | 161, 229 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_INC_TAX_NO | T | -1 | 161, 253 | |
| 1 | 0.0 | Label 1 | T | -1 | 541, 181 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_FINYEAR_END | T | -1 | 161, 277 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_BLOCKED | T | -1 | 161, 301 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_RET_PALL | T | -1 | 161, 337 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_COOP_MEMBER | T | -1 | 161, 361 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_SPECULATOR | T | -1 | 381, 361 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_COUNTRY | T | -1 | 161, 385 | |
| 1 | 0.0 | Label 1 | T | -1 | 161, 457 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_CURRENCY | T | -1 | 161, 409 | |
| 1 | 0.0 | Label 40 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 41 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 42 | T | -1 | 231, 49 | ||
| 1 | 0.0 | FUZZCOUNT | I | 0 | 11, 385 | ||
| 1 | 0.0 | NEW | I | 0 | 681, 505 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_PUC | I | -1 | 341, 505 | |
| 1 | 0.0 | Work 2 | I | 0 | 11, 229 | ||
| 1 | 0.0 | Work 1 | I | 0 | 11, 253 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_DATE_ENTERED | I | -1 | 661, 181 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_BEE | I | -1 | 341, 433 | |
| 1 | 0.0 | ZV_CODE | I | 0 | 11, 109 | $DEFAULT A:PARM;1 $AFTER_WRITE I:I\ZV_CODE;<>; W:ZV_USER_DEFAULTS;Y;;ZV_CODE=I\ZV_CODE,ZV_TEXT=I\SUM_SUPPL;ZV_CODE='$I\ZV_CODE$' U:WRITE_SUPPL_AGENT;UPDATE I:I\NEW;=; E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE A SUPPL_ADDR $I\AGENT$ $I\SUM_SUPPL$ A:CONST;;I\NEW |
|
| 1 | 0.0 | Work 1 | I | 0 | 641, 337 | ||
| 1 | 0.0 | Work 2 | I | 0 | 601, 337 | ||
| 1 | 0.0 | Work 9 | I | 0 | 131, 553 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_MARKET | I | 0 | 81, 61 | $DEFAULT 'LOAD MARKET CODE AND AGENT CODE A:ORG;;I\MARKET A:ORGS;;I\AGENT 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\DUMMY_SUPPL=CM_DUMMY_SUPPLIER C:MCASE;;T\MARKET |
| 1 | 0.0 | Work 51 | I | 0 | 211, 553 | ||
| 1 | 0.0 | Work 8 | I | 0 | 281, 553 | ||
| 1 | 0.0 | Work 7 | I | 0 | 91, 553 | ||
| 1 | 0.0 | Work 8 | I | 0 | 111, 553 | ||
| 1 | 0.0 | Work 47 | I | 0 | 61, 61 | $DEFAULT 'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'TEST!!!!!!!!! THIS TAKEN OUT BY LAZOLA ON 20100901 'U:GBL_AUDIT;OFF 'TEST!!!!!!!!! U:GBL_AUDIT;ON $BEFORE_DELETE I:I\TMP10;<>; A:STOPDELETE;TRUE I:I\TMP10 |
|
| 1 | 0.0 | SUPPLIER_MAST | SUM_CURRENCY | I | -1 | 341, 409 | $SELECT S:CURRENCY;I\SUM_CURRENCY $CALCULATE A:CONST;;T\CURRENCY C:UCASE F:CURRENCY_MAST;Y;CU_CODE;T\CURRENCY=CU_DESC;;I\SUM_CURRENCY |
| 1 | 0.0 | CHARCD | I | 0 | 11, 325 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_FUZZY | I | 0 | 11, 361 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_ONION_BOARD | I | -1 | 341, 457 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_VAT_NO | I | -1 | 341, 229 | $VALIDATE 'DEFAULT TO 'TO FOLLOW' I:I\SUM_VAT_NO;=; A:CONST;TO FOLLOW;I\SUM_VAT_NO M: 'A:ISNUMERIC;I\SUM_VAT_NO;I\TMP4 'I:I\TMP4;<>;Y 'D:VAT NUMBER MUST BE NUMERIC;ERRORM;I\SUM_VAT_NO |
| 1 | 0.0 | SUPPLIER_MAST | SUM_ID_NO | I | -1 | 341, 205 | $VALIDATE A:CONST;;I\TMP2 I:I\SUM_ID_NO;=;TO FOLLOW A:CONST;;I\SUM_ID_NO I:I\SUM_ID_NO;<>; DO(001) 'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD A:LEN;I\SUM_ID_NO;I\TMP2 'IF LENGTH IS < 13, DISPLAY AN ERROR I:I\TMP2;<;13;NUM D:ID NUMBER CANNOT BE LESS THAN 13 CHARACTERS;ERROR |
| 1 | 0.0 | SUPPLIER_MAST | SUM_AREA | I | -1 | 341, 481 | $SELECT S:AREA_CODE;I\SUM_AREA $VALIDATE C:UCASE F:AREA_MAST;Y;;T\AREA_DESC=AR_DESC,I\SUM_AREA=AR_CODE;AR_CODE='$I\SUM_AREA$';I\SUM_AREA C:MCASE;;T\AREA_DESC |
| 1 | 0.0 | SUPPLIER_MAST | SUM_NATIONAL | I | -1 | 631, 109 | |
| 1 | 0.0 | Label 1 | T | -1 | 161, 505 | ||
| 1 | 0.0 | Label 45 | T | -1 | 621, 49 | ||
| 1 | 0.0 | AGENT | I | 0 | 111, 61 | ||
| 1 | 0.0 | TMP_SUPPL | I | 0 | 11, 133 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_FINYEAR_END | I | -1 | 341, 277 | $VALIDATE I:I\SUM_FINYEAR_END;=; A:CONST;02;I\SUM_FINYEAR_END A:ISNUMERIC;I\SUM_FINYEAR_END;I\TMP1 I:I\TMP1;=;N D:MUST BE NUMERIC VALUE;ERRORM;I\SUM_FINYEAR_END A:VAR;I\SUM_FINYEAR_END;I\SUM_FINYEAR_END;;00 I:I\SUM_FINYEAR_END;<;01 D:CANNOT BE LESS THAN 1;ERRORM;I\SUM_FINYEAR_END I:I\SUM_FINYEAR_END; |
| 1 | 0.0 | SUPPLIER_MAST | SUM_INC_TAX_NO | I | -1 | 341, 253 | $VALIDATE 'DEFAULT TO 'TO FOLLOW' I:I\SUM_INC_TAX_NO;=; A:CONST;TO FOLLOW;I\SUM_INC_TAX_NO M: 'A:ISNUMERIC;I\SUM_INC_TAX_NO;I\TMP5 'I:I\TMP5;<>;Y 'D:TAX NUMBER MUST BE NUMERIC;ERRORM;I\SUM_INC_TAX_NO |
| 1 | 0.0 | CMD 25 | C | -1 | 421, 109 | $SELECT I:I\AGENT;<>; S:SUPPLIER_MAST1;I\SUM_SUPPL;I\AGENT I:I\AGENT;=; S:SUPPLIER_MAST;I\SUM_SUPPL |
|
| 1 | 0.0 | Work 1 | I | 0 | 11, 277 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_BLK_REASON | I | -1 | 451, 301 | $SELECT S:REASON5;I\SUM_BLK_REASON M: $CALCULATE I:I\SUM_BLK_REASON;<>; DO(Z88) M: C:UCASE F:REASON_MAST;Y;RSN_REASON;T\REASON=RSN_DESC;RSN_TYPE = 'BL';I\SUM_BLK_REASON DOEND(Z88) |
| 1 | 0.0 | SUPPLIER_MAST | SUM_NAME | I | -1 | 341, 145 | 'JER ADD 08042011 B $DEFAULT A:CONST;;W\SUPP_NAME; 'JER ADD 08042011 E $CALCULATE M: C:UCASE ''A:CONST;Y;I\SUM_DIRECT '''A:CONST;$W\CM_DIRTDUE$;I\SUM_DIRTDUE 'JER ADD 08042011 B O:SETFOCUS;D\SUM_LANGUAGE A:CONST;Y;I\WSALE_SUPPL I:I\SUM_NAME;<>; U:SM_UPD_FUZZY;RN_GEN_FUZZY I:W\SUPP_NAME;=; DO( |
| 1 | 0.0 | CMD 48 | C | -1 | 381, 409 | $SELECT S:CURRENCY;I\SUM_CURRENCY |
|
| 1 | 0.0 | CMD 1 | C | -1 | 391, 481 | $SELECT S:AREA_CODE;I\SUM_AREA |
|
| 1 | 0.0 | CMD 3 | C | -1 | 481, 301 | $SELECT S:REASON5;I\SUM_BLK_REASON |
|
| 1 | 0.0 | SUPPLIER_MAST | SUM_LANGUAGE | D | -1 | 341, 181 | $DEFAULT B:ADDITEM;D\SUM_LANGUAGE;ENG,AFR,XHO,ZUL $VALIDATE C:UCASE I:D\SUM_LANGUAGE;=; A:CONST;ENG;D\SUM_LANGUAGE M: B:VALIDATE;D\SUM_LANGUAGE;ENG,AFR,XHO,ZUL |
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 1 | 0.0 | Work 1 | I | 0 | 571, 505 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_SUPPL | I | -1 | 341, 109 | $DEFAULT A:PARM;2 A:VAR;I\SUM_SUPPL;I\TMP_SUPPL $SELECT I:I\AGENT;<>; S:SUPPLIER_MAST1;I\SUM_SUPPL;I\AGENT I:I\AGENT;=; S:SUPPLIER_MAST;I\SUM_SUPPL ++++++++++++++++++++++++++++++++++++++ 'SELECTING THE DUMMY SUPPLIERS ++++++++++++++++++++++++++++++++++++++ $SELECT6 I:I\DUMMY_SUPPL;=;1 DO(DUMMY) |
| 1 | 0.0 | Label 49 | T | -1 | 431, 409 | ||
| 1 | 0.0 | Label 44 | T | -1 | 671, 25 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_DUES | I | -1 | 661, 205 | $VALIDATE R:0;100 |
| 1 | 0.0 | Work 6 | I | -1 | 671, 373 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_WSALE_SUPPL | I | 0 | 351, 529 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_RET_PALL | K | -1 | 341, 337 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_COOP_MEMBER | K | -1 | 341, 361 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_BLOCKED | K | -1 | 341, 301 | 'JER ADD 08042011 $CALCULATE 'JER ADD 08042011 B I:K\SUM_BLOCKED;=;1 O:ENABLEINPUT;I\SUM_BLK_REASON,C\3 I:K\SUM_BLOCKED;<>;1 DO(001) A:CONST;;I\SUM_BLK_REASON A:CONST;;T\REASON O:DISABLEINPUT;I\SUM_BLK_REASON,C\3 DOEND(001) |
| 1 | 0.0 | Work 2 | I | 0 | 271, 73 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_DIRECT | I | 0 | 661, 229 | |
| 1 | 0.0 | Work 1 | I | 0 | 171, 73 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_COUNTRY | I | -1 | 341, 385 | $VALIDATE C:UCASE |
| 1 | 0.0 | Work 2 | I | 0 | 571, 481 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 1 | $UPDATE 'ADDED BY LP20100903 ON CHRISTO'S REQUEST U:GBL_AUDIT;ON |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 1 |