Program drill-down
CONTACT_DETS
CONTACT DETAILS. Type MDL, base table CONTACT_DETS.
Field inventory
34
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CONTACT_DETS | CON_AGENT | I | -1 | 141, 127 | 'RETRIVING AGENT NAME ' >> UNCOMMENTED BY RK201005 ================================================ $DEFAULT A:ORGS;I\CON_AGENT F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME;AM_MARKET='$I\MARKET$' 'LOOK UP FOR AN EXISTING AGENT CODE F:AGENT_MAST;Y;AM_CODE;T\AGENT=AM_NAME;AM_MARKET='$I\MARKET$';I\CON_AGENT U:ZZGRID_S |
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 320, 47 | ||
| 1 | 0.0 | H | -1 | 1, 31 | |||
| 1 | 0.0 | Label 5 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 6 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 7 | T | -1 | 671, 25 | ||
| 1 | 0.0 | CONTACT_DETS | CON_NAME | T | -1 | 261, 199 | |
| 1 | 0.0 | CONTACT_DETS | CON_TEL | T | -1 | 361, 199 | |
| 1 | 0.0 | CONTACT_DETS | CON_CELLNO | T | -1 | 491, 199 | |
| 1 | 0.0 | CONTACT_DETS | CON_SECTION | T | -1 | 131, 199 | |
| 1 | 0.0 | CONTACT_DETS | CON_AGENT | T | -1 | 81, 127 | |
| 1 | 0.0 | CONTACT_DETS | CON_NAME | I | -1 | 261, 223 | 'CHANGING TEXT XASE TO UPPER CASE AND SET FIELD MANDATORY $VALIDATE M: C:UCASE |
| 1 | 0.0 | CONTACT_DETS | CON_TEL | I | -1 | 361, 223 | 'CHANGING TEXT XASE TO UPPER CASE AND SET FIELD MANDATORY $VALIDATE 'M: C:UCASE 'CHECKING IF THE USER ENTERS NUMBERS NOT TEXT $CALCULATE 'I:I\CON_TEL;<>; 'DO(001) ' A:ISNUMERIC;I\CON_TEL;W\CON_TEL ' I:W\CON_TEL;=;N ' D:THE TELEPHONE NUMBER CANNOT BE A TEXT, MUST CONTAIN 10 NUMBERS;ERRORM;I\CON_ |
| 1 | 0.0 | CONTACT_DETS | CON_CELLNO | I | -1 | 491, 223 | 'CHECKING IF THE USER ENTERS NUMBERS NOT TEXT $CALCULATE I:I\CON_CELLNO;<>; DO(002) A:ISNUMERIC;I\CON_CELLNO;W\CON_CELLNO I:W\CON_CELLNO;=;N D:CELL NUMBER CANNOT BE A TEXT, MUST CONTAIN 10 NUMBERS;ERRORM;I\CON_CELLNO 'THE CELL NUMBER MUST START WITH ZERO A:LEFT;I\CON_CELLNO,1;W\CON_C |
| 1 | 0.0 | CONTACT_DETS | CON_SECTION | I | -1 | 131, 223 | 'SELECT SECTION NAME FROM SECT_MAST TABLE IN THE DATABASE $SELECT S:SECTION_CODE;I\CON_SECTION 'SET THIS FIELD MANDATORY $VALIDATE M: C:UCASE 'LOOK UP FOR THE EXISTING SECTION F:SECT_MAST;Y;SE_SECT;;;I\CON_SECTION $BEFORE_DELETE 'DONT ALLOW USER TO DELETE WHILE RECORD IS NOT SELECTED I:I\CON_SECTIO |
| 1 | 0.0 | CONTACT_DETS | CON_MARKET | I | 0 | 221, 79 | |
| 1 | 0.0 | Work 29 | G | -1 | 131, 247 | ||
| 1 | 0.0 | Work 1 | I | 0 | 61, 127 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 U:ZZGRID_SPLIT;INIT_GRID;G\GRIDCONTACTS;I\CON_SECTION,I\CON_NAME,I\CON_MARKET:H,I\CON_TEL,I\CON_CELLNO |
|
| 1 | 0.0 | SECT_MAST | SE_SECT | C | -1 | 231, 223 | 'SELECT SECTION NAME FROM SECT_MAST TABLE IN THE DATABASE $SELECT S:SECTION_CODE;I\CON_SECTION |
| 1 | 0.0 | Work 1 | I | 0 | 401, 403 | ||
| 1 | 0.0 | Work 2 | I | 0 | 441, 403 | ||
| 1 | 0.0 | Work 1 | I | 0 | 491, 403 | ||
| 1 | 0.0 | Label 1 | T | -1 | 241, 127 | ||
| 1 | 0.0 | Work 2 | I | 0 | 151, 79 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;I\CON_MARKET=CM_CODE,T\MARKET=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET |
|
| 1 | 0.0 | CMD 1 | C | -1 | 201, 127 | 'SELECT AGENT CODE FROM AGENT MAST TABLE IN DATABASE $SELECT S:AGENT_CODE;I\CON_AGENT |
|
| 1 | 0.0 | Work 1 | I | 0 | 201, 157 | $DEFAULT A:ORGS |
|
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 31 |