Program drill-down
SUPPLIER_FAX_ENQ
SUPPLIER FAX NUMBER ENQUIRY. Type MAN, base table SUPPL_AGN.
Field inventory
68
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CMD 6 | C | -1 | 481, 109 | $SELECT S:AGENT_CODE;I\SAG_AGN |
|
| 1 | 0.0 | CMD 7 | C | -1 | 501, 145 | $SELECT I:I\ORGS;<>; S:SUPPLIER_MAST1;I\SAG_SUPPL;I\ORGS I:I\ORGS;=; S:SUPPLIER_MAST1;I\SAG_SUPPL;I\SAG_AGN |
|
| 1 | 0.0 | CMD 3 | C | -1 | 491, 505 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | MARKET | I | 0 | 31, 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 A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 O:HIDEUPDATE O:DISABLEINPUT;Z\ZX_UPDATE |
|
| 1 | 0.0 | ORGS | I | 0 | 91, 85 | $DEFAULT A:ORGS;;I\ORGS I:I\ORGS;<>; DO(PAS) A:VAR;I\ORGS;I\SAG_AGN O:DISABLEINPUT;C\AGENT,T\AGENT_NAME,I\SAG_AGN,T\SAG_AGN O:HIDE;C\AGENT,T\AGENT_NAME,I\SAG_AGN,T\SAG_AGN O:SHOW;T\AGN_NAME F:AGENT_MAST;;;T\AGN_NAME=AM_NAME,I\PASSWORD=AM_SUPPL_PASSWORD,I\PASSREQUIRED=AM_SUPPL_PW_REQUIRED,I\CHANGE_ |
|
| 1 | 0.0 | SUPPL_AGN | SAG_SUPPL | I | -1 | 381, 145 | $SELECT I:I\ORGS;<>; S:SUPPLIER_MAST1;I\SAG_SUPPL;I\ORGS I:I\ORGS;=; S:SUPPLIER_MAST1;I\SAG_SUPPL;I\SAG_AGN $VALIDATE A:CONST;;T\SUPPL_NAME M: C:UCASE A:ISNUMERIC;I\SAG_SUPPL;I\TMP1 I:I\TMP1;=;Y A:VAR;I\SAG_SUPPL;I\SAG_SUPPL;;000000 A:CONST;;I\TMP1 F:SUPPLIER_MAST;Y;;T\SUPPL_NAME=SUM_NAME;SUM_SUP |
| 1 | 0.0 | SUPPL_AGN | SAG_CELLNO1 | I | -1 | 191, 289 | $VALIDATE 'ONLY PERFORMS THIS CODE IF FIELD IS NOT LEFT BLANK I:I\SAG_CELLNO1;<>; DO(CELL) 'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD A:LEN;I\SAG_CELLNO1;I\TMP1 I:I\TMP1;<;10 D:CELLPHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\SAG_CELLNO1 'CLEAR THE TEMP FIELD |
| 1 | 0.0 | SUPPL_AGN | SAG_FAXNO | I | -1 | 191, 181 | 'JD NEW 2010-11-08 '$SELECT '$CALCULATE 'F:SUPPL_AGN;Y;;;SAG_FAXNO='$I\SAG_FAXNO$';I\SAG_FAXNO 'JD NEW 2010-11-08 |
| 1 | 0.0 | SUPPL_AGN | SAG_TELNO1 | I | -1 | 191, 217 | |
| 1 | 0.0 | Work 11 | I | 0 | 121, 85 | ||
| 1 | 0.0 | SUPPL_AGN | SAG_CELLNO3 | I | -1 | 191, 361 | $VALIDATE 'ONLY PERFORMS THIS CODE IF FIELD IS NOT LEFT BLANK I:I\SAG_CELLNO3;<>; DO(CELL) 'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD A:LEN;I\SAG_CELLNO3;I\TMP1 I:I\TMP1;<;10 D:CELLPHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\SAG_CELLNO3 'CLEAR THE TEMP FIELD |
| 1 | 0.0 | Work 3 | I | 0 | 121, 121 | ||
| 1 | 0.0 | SUPPL_AGN | SAG_AGN | I | -1 | 381, 109 | $SELECT S:AGENT_CODE;I\SAG_AGN $VALIDATE A:CONST;;T\AGENT_NAME M: C:UCASE F:AGENT_MAST;Y;;T\AGENT_NAME=AM_NAME;AM_CODE='$I\SAG_AGN$';I\SAG_AGN |
| 1 | 0.0 | SUPPL_AGN | SAG_CELL_CONTACT2 | I | -1 | 481, 325 | |
| 1 | 0.0 | SUPPL_AGN | SAG_CELL_CONTACT3 | I | -1 | 481, 361 | |
| 1 | 0.0 | SUPPL_AGN | SAG_CELLNO2 | I | -1 | 191, 325 | $VALIDATE 'ONLY PERFORMS THIS CODE IF FIELD IS NOT LEFT BLANK I:I\SAG_CELLNO2;<>; DO(CELL) 'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD A:LEN;I\SAG_CELLNO2;I\TMP1 I:I\TMP1;<;10 D:CELLPHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\SAG_CELLNO2 'CLEAR THE TEMP FIELD |
| 1 | 0.0 | Work 1 | I | 0 | 51, 145 | ||
| 1 | 0.0 | SUPPL_AGN | SAG_TELNO2 | I | -1 | 191, 253 | |
| 1 | 0.0 | SUPPL_AGN | SAG_FAX_EMAIL | I | -1 | 301, 505 | $VALIDATE I:I\SAG_FAX_EMAIL;=; A:CONST;F;I\SAG_FAX_EMAIL C:UCASE V:F;E;B;N |
| 1 | 0.0 | Work 1 | I | 0 | 21, 121 | ||
| 1 | 0.0 | SUPPL_AGN | SAG_EMAIL | I | -1 | 191, 397 | $VALIDATE 'MANDATORY FIELD 'DO THE FOLLOWING IF THE THIS FIELD IS NOT EMPTY I:I\SAG_EMAIL;<>; DO(001) 'CHECKS FOR AN '@' SYMBOL IN THE EMAIL ADDRESS U:NUMBER_VALIDATE;EMAIL_CHK;I\SAG_EMAIL,@,I\TMP1 I:I\TMP1;=;N D:EMAIL ADDRESS MUST CONTAIN THE @ SYMBOL;ERRORM;I\SAG_EMAIL DOEND(001) |
| 1 | 0.0 | Work 2 | I | 0 | 71, 121 | ||
| 1 | 0.0 | SUPPL_AGN | SAG_CELL_CONTACT1 | I | -1 | 481, 289 | |
| 1 | 0.0 | SUPPL_AGN | SAG_TEL_CONTACT2 | I | -1 | 481, 253 | |
| 1 | 0.0 | SUPPL_AGN | SAG_TEL_CONTACT1 | I | -1 | 481, 217 | |
| 1 | 0.0 | SUPPL_AGN | SAG_FAXNO3 | I | -1 | 671, 181 | |
| 1 | 0.0 | SUPPL_AGN | SAG_EMAIL2 | I | -1 | 191, 433 | $VALIDATE 'MANDATORY FIELD 'DO THE FOLLOWING IF THE THIS FIELD IS NOT EMPTY I:I\SAG_EMAIL2;<>; DO(001) 'CHECKS FOR AN '@' SYMBOL IN THE EMAIL ADDRESS U:NUMBER_VALIDATE;EMAIL_CHK;I\SAG_EMAIL2,@,I\TMP1 I:I\TMP1;=;N D:EMAIL ADDRESS MUST CONTAIN THE @ SYMBOL;ERRORM;I\SAG_EMAIL2 DOEND(001) |
| 1 | 0.0 | SUPPL_AGN | SAG_EMAIL3 | I | -1 | 191, 469 | $VALIDATE 'MANDATORY FIELD 'DO THE FOLLOWING IF THE THIS FIELD IS NOT EMPTY I:I\SAG_EMAIL3;<>; DO(001) 'CHECKS FOR AN '@' SYMBOL IN THE EMAIL ADDRESS U:NUMBER_VALIDATE;EMAIL_CHK;I\SAG_EMAIL3,@,I\TMP1 I:I\TMP1;=;N D:EMAIL ADDRESS MUST CONTAIN THE @ SYMBOL;ERRORM;I\SAG_EMAIL3 DOEND(001) |
| 1 | 0.0 | SUPPL_AGN | SAG_SMAN | I | -1 | 441, 505 | $SELECT S:SALESMAN_MAST;I\SAG_SMAN;I\SAG_AGN;I\SAG_SMAN $CALCULATE C:UCASE I:I\SAG_SMAN;<>; DO(DN4) F:SALESMAN_MAST;Y;;T\SMAN_NAME=SLS_NAME;SLS_CODE='$I\SAG_SMAN$' AND SLS_AGENT='$I\SAG_AGN$';I\SAG_SMAN DOEND(DN4) |
| 1 | 0.0 | SUPPL_AGN | SAG_FAXNO2 | I | -1 | 411, 181 | |
| 1 | 0.0 | Work 1 | I | 0 | 21, 145 | ||
| 1 | 0.0 | SUPPL_AGN | SAG_SUPPL | T | -1 | 281, 145 | |
| 1 | 0.0 | Label 2 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 291, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 7 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 9 | T | -1 | 1, 25 | ||
| 1 | 0.0 | SUPPL_AGN | SAG_AGN | T | -1 | 281, 109 | |
| 1 | 0.0 | Label 9 | T | -1 | 541, 145 | ||
| 1 | 0.0 | Label 8 | T | -1 | 521, 109 | ||
| 1 | 0.0 | SUPPL_AGN | SAG_FAXNO | T | -1 | 61, 181 | |
| 1 | 0.0 | SUPPL_AGN | SAG_CELLNO3 | T | -1 | 61, 361 | |
| 1 | 0.0 | Label 10 | T | -1 | 141, 85 | ||
| 1 | 0.0 | SUPPL_AGN | SAG_TELNO1 | T | -1 | 61, 217 | |
| 1 | 0.0 | SUPPL_AGN | SAG_CELL_CONTACT2 | T | -1 | 381, 325 | |
| 1 | 0.0 | SUPPL_AGN | SAG_CELL_CONTACT3 | T | -1 | 381, 361 | |
| 1 | 0.0 | SUPPL_AGN | SAG_CELLNO2 | T | -1 | 61, 325 | |
| 1 | 0.0 | SUPPL_AGN | SAG_CELLNO1 | T | -1 | 61, 289 | |
| 1 | 0.0 | SUPPL_AGN | SAG_TELNO2 | T | -1 | 61, 253 | |
| 1 | 0.0 | SUPPL_AGN | SAG_EMAIL | T | -1 | 61, 397 | |
| 1 | 0.0 | T | -1 | 341, 505 | |||
| 1 | 0.0 | SUPPL_AGN | SAG_FAX_EMAIL | T | -1 | 61, 505 | |
| 1 | 0.0 | SUPPL_AGN | SAG_CELL_CONTACT1 | T | -1 | 381, 289 | |
| 1 | 0.0 | SUPPL_AGN | SAG_TEL_CONTACT1 | T | -1 | 381, 217 | |
| 1 | 0.0 | SUPPL_AGN | SAG_TEL_CONTACT2 | T | -1 | 381, 253 | |
| 1 | 0.0 | SUPPL_AGN | SAG_FAXNO2 | T | -1 | 301, 181 | |
| 1 | 0.0 | SUPPL_AGN | SAG_FAXNO3 | T | -1 | 521, 181 | |
| 1 | 0.0 | Label 4 | T | -1 | 551, 505 | ||
| 1 | 0.0 | SUPPL_AGN | SAG_EMAIL2 | T | -1 | 61, 433 | |
| 1 | 0.0 | SUPPL_AGN | SAG_EMAIL3 | T | -1 | 61, 469 | |
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |