Program drill-down
TFR_SUPPLIER_MAST
TECHNOFRESH SUPPLIER MAINTENANCE. Type MAN, base table SUPPLIER_MAST.
Field inventory
48
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 1 | I | 0 | 361, 385 | ||
| 1 | 0.0 | SUPPL_ADDR | SA_ADDR1 | I | -1 | 331, 193 | |
| 1 | 0.0 | SUPPL_ADDR | SA_ADDR1 | T | -1 | 231, 193 | |
| 1 | 0.0 | H | -1 | 1, 91 | |||
| 1 | 0.0 | SUPPLIER_MAST | SUM_SUPPL | I | -1 | 331, 121 | 'SELECTING SUPPLIER CODE FROM SUPPLIER_MAST TABLE $SELECT I:I\AGENT;<>; S:SUPPLIER_MAST1;I\SUM_SUPPL;I\AGENT I:I\AGENT;=; S:SUPPLIER_MAST2;I\SUM_SUPPL 'S:SUPPLIER_MAST;I\SUM_SUPPL COMMENTED ON CHRISTO'S REQUEST BY LP20100719 'CHANGING TEXT CASE TO UPPERCASE AND SET THIS FIELD MANDATORY $VALIDAT |
| 1 | 0.0 | SUPPLIER_MAST | SUM_SUPPL | T | -1 | 221, 121 | |
| 1 | 0.0 | CMD 2 | C | -1 | 401, 121 | 'SELECTING SUPPLIER CODE FROM SUPPLIER_MAST TABLE $SELECT I:I\AGENT;<>; S:SUPPLIER_MAST1;I\SUM_SUPPL;I\AGENT I:I\AGENT;=; S:SUPPLIER_MAST2;I\SUM_SUPPL 'S:SUPPLIER_MAST;I\SUM_SUPPL COMMENTED ON CHRISTO'S REQUEST BY LP20100719 |
|
| 1 | 0.0 | NUMTST | I | 0 | 21, 571 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_NAME | I | -1 | 331, 157 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_NAME | T | -1 | 271, 157 | |
| 1 | 0.0 | SUPPL_ADDR | SA_PCODE | T | -1 | 221, 301 | |
| 1 | 0.0 | Label 8 | T | -1 | 231, 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 | I | 0 | 11, 103 | $DEFAULT 'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZES THE GRID WITH ITS COLUMNS MATCHING THE FIELDS ALONG THE TOP OF IT 'U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\TC_CODE,I\TC_DESC,I\TC_QSIGN,I\TC_VSIGN 'LOADS ALL EX |
||
| 1 | 0.0 | SUPPLIER_MAST | SUM_TFR_SUPPLNO | I | -1 | 331, 349 | $VALIDATE 'CHANGE TEXT CASE TO UPPER CASE AND MAKE THIS FIELD MANDATORY M: C:UCASE A:CONST;$I\SUM_TFR_SUPPLNO$;I\TEMP_SUPPLNO 'IF THE FIRST CHARACTER IS NOT EQUAL TO 7 ENABLE INPUT IN ACTIVATION DATE FIELD I:W\TEMP1;<>;7 O:ENABLEINPUT;I\SUM_TFR_ACTIVE_DATE 'A:LEFT;I\EM_CELL,1;W\EM_CELL 'I:W\EM_CELL;<>; |
| 1 | 0.0 | SUPPL_ADDR | SA_ADDR2 | I | -1 | 331, 229 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_TFR_SUPPLNO | T | -1 | 121, 349 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_TFR_PACKAGE | I | -1 | 331, 385 | $VALIDATE M: C:UCASE 'SET FIRST CHARACTER INTO ZERO (0)IF USER ENTERED 1 I:I\SUM_TFR_PACKAGE;=;1;NUM A:CONST;01;I\SUM_TFR_PACKAGE 'SET FIRST CHARACTER INTO ZERO (0)IF USER ENTERED 0 I:I\SUM_TFR_PACKAGE;=;0;NUM A:CONST;00;I\SUM_TFR_PACKAGE 'ALLOW ONLY 00 AND 01 INPUT V:00;01 |
| 1 | 0.0 | SUPPLIER_MAST | SUM_TFR_PACKAGE | T | -1 | 211, 385 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_TFR_ACTIVE_DATE | I | -1 | 331, 421 | 'SET THIS FIELD MANDATORY $VALIDATE M: '$AFTER_READ A:CONST;$I\SUM_TFR_ACTIVE_DATE$;I\TEMP_TFR $BEFORE_WRITE A:CONST;$I\TEMP_TFR$;I\SUM_TFR_ACTIVE_DATE I:I\DEACTIVATE;=;Y A:CONST;;I\SUM_TFR_SUPPLNO |
| 1 | 0.0 | SUPPLIER_MAST | SUM_TFR_ACTIVE | I | -1 | 331, 493 | $VALIDATE I:I\DEACTIVATE;=; A:CONST;N;I\DEACTIVATE |
| 1 | 0.0 | SUPPLIER_MAST | SUM_TFR_ACTIVE_DATE | T | -1 | 201, 421 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_TFR_FAX | I | -1 | 331, 457 | $VALIDATE 'CHANGE TEXT CASE TO UPPER CASE C:UCASE 'IF THIS FIELD LEFT BLANK SET 'N' AS A DEFAULT I:I\SUM_TFR_FAX;=; A:CONST;N;I\SUM_TFR_FAX 'THIS FIELD ONLY ALLOW Y OR N V:Y;N |
| 1 | 0.0 | Label 1 | T | -1 | 221, 493 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_TFR_FAX | T | -1 | 241, 457 | |
| 1 | 0.0 | SUPPL_ADDR | SA_ADDR2 | T | -1 | 231, 229 | |
| 1 | 0.0 | SUPPL_ADDR | SA_ADDR3 | I | -1 | 331, 265 | |
| 1 | 0.0 | SUPPL_ADDR | SA_ADDR3 | T | -1 | 231, 265 | |
| 1 | 0.0 | SUPPL_ADDR | SA_PCODE | I | -1 | 331, 301 | |
| 1 | 0.0 | Work 2 | I | 0 | 411, 349 | ||
| 1 | 0.0 | Work 1 | I | 0 | 121, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORGS;;I\AGENT 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET |
|
| 1 | 0.0 | Work 2 | I | 0 | 591, 529 | ||
| 1 | 0.0 | Work 1 | I | 0 | 211, 553 | ||
| 1 | 0.0 | Work 2 | I | 0 | 251, 553 | ||
| 1 | 0.0 | Work 1 | I | 0 | 281, 553 | ||
| 1 | 0.0 | Work 3 | I | 0 | 621, 529 | ||
| 1 | 0.0 | Work 1 | I | 0 | 561, 529 | ||
| 1 | 0.0 | Label 4 | T | 0 | 511, 505 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 91 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 91 |