Program drill-down
AGENT_MAN
AGENT DETAIL MAINTENANCE. Type MAN, base table AGENT_MAST.
Field inventory
98
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 1 | I | 0 | 191, 61 | ||
| 1 | 0.0 | Work 1 | I | 0 | 31, 553 | ||
| 1 | 0.0 | AGENT_MAST | AM_ABBREV | I | -1 | 501, 97 | $VALIDATE 'MAKE THIS FIELD A MANDATORY FIELD M: 'CONVERT TO UPPERCASE 'U:COLDSTORE_MAN;GRID_INIT C:UCASE A:CONST;;W\TEMP 'DISPLAY ERROR MESSAGE IF THE @ SYMBOL IS FOUND IN THIS FIELD I:I\AM_ABBREV;<>; DO(CODE) A:CONST;;W\TEMP U:NUMBER_VALIDATE;EMAIL_CHK;I\AM_ABBREV,@,W\TEMP I:W\TEMP;=;Y |
| 1 | 0.0 | AGENT_MAST | AM_FAXNO | T | -1 | 11, 289 | |
| 1 | 0.0 | AGENT_MAST | AM_TELNO | T | -1 | 11, 265 | |
| 1 | 0.0 | T | -1 | 521, 397 | |||
| 1 | 0.0 | AGENT_MAST | AM_ADD1 | T | -1 | 11, 157 | |
| 1 | 0.0 | H | -1 | 1, 61 | |||
| 1 | 0.0 | AGENT_MAST | AM_ADD1 | I | -1 | 131, 157 | $VALIDATE ' SET AS MANDATORY FIELD M: ' CONVERT TO UPPER CASE C:UCASE |
| 1 | 0.0 | AGENT_MAST | AM_VATREG | T | -1 | 551, 181 | |
| 1 | 0.0 | AGENT_MAST | AM_CODE | I | -1 | 131, 97 | $SELECT 'ALLOW THE USER TO PRESS F5 TO VIEW SELECTION WINDOW S:AGENT_CODE;I\AM_CODE $VALIDATE 'MAKE THIS FIELD A MANDATORY FIELD M: C:UCASE 'DONT ALLOW OTHER AGENT TO VIEW DETAILS OF THIS AGENT I:I\AGENT;<>; DO(AGENT) I:I\AM_CODE;<>;I\AGENT D:ERROR - YOU ONLY ALLOWED TO ENTER '$I\AGENT$'; |
| 1 | 0.0 | GENT_MASTER | AM_CODE | T | -1 | 11, 97 | |
| 1 | 0.0 | AGENT_MAST | AM_COMP_REG | T | -1 | 551, 133 | |
| 1 | 0.0 | AGENT_MAST | AM_NAME | I | -1 | 131, 133 | $VALIDATE ' SET AS MANDATORY FIELD M: ' CONVERT TO UPPER CASE C:UCASE |
| 1 | 0.0 | AGENT_MAST | AM_EMAIL | T | -1 | 11, 313 | |
| 1 | 0.0 | AGENT_MAST | AM_NAME | T | -1 | 11, 133 | |
| 1 | 0.0 | AGENT_MAST | AM_CHEP_NO | T | -1 | 11, 397 | |
| 1 | 0.0 | NUMTST | I | 0 | 1, 577 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 251, 97 | $SELECT 'ALLOW THE USER TO PRESS F5 TO VIEW SELECTION WINDOW S:AGENT_CODE;I\AM_CODE |
|
| 1 | 0.0 | AGENT_MAST | AM_ABBREV | T | -1 | 321, 97 | |
| 1 | 0.0 | AGENT_MAST | AM_ADD3 | I | -1 | 131, 205 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 0.0 | AGENT_MAST | AM_PCODE | I | -1 | 131, 229 | $VALIDATE ' SET AS MANDATORY FIELD M: ' DISPLAY ERROR MESSAGE IF VALUE IS NOT NUMERIC A:CONST;;W\NUMERIC A:ISNUMERIC;I\AM_PCODE;W\NUMERIC I:W\NUMERIC;=;N D:INVALID ENTRY - ENTER NUMERICS ONLY;ERRORM;I\AM_PCODE A:CONST;;W\NUMERIC 'GET THE LENGTH OF THE FIELD A:LEN;I\AM_PCODE;W\NUMERIC I:W\NUMERIC;<;4 |
| 1 | 0.0 | AGENT_MAST | AM_PCODE | T | -1 | 11, 229 | |
| 1 | 0.0 | AGENT_MAST | AM_ADD2 | I | -1 | 131, 181 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 0.0 | Label 8 | T | -1 | 311, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 11, 433 | ||
| 1 | 0.0 | DEFAULT | I | 0 | 141, 61 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZE GRID U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\PS_TYPE,I\PS_DESC,I\PS_ACCNO,I\PS_AGENT:H,I\PS_SECT:H,I\PS_DATE_JOINED $AFTER_READ I:I\AM_TARGET_USE;=; A:CONST;N;I\AM_TARGET_USE $AFTER_READ I:I\AM_TARGET_OVR;=; A:CONST;N;I\A |
|
| 1 | 0.0 | Work 13 | G | -1 | 221, 445 | $AFTER_WRITE 'CALLS THE FUNCTION TO CLEAR THE TABLE U:DELETE_GRID;DELETE_TABLE_DATA 'SAVES ALL GRID DATA TO THE TABLE '''U:ZZGRID_SPLIT;GRID_TO_DB;G\GRID;AGNSECT_PALL_ACC,PS_AGENT='I\PS_AGENT',PS_TYPE='I\PS_TYPE',PS_SECT='I\PS_SECT' U:ZZGRID_SPLIT;GRID_TO_DB;G\GRID;AGNSECT_PALL_ACC,PS_AGENT='I\PS_AGENT',PS_TYPE= |
|
| 1 | 0.0 | CMD 7 | C | -1 | 111, 481 | $SELECT 'DELETE THE PALLET FROM THE DATABASE U:MANIPULATE_GRID;DELETE_PALLET_DATA;G\GRID,I\TYPE,I\PS_TYPE,W\DELFLAG 'U:DELETE_GRID;DELETE;I\TYPE,G\GRID,I\TYPE I:W\DELFLAG;=;Y U:MANIPULATE_GRID;DELETE_RECORD;I\TYPE,G\GRID,I\PS_TYPE 'O:SETFOCUS;;I\MEMBER_NO A:CONST;;I\MEMBER_NO A:CONST;;I\TYPE O:SETFOC |
|
| 1 | 0.0 | Work 1 | I | 0 | 561, 505 | ||
| 1 | 0.0 | Label 9 | T | -1 | 11, 457 | ||
| 1 | 0.0 | Label 10 | T | -1 | 223, 421 | ||
| 1 | 0.0 | CMD 11 | C | -1 | 161, 433 | $SELECT 'ALLOW THE USER TO PRESS LOOKUP BUTTON TO VIEW THE SELECTION WINDOW 'S:PALL_TYPE;I\AM_CHEP_NO S:PALLET_TYPE;I\TYPE |
|
| 1 | 0.0 | Work 1 | I | 0 | 21, 577 | ||
| 1 | 0.0 | Work 1 | I | 0 | 531, 97 | ||
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_TYPE | I | 0 | 222, 444 | |
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_ACCNO | I | 0 | 364, 445 | |
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_DATE_JOINED | I | 0 | 446, 445 | |
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_AGENT | I | 0 | 121, 553 | |
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_SECT | I | 0 | 521, 397 | |
| 1 | 0.0 | Label 7 | T | -1 | 364, 421 | ||
| 1 | 0.0 | Label 8 | T | -1 | 451, 421 | ||
| 1 | 0.0 | Work 1 | I | 0 | 351, 577 | ||
| 1 | 0.0 | Work 2 | I | 0 | 261, 577 | ||
| 1 | 0.0 | Work 3 | I | 0 | 101, 577 | ||
| 1 | 0.0 | Work 4 | I | 0 | 161, 577 | ||
| 1 | 0.0 | Label 1 | T | -1 | 281, 397 | ||
| 1 | 0.0 | Label 4 | T | -1 | 721, 433 | ||
| 1 | 0.0 | AGENT_MAST | AM_SUPPL_FROM | T | -1 | 561, 469 | |
| 1 | 0.0 | AGENT_MAST | AM_DELNO_TO | T | -1 | 561, 505 | |
| 1 | 0.0 | Label 2 | T | -1 | 561, 433 | ||
| 1 | 0.0 | Label 3 | T | -1 | 641, 433 | ||
| 1 | 0.0 | Work 2 | I | 0 | 11, 61 | $DEFAULT 'CHECK IF THE USER IS AN AGENT A:ORGS;;I\AGENT A:ORGS;;I\AM_CODE 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PS_SECT=CM_PALL_SECT '''F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME C:MCASE;;T\MARKET 'O:DISABLEINPUT;I\AM_SUPPL_TO 'O:DISABLEINPUT;I\AM |
|
| 1 | 0.0 | Work 1 | I | 0 | 71, 577 | ||
| 1 | 0.0 | Work 2 | I | 0 | 131, 577 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 553 | ||
| 1 | 0.0 | Work 3 | I | 0 | 61, 553 | ||
| 1 | 0.0 | Work 4 | I | 0 | 91, 553 | ||
| 1 | 0.0 | Work 5 | I | 0 | 161, 553 | ||
| 1 | 0.0 | Work 7 | I | 0 | 621, 541 | ||
| 1 | 0.0 | Work 6 | I | 0 | 191, 553 | ||
| 1 | 0.0 | Work 1 | I | 0 | 661, 541 | ||
| 1 | 0.0 | Work 2 | I | 0 | 571, 541 | ||
| 1 | 0.0 | AGENT_MAST | AM_BLOCK | I | -1 | 691, 97 | $VALIDATE 'DEFAULT TO 'N' I:I\AM_BLOCK;=; A:CONST;N;I\AM_BLOCK C:UCASE V:Y;N; |
| 1 | 0.0 | AGENT_MAST | AM_BLOCK | T | -1 | 601, 97 | |
| 1 | 0.0 | AGENT_MAST | AM_TARGET_USE | T | -1 | 11, 349 | |
| 1 | 0.0 | AGENT_MAST | AM_TARGET_OVR | T | -1 | 311, 349 | |
| 1 | 0.0 | PS_DESC | I | 0 | 263, 445 | ||
| 1 | 0.0 | Label 2 | T | -1 | 265, 421 | ||
| 1 | 0.0 | AGENT_MAST | AM_MARKET | I | 0 | 71, 61 | $DEFAULT A:ORG |
| 1 | 0.0 | DELETE FLAG | I | 0 | 141, 481 | ||
| 1 | 1.0 | AGENT_MAST | AM_COMP_REG | I | -1 | 551, 157 | $VALIDATE 'CONVERT TO UPPERCASE C:UCASE |
| 1 | 1.0 | AGENT_MAST | AM_VATREG | I | -1 | 551, 205 | $VALIDATE 'MAKE THIS FIELD A MANDATORY FIELD M: ' DISPLAY ERROR MESSAGE IF VALUE IS NOT NUMERIC A:CONST;;W\NUMERIC A:ISNUMERIC;I\AM_VATREG;W\NUMERIC I:W\NUMERIC;=;N D:INVALID ENTRY - ENTER NUMERICS ONLY;ERRORM;I\AM_VATREG |
| 1 | 2.0 | AGENT_MAST | AM_FAXNO | I | -1 | 131, 289 | $VALIDATE ' DISPLAY ERROR MESSAGE IF VALUE IS NOT NUMERIC A:CONST;;W\NUMERIC 'I:I\AM_FAXNO;<>; ' DO(NUM) ' A:ISNUMERIC;I\AM_FAXNO;W\NUMERIC 'I:W\NUMERIC;=;N 'D:INVALID ENTRY - ENTER NUMERICS ONLY;ERRORM;I\AM_FAXNO 'DOEND(NUM) 'DISPLAY ERROR MESSAGE IF THE FIRST CHARACTER IS NOT A ZERO A:CONST;; |
| 1 | 2.0 | AGENT_MAST | AM_EMAIL | I | -1 | 131, 313 | $VALIDATE 'DISPLAY ERROR MESSAGE IF THE EMAIL ADDRESS DOES NOT HAVE AN @ SYMBOL I:I\AM_EMAIL;<>; DO(EMAIL) A:CONST;;W\TEMP U:NUMBER_VALIDATE;EMAIL_CHK;I\AM_EMAIL,@,W\TEMP I:W\TEMP;=;N D:EMAIL ADDRESS MUST HAVE THE "@" SYMBOL;ERRORM;I\AM_EMAIL DOEND(EMAIL) 'DISPLAY ERROR MESSAGE IF INVALID EMA |
| 1 | 2.0 | AGENT_MAST | AM_TELNO | I | -1 | 131, 265 | $VALIDATE ' DISPLAY ERROR MESSAGE IF VALUE IS NOT NUMERIC A:CONST;;W\NUMERIC 'I:I\AM_TELNO;<>; ' DO(T) ' A:ISNUMERIC;I\AM_TELNO;W\NUMERIC ' I:W\NUMERIC;=;N 'D:INVALID ENTRY - ENTER NUMERICS ONLY;ERRORM;I\AM_TELNO 'DOEND(T) 'NO VALIDATION TO DONE YET FOR ALL TELEPHONE AND FAX FIELDS CHANGED BY LA |
| 1 | 2.0 | AGENT_MAST | AM_TELNO2 | I | -1 | 351, 265 | $VALIDATE ' DISPLAY ERROR MESSAGE IF VALUE IS NOT NUMERIC A:CONST;;W\NUMERIC 'I:I\AM_TELNO2;<>; ' DO(T) ' A:ISNUMERIC;I\AM_TELNO2;W\NUMERIC ' I:W\NUMERIC;=;N ' D:INVALID ENTRY - ENTER NUMERICS ONLY;ERRORM;I\AM_TELNO2 ' DOEND(T) 'DISPLAY ERROR MESSAGE IF THE FIRST CHARACTER IS NOT A ZERO A:CONST;;W |
| 1 | 2.0 | AGENT_MAST | AM_TELNO3 | I | -1 | 531, 265 | $VALIDATE ' DISPLAY ERROR MESSAGE IF VALUE IS NOT NUMERIC A:CONST;;W\NUMERIC 'I:I\AM_TELNO3;<>; ' DO(T) ' A:ISNUMERIC;I\AM_TELNO3;W\NUMERIC ' I:W\NUMERIC;=;N ' D:INVALID ENTRY - ENTER NUMERICS ONLY;ERRORM;I\AM_TELNO3 ' DOEND(T) 'DISPLAY ERROR MESSAGE IF THE FIRST CHARACTER IS NOT A ZERO A:CONST;;W |
| 1 | 2.0 | AGENT_MAST | AM_TARGET_OVR | I | -1 | 621, 349 | $VALIDATE M: C:UCASE V:Y;N I:I\AM_TARGET_USE;=;N DO(CHK) I:I\AM_TARGET_OVR;<>;N D:TARGET OVERRIDE MUST BE "N" IF TARGET PRICE IS NOT USED;ERRORM;I\AM_TARGET_OVR DOEND(CHK) 'COMMENTED BY LAZ 'I:I\AM_TARGET_OVR;=;N 'DO(CEW) ' I:I\AM_TARGET_USE;=;N ' DO(DAQ) ' A:CONST;Y;I\AM_TARGET |
| 1 | 2.0 | AGENT_MAST | AM_TARGET_USE | I | -1 | 181, 349 | $VALIDATE M: C:UCASE V:Y;N |
| 1 | 3.0 | PS_TYPE | I | -1 | 111, 433 | $SELECT 'CALLS THE PALLET_TYPE SELECTION S:PALLET_TYPE;I\TYPE $CALCULATE C:UCASE 'IF THIS FIELD IS NOT NULL I:I\TYPE;<>; DO(T) 'FORMATS THIS FIELD TO 00 'A:VAR;I\TYPE;I\TYPE;;00 'VALIDATES THAT THIS FIELD EXISTS ON THE DATABASE F:PALL_TYPE;Y;;;PTP_TYPE='$I\TYPE$';I\TYPE U:PALLET_TYPE;MEMBER_LOAD;I\T |
|
| 1 | 3.0 | MEMBER_NO | I | -1 | 111, 457 | $CALCULATE 'DISPLAY ERROR IF THE TYPE FIELD IS LEFT EMPTY WHILE THE MEMBER FIELD IS NOT EMPTY I:I\MEMBER_NO;<>; DO(TYP) I:I\TYPE;=; D:THE TYPE FIELD IS EMPTY;ERRORM;I\TYPE DOEND(TYP) 'PUTS TODAY'S DATE IN I\MP_DATE_JOINED A:DATE;YYYY/MM/DD;I\PS_DATE_JOINED 'COPIES THE VALUES TO THE FIELDS BEHIN |
|
| 1 | 4.0 | AGENT_MAST | AM_SUPPL_TO | I | -1 | 721, 469 | $SELECT S:SUPPL_RANGE;I\AM_SUPPL_TO 'S:SUPPL_RANGE;I\TMP91 $VALIDATE 'I:I\AM_SUPPL_FROM;<>; 'M: 'U:RANGE_VALIDATE;SUPPL_RANGE;I\AM_SUPPL_FROM,I\AM_SUPPL_TO,I\TMPANSWER 'I:I\TMPANSWER;=;N 'D:THAT SUPPLIER NUMBER RANGE IS IN USE ----;ERRORM;I\AM_SUPPL_FROM $CALCULATE A:CONST;;W\LEN 'FORMATS THIS FIELD TO |
| 1 | 4.0 | AGENT_MAST | AM_DELNO_TO | I | -1 | 721, 505 | $SELECT S:DEL_RANGE;I\AM_DELNO_TO 'S:DEL_RANGE;I\TMP93 $VALIDATE 'I:I\AM_SUPPL_FROM;<>; 'M: 'U:RANGE_VALIDATE;DELNO_RANGE;I\AM_DELNO_FROM,I\AM_DELNO_TO,I\TMPANSWER2 'I:I\TMPANSWER2;=;N 'D:THAT DELIVERY NUMBER RANGE IS IN USE;ERRORM;I\AM_DELNO_FROM $CALCULATE F:CLIENT_MAST;;;I\DEL_LENGTH=CM_DEL_LEN;CM_CODE |
| 1 | 4.0 | AGENT_MAST | AM_CHEP_MEMBER | I | -1 | 691, 397 | |
| 1 | 4.0 | AGENT_MAST | AM_DELNO_FROM | I | -1 | 641, 505 | $SELECT S:DEL_RANGE;I\AM_DELNO_FROM 'S:DEL_RANGE;I\TMP92 $CALCULATE I:I\AM_DELNO_FROM;<>; O:ENABLEINPUT;I\AM_DELNO_TO I:I\AM_DELNO_FROM;=; A:CONST;;I\AM_DELNO_TO |
| 1 | 4.0 | AGENT_MAST | AM_SUPPL_FROM | I | -1 | 641, 469 | $SELECT 'S:SUPPL_RANGE;I\AM_SUPPL_FROM LAZOLA S:SUPPL_RANGE;I\AM_SUPPL_FROM O:SETFOCUS;I\AM_SUPPL_FROM $CALCULATE A:CONST;;W\LEN 'FORMATS THIS FIELD TO 000000 IF NOT BLANK I:I\AM_SUPPL_FROM;<>; A:VAR;I\AM_SUPPL_FROM;I\AM_SUPPL_FROM;;000000 I:I\AM_SUPPL_FROM;<>; O:ENABLEINPUT;I\AM_SUPPL_TO I:I\AM |
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 61 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 61 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 61 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 61 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 61 |