Program drill-down
AGENT_FAX_SMAN_MAN
AGENT FAX SALES SECTION CONTROL. Type MDL, base table AGN_FAX_SECT_SMAN.
Field inventory
45
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | TMP10 | I | 0 | 401, 493 | ||
| 1 | 0.0 | TMP | I | 0 | 341, 493 | ||
| 1 | 0.0 | SE_DESC | I | 0 | 291, 493 | ||
| 1 | 0.0 | DONT_EXIST | I | 0 | 461, 493 | ||
| 1 | 0.0 | LENGTH | I | 0 | 581, 493 | ||
| 1 | 0.0 | TMP11 | I | 0 | 561, 493 | ||
| 1 | 0.0 | AGENT_FAXES | AFS_AGN | T | -1 | 1, 193 | |
| 1 | 0.0 | AGENT_FAXES | AX_FAX_SECTION | T | -1 | 81, 169 | |
| 1 | 0.0 | AGENT_FAXES | AX_CONTACT | T | -1 | 241, 193 | |
| 1 | 0.0 | AGENT_FAXES | AX_TEL_NO | T | -1 | 491, 193 | |
| 1 | 0.0 | AGENT_FAXES | AX_FAX_DEFAULT | T | -1 | 611, 169 | |
| 1 | 0.0 | Label 8 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 9 | T | -1 | 261, 49 | ||
| 1 | 0.0 | DATES | T | -1 | 621, 25 | ||
| 1 | 0.0 | TEL_NO | I | 0 | 251, 493 | ||
| 1 | 0.0 | Work 1 | I | 0 | 171, 37 | $DEFAULT I:I\ORGS;<>; DO(ORGS) O:DISABLEINPUT;I\AFS_AGN,C\16 ''' F:AGENT_MAST;Y;AM_CODE;T\NAME=AM_NAME;;I\ORGS U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AGN_FAX_SECT_SMAN,AFS_AGN='$I\AFS_AGN$'|ORDER BY AFS_FAX_SECTION| DOEND(ORGS) |
|
| 1 | 0.0 | MARKET | I | 0 | 121, 37 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORGS;;I\ORGS A:VAR;I\ORGS;I\AFS_AGN '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 F:CLIENT_MAST;;;W\CM_DELSECT=CM_DELSECT;CM_CODE='$I\MARKET$' '''U:ZZGRID_SPLIT;INIT_GRID |
|
| 1 | 0.0 | SECTION | I | 0 | 371, 397 | $BEFORE_DELETE I:I\AX_CODE;=; DO(DEL) I:I\AX_FAX_SECTION;=; D:ERROR - NO RECORD SELECTED TO DELETE;ERRORM;I\AX_CODE DOEND(DEL) I:I\AX_CODE;=; DO(DEL1) I:I\AX_FAX_SECTION;<>; D:ERROR - NO RECORD SELECTED TO DELETE;ERRORM;I\AX_CODE DOEND(DEL1) I:I\AX_CODE;<>; DO(DEL3 |
|
| 1 | 0.0 | AGN_FAX_SECT_SMAN | AFS_CONTACT | I | -1 | 241, 217 | |
| 1 | 0.0 | AGN_FAX_SECT_SMAN | AFS_TELNO | I | -1 | 491, 217 | $VALIDATE I:I\AFS_TEL_NO;<>; DO(CH4) 'VALIDATING THE LENGHT OF THE INPUT MUST BE EQUAL TO 10 A:LEN;I\AFS_TELNO;W\TEL_NO I:W\TEL_NO;<;10;NUM D:TELEPHONE NUMBER CANNOT BE LESS THAN 10 DIGITS;ERRORM;I\AFS_TELNO 'THE TELEPHONE NUMBER MUST START WITH ZERO A:LEFT;I\AFS_TELNO,1;W\ |
| 1 | 0.0 | AGN_FAX_SECT_SMAN | AFS_FAX_DEFAULT | I | -1 | 611, 217 | $VALIDATE C:UCASE V:F;E; I:I\AFS_FAX_DEFAULT;=; A:CONST;E;I\AFS_FAX_DEFAULT $AFTER_WRITE I:I\ORGS;=; DO(CLA) A:CONST;;I\AFS_AGN,I\AFS_FAX_SECTION,I\AFS_SMAN,I\AFS_CONTACT,I\AFS_TELNO,I\AFS_FAX_DEFAULT O:SETFOCUS;I\AFS_AGN DOEND(CLA) I:I\ORGS;<>; DO(CLG) A:CONST;;I\AFS_FAX_SECTION,I\AFS_SM |
| 1 | 0.0 | AGN_FAX_SECT_SMAN | AFS_SMAN | I | -1 | 151, 217 | $SELECT S:SALESMAN_AGENT;I\AFS_SMAN;I\AFS_AGN $CALCULATE M: C:UCASE I:I\AFS_SMAN;<>; F:SALESMAN_MAST;Y;;I\NAME_TMP=SLS_NAME,I\TELNO_TMP=SLS_TELNO;SLS_AGENT='$I\AFS_AGN$' AND SLS_CODE = '$I\AFS_SMAN$';I\AFS_SMAN ' F:SALESMAN_MAST;Y;SLS_CODE;I\AFS_CONTACT=SLS_NAME;SLS_AGENT='$I\AFS_AGN$';I\AFS_SMAN U:ZZG |
| 1 | 0.0 | Label 13 | T | -1 | 671, 49 | ||
| 1 | 0.0 | LABEL 14 | T | -1 | 1, 25 | ||
| 1 | 0.0 | NAME | T | 0 | 1, 133 | ||
| 1 | 0.0 | Label 1 | T | -1 | 81, 193 | ||
| 1 | 0.0 | Label 3 | T | -1 | 151, 193 | ||
| 1 | 0.0 | Label 2 | T | -1 | 611, 193 | ||
| 1 | 0.0 | Label 12 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 371, 121 | ||
| 1 | 0.0 | Work 2 | I | 0 | 371, 145 | ||
| 1 | 0.0 | Label 11 | T | -1 | 671, 25 | ||
| 1 | 0.0 | CMD 16 | C | -1 | 51, 217 | $SELECT S:AGENT_CODE2;I\AFS_AGN |
|
| 1 | 0.0 | CMD 19 | C | -1 | 211, 217 | $SELECT S:SALESMAN_AGENT;I\AFS_SMAN;I\AFS_AGN |
|
| 1 | 0.0 | Work 4 | G | -1 | 1, 241 | ||
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 1 | 0.0 | DELSECT | I | 0 | 211, 493 | ||
| 1 | 0.0 | DEFAULT | I | 0 | 151, 37 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 |
|
| 1 | 0.0 | AGN_FAX_SECT_SMAN | AFS_AGN | I | -1 | 1, 217 | $SELECT S:AGENT_CODE2;I\AFS_AGN $VALIDATE A:CONST;;I\SECTION M: C:UCASE F:AGENT_MAST;Y;AM_CODE;T\NAME=AM_NAME;;I\AFS_AGN ''''U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AGENT_FAXES,AX_CODE='$I\AX_CODE$'|ORDER BY AX_FAX_SECTION| U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AGN_FAX_SECT_SMAN,AFS_AGN='$I\AFS_aGN$'|ORDER BY AFS_FAX |
| 1 | 0.0 | AGN_FAX_SECT_SMAN | AFS_FAX_SECTION | I | -1 | 81, 217 | $VALIDATE M: C:UCASE ''''U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AGENT_FAXES,AX_CODE='$I\AX_CODE$',AX_FAX_SECTION='$I\AX_FAX_SECTION$'|ORDER BY AX_SALES_SECTION| U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;AGN_FAX_SECT_SMAN,AFS_AGN='$I\AFS_AGN$',AFS_FAX_SECTION='$I\AFS_FAX_SECTION$'|ORDER BY AFS_SMAN| |
| 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 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 1 |