Program drill-down
SUPPLIER_ADDR_MAN
SUPPLIER AND ADRESS MAINTENANCE SCREEN. Type MAN, base table SUPPLIER_MAST.
Field inventory
88
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CMD 2 | C | -1 | 291, 85 | $SELECT I:I\AGENT;<>; S:SUPPLIER_MAST1;I\SUM_SUPPL;I\AGENT I:I\AGENT;=; S:SUPPLIER_MAST;I\SUM_SUPPL |
|
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 1 | 0.0 | SUPPLIER_MAST | SUM_SUPPL | I | -1 | 111, 85 | $DEFAULT A:PARM;2 A:VAR;I\SUM_SUPPL;I\TMP_SUPPL O:SHOWUPDATE $SELECT I:I\AGENT;<>; DO(AGN) I:I\MARKET;<>;60 S:SUPPLIER_MAST1;I\SUM_SUPPL;I\AGENT I:I\MARKET;=;60 S:SUPPLIER_MAST;I\SUM_SUPPL;I\AGENT DOEND(AGN) I:I\AGENT;=; S:SUPPLIER_MAST;I\SUM_SUPPL ++++++++++++++++++++++++++++++++++++++ 'SELECTING |
| 1 | 0.0 | SUPPLIER_MAST | DM_CONTACT | I | -1 | 111, 373 | '20210528 THEUNIS $SELECT I:I\DM_IDNO;=;0000000000000 O:SETFOCUS;I\DM_IDNO $VALIDATE 'UPPERCASE C:UCASE |
| 1 | 0.0 | SUPPLIER_MAST | SUM_ID_NO | I | -1 | 111, 193 | $VALIDATE A:CONST;;I\TMP2 I:I\SUM_ID_NO;=;TO FOLLOW A:CONST;;I\SUM_ID_NO I:I\MARKET;<>;L1 DO(NOTL1) 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 |
| 1 | 0.0 | SUPPLIER_MAST | SUM_VAT_NO | I | -1 | 111, 229 | $VALIDATE 'DEFAULT TO 'TO FOLLOW' I:I\SUM_VAT_NO;=; A:CONST;TO FOLLOW;I\SUM_VAT_NO M: |
| 1 | 0.0 | DEBTOR_MAST | DM_MARKET | I | 0 | 11, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\DM_MARKET A:USERID;;I\USERID 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;I\PIN_REFUND=CM_PIN_REFUND,I\CUR=CM_CURR,T\MARKET=CM_NAME,T\MARKET2=CM_NAME,T\MARKET3=CM_NAME,W\CM_TRAN_FEE=CM_TRAN_FEE 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL C:MCASE;;T\MARKET 'CONVER |
| 1 | 0.0 | SUPPLIER_MAST | SUM_NAME | I | -1 | 111, 121 | $DEFAULT A:CONST;;W\SUPP_NAME; $CALCULATE M: O:SETFOCUS;D\SUM_LANGUAGE I:I\SUM_NAME;<>; U:SM_UPD_FUZZY;RN_GEN_FUZZY U:U_SUP_CHECK;BATCH I:W\SUPP_NAME;=; DO(001) U:SM_UPD_FUZZY;RM_FUZ_COUNT I:I\FUZZCOUNT;>;0 DO(002) E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P SUPPLIER_MATCH $I\ |
| 1 | 0.0 | SUPPLIER_MAST | DM_PASSPORT_NO | I | -1 | 381, 193 | $VALIDATE 'UPPERCASE C:UCASE I:I\DM_PASSPORT_NO;<>; DO(PS1) F:DEBTOR_MAST;;;W\PASSPORT=DM_PASSPORT_NO;DM_MARKET='$I\DM_MARKET$' AND DM_PASSPORT_NO='$I\DM_PASSPORT_NO$' AND DM_DEBTOR <> '$I\DM_DEBTOR$' AND DM_BLOCKED <> 'Y' I:I\EXIST;=; DO(KW1) I:W\PASSPORT;=;I\DM_PASSPORT_NO D:PASSPORT NUMBER ALREAD |
| 1 | 0.0 | Label 1 | T | -1 | 1, 85 | ||
| 1 | 0.0 | CLIENT_MAST | CM_CODE | T | -1 | 1, 25 | |
| 1 | 0.0 | T | -1 | 1, 121 | |||
| 1 | 0.0 | Label 1 | T | -1 | 1, 373 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 157 | ||
| 1 | 0.0 | PARM | I | 0 | 131, 49 | $DEFAULT U:MENU_GROUP;LOOKUP |
|
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | T | -1 | 1, 193 | |||
| 1 | 0.0 | Label 8 | T | -1 | 301, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | SUPPL_MAST | SUM_INC_TAX_NO | T | -1 | 1, 265 | |
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | T | -1 | 1, 229 | |||
| 1 | 0.0 | SUPPL_MAST | SUM_LANGUAGE | D | -1 | 111, 157 | $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 | Label 1 | T | -1 | 281, 193 | ||
| 1 | 0.0 | PASSPORT | I | 0 | 531, 193 | ||
| 1 | 0.0 | Work 1 | I | 0 | 201, 49 | ||
| 1 | 0.0 | SUPPL_MAST | SUM_INC_TAX_NO | I | -1 | 111, 265 | $VALIDATE 'DEFAULT TO 'TO FOLLOW' I:I\SUM_INC_TAX_NO;=; A:CONST;TO FOLLOW;I\SUM_INC_TAX_NO M: |
| 2 | 0.0 | CMD 4 | C | -1 | 311, 121 | $SELECT 'DISPLAY SELECTION WINDOW S:ADDRESS_TYPE;I\DA_TYPE |
|
| 2 | 0.0 | Work 1 | I | 0 | 31, 181 | ||
| 2 | 0.0 | Work 1 | I | 0 | 101, 565 | ||
| 2 | 0.0 | Work 3 | I | 0 | 321, 517 | ||
| 2 | 0.0 | CMD 1 | C | -1 | 331, 313 | $SELECT S:AREA_CODE;I\DA_PCODE |
|
| 2 | 0.0 | H | -1 | 1, 85 | |||
| 2 | 0.0 | Work 1 | I | 0 | 61, 85 | $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 |
|
| 2 | 0.0 | I | 0 | 111, 73 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 '$CALCULATE 'U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\LV_CODE,I\LV_DESC,I\LV_CALC_TYPE,I\LV_RATE,I\LV_MRATE,I\LV_VATCD,I\LV_BOARD 'U:ZZGRID_SPLIT;DB_TO_GRID;G\GRIDM;LEVY_MAST $BEFORE_DELETE 'NOT ALLOW USERS TO DELETE WHILE THESE FIELD |
||
| 2 | 0.0 | DEBT_ADDR | DA_NAME | T | -1 | 151, 145 | |
| 2 | 0.0 | Label 8 | T | -1 | 261, 49 | ||
| 2 | 0.0 | Label 5 | T | -1 | 351, 121 | ||
| 2 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 2 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 2 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 2 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 2 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 2 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 2 | 0.0 | Label 1 | T | -1 | 421, 97 | ||
| 2 | 0.0 | Label 2 | T | -1 | 151, 493 | ||
| 2 | 0.0 | DEBT_ADDR | DA_TYPE | T | -1 | 151, 121 | |
| 2 | 1.0 | Work 1 | I | 0 | 371, 493 | ||
| 2 | 1.0 | SUPPL_ADDR | SA_TYPE | I | -1 | 281, 121 | $SELECT 'DISPLAY SELECTION WINDOW S:ADDRESS_TYPE;I\DA_TYPE $SELECT6 'DISPLAY SELECTION WINDOW S:DEBTOR_ADDR_2;I\DA_TYPE;I\DA_TYPE $CALCULATE F:DEBT_ADDR;;;W\DEFAULT=DA_DEFAULT,I\EXISTADDR=DA_CODE,I\DA_NAME=DA_NAME,D\DA_TITLE=DA_TITLE,I\DA_FNAME=DA_FNAME,I\DA_SNAME=DA_SNAME,I\DA_ADDR1=DA_ADDR1,I\DA_ADDR2=DA |
| 2 | 1.0 | SUPPL_ADDR | SA_TELNO1 | I | -1 | 281, 349 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC 'I:I\DA_TELNO1;<>; ' DO(NUM) ' A:ISNUMERIC;I\DA_TELNO1;W\TEMP 'I:W\TEMP;=;N 'D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_TELNO1 'DOEND(NUM) 'NO VALIDATION FOR ALL TEL |
| 2 | 1.0 | DEBT_ADDR | DA_TITLE | D | -1 | 281, 169 | $DEFAULT 'LOAD THE COMBOBOX WITH VALUES B:ADDITEM;D\DA_TITLE;MR,MRS,MISS,DR,PROF,REV $VALIDATE 'CONVERT TO UPPERCASE C:CASE 'DISPLAY ERROR MESSAGE IF INVALID ENTRY IS ENTERED I:D\DA_TITLE;<>; B:VALIDATE;D\DA_TITLE;MR,MRS,MISS,DR,PROF,REV |
| 2 | 1.0 | Work 2 | I | 0 | 41, 565 | ||
| 2 | 1.0 | SUPPL_ADDR | SA_DEFAULT | I | -1 | 281, 493 | $VALIDATE I:I\DA_TYPE;<>; DO(1) 'CONVERT TO UPPERCASE C:UCASE 'ALLOW USER TO ENTER ONLY 'Y' OR 'N' V:Y;N; 'REPLACE A BLANK WITH 'N' I:I\DA_DEFAULT;=; A:CONST;N;I\DA_DEFAULT 'CHECK IF THERE IS AN EXISTING DEFAULT ADDRESS I:I\DA_DEFAULT;=;Y DO(DEF) I:W\DEFAULT;<>;Y U:DEFAULT_ADDR;CHECK_ADDR; |
| 2 | 1.0 | DEBT_ADDR | DA_ADDR1 | T | -1 | 151, 241 | |
| 2 | 1.0 | SUPPL_ADDR | SA_TELNO2 | I | -1 | 281, 373 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC 'I:I\DA_TELNO2;<>; ' DO(NUM) ' A:ISNUMERIC;I\DA_TELNO2;W\TEMP ' I:W\TEMP;=;N ' D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_TELNO2 ' DOEND(NUM) 'DISPLAY ERROR MESSAGE I |
| 2 | 1.0 | DEBT_ADDR | DA_EMAIL | T | -1 | 151, 469 | |
| 2 | 1.0 | DEBT_ADDR | DA_TITLE | T | -1 | 151, 169 | |
| 2 | 1.0 | SUPPL_ADDR | SA_EMAIL | I | -1 | 281, 469 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE EMAIL ADDRESS DOES NOT HAVE AN @ SYMBOL I:I\DA_EMAIL;<>; DO(EMAIL) A:CONST;;W\TEMP U:NUMBER_VALIDATE;EMAIL_CHK;I\DA_EMAIL,@,W\TEMP I:W\TEMP;=;N D:EMAIL ADDRESS MUST HAVE THE "@" SYMBOL;ERRORM;I |
| 2 | 1.0 | DEBT_ADDR | DA_CELLNO | T | -1 | 151, 445 | |
| 2 | 1.0 | DEBT_ADDR | DA_TELNO3 | T | -1 | 151, 397 | |
| 2 | 1.0 | DEBT_ADDR | DA_FAXNO | T | -1 | 151, 421 | |
| 2 | 1.0 | SUPPL_ADDR | SA_ADDR1 | I | -1 | 281, 241 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'DISABLE THE LAST TWO ADDRESS FIELDS IF THE FIRST ADDRESS FIELD IS EMPTY I:I\DA_ADDR1;=; DO(01) A:CONST;;I\DA_ADDR2,I\DA_ADDR3,I\DA_PCODE O:DISABLEINPUT;I\DA_ADDR2,I\DA_ADDR3,I\DA_PCODE DOEND(01) 'ENABLE INPUT IN THE LAST TWO ADDRESS FIELDS IF THE FIRST ADD |
| 2 | 1.0 | DEBT_ADDR | DA_SNAME | T | -1 | 151, 217 | |
| 2 | 1.0 | DEBT_ADDR | DA_TELNO1 | T | -1 | 151, 349 | |
| 2 | 1.0 | SUPPL_ADDR | SA_FAXNO | I | -1 | 281, 421 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC 'I:I\DA_FAXNO;<>; ' DO(NUM) ' A:ISNUMERIC;I\DA_FAXNO;W\TEMP ' I:W\TEMP;=;N ' D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_FAXNO ' DOEND(NUM) 'DISPLAY ERROR MESSAGE IF T |
| 2 | 1.0 | DEBT_ADDR | DA_TELNO2 | T | -1 | 151, 373 | |
| 2 | 1.0 | SUPPL_ADDR | SA_CELLNO | I | -1 | 281, 445 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC I:I\DA_CELLNO;<>; DO(NUM) A:ISNUMERIC;I\DA_CELLNO;W\TEMP I:W\TEMP;=;N D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_CELLNO DOEND(NUM) I:I\MARKET;<>;L1 DO(NOTL1) 'DI |
| 2 | 1.0 | DEBT_ADDR | DA_FNAME | T | -1 | 151, 193 | |
| 2 | 1.0 | DEBT_ADDR | DA_PCODE | T | -1 | 151, 313 | |
| 2 | 1.0 | SUPPL_ADDR | SA_TELNO3 | I | -1 | 281, 397 | $VALIDATE 'CLEAR THE CONTENTS OF THIS TEMPORARY FIELD A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC 'I:I\DA_TELNO3;<>; ' DO(NUM) ' A:ISNUMERIC;I\DA_TELNO3;W\TEMP ' I:W\TEMP;=;N ' D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_TELNO3 ' DOEND(NUM) 'DISPLAY ERROR MESSAGE I |
| 2 | 1.0 | SUPPL_ADDR | SA_CONT_FNAME | I | -1 | 281, 193 | $VALIDATE 'MAKE THIS FIELD MANDATORY 'M: 'CONVERT TO UPPERCASE C:UCASE |
| 2 | 1.0 | SUPPL_ADDR | SA_CONT_SNAME | I | -1 | 281, 217 | $VALIDATE 'MAKE THIS FIELD MANDATORY 'M: 'CONVERT TO UPPERCASE C:UCASE |
| 2 | 1.0 | SUPPL_ADDR | SA_PCODE | I | -1 | 281, 313 | $SELECT S:AREA_CODE;I\DA_PCODE $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'DISPLAY ERROR MESSAGE IF THE VALUE IS NOT NUMERIC I:I\DA_PCODE;<>; DO(NUM) 'A:ISNUMERIC;I\DA_PCODE;W\TEMP 'I:W\TEMP;=;N 'D:ERROR - ENTER NUMERIC VALUES ONLY;ERRORM;I\DA_PCODE I:I\DA_PCODE;=;0000 D:INVALID ENTR |
| 2 | 1.0 | NUMTST | I | 0 | 21, 565 | ||
| 2 | 1.0 | SUPPL_ADDR | SA_NAME | I | -1 | 281, 145 | $VALIDATE 'MAKE THIS FIELD MANDATORY 'M: 'CONVERT TO UPPERCASE C:UCASE |
| 2 | 1.0 | SUPPL_ADDR | SA_ADDR2 | I | -1 | 281, 265 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 2 | 1.0 | SUPPL_ADDR | SA_ADDR3 | I | -1 | 281, 289 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 3 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 3 | 0.0 | H | -1 | 0, 0 | |||
| 4 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 4 | 0.0 | H | -1 | 0, 0 | |||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 1 | $CALCULATE I:I\CUR;=;R DO(R) U:ID_TESTS;SA I:I\DM_IDNO;<>; DO(NN) I:W\LEN;<>;13;NUM D:ERROR - ID NO MUST BE 13 DIGITS;ERRORM;I\DM_IDNO DOEND(NN) DOEND(R) I:I\CUR;<>;R DO(T) U:ID_TESTS;SA DOEND(T) $UPDATE U:STORE_UNENCRYPTED;SAVE 'U:UPDATE_DEBTOR_ADDR |
|
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 1 |