Program drill-down
FRESHMARK_SUPPL_DB
FRESHMARK SUPPLIER DATABASE. Type MDL, base table SUPPLIER_MAST.
Field inventory
39
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 1, 25 | |||
| 1 | 0.0 | SUPPLIER_MAST | SUM_FMS_SUPPLNO | I | -1 | 391, 301 | $VALIDATE 'A:VAR;I\SUM_FMS_SUPPLNO;I\TMP4 M: C:UCASE F:SUPPLIER_MAST;;;I\FMSCODE=SUM_SUPPL;SUM_FMS_SUPPLNO='$I\SUM_FMS_SUPPLNO$' AND SUM_SUPPL <> '$I\SUM_SUPPL$';I\SUM_SUPPL I:I\FMSCODE;<>; D:THAT FMS SUPPLIER CODE ALREADY EXISTS FOR SUPPLIER $I\FMSCODE$;ERRORM;I\SUM_FMS_SUPPLNO |
| 1 | 0.0 | SUPPLIER_MAST | SUM_FMS_SUPPLNO | T | -1 | 171, 301 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_FMS_PACKAGE | D | -1 | 391, 349 | $DEFAULT B:ADDITEM;D\SUM_FMS_PACKAGE;01,02 $VALIDATE M: C:UCASE B:VALIDATE;D\SUM_FMS_PACKAGE;01,02 I:D\SUM_FMS_PACKAGE;=;01 A:CONST;MRS CLIENT;T\CLIENT_NAME I:D\SUM_FMS_PACKAGE;=;02 A:CONST;DUET CLIENT;T\CLIENT_NAME $AFTER_READ I:D\SUM_FMS_PACKAGE;<>; DO I:D\SUM_FMS_PACKAGE;=;01 A:CONST;MRS CLIENT |
| 1 | 0.0 | SUPPLIER_MAST | SUM_FMS_PACKAGE | T | -1 | 171, 349 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_FMS_ACTIVE_DATE | I | -1 | 391, 397 | $VALIDATE M: |
| 1 | 0.0 | SUPPLIER_MAST | SUM_FMS_ACTIVE_DATE | T | -1 | 171, 397 | |
| 1 | 0.0 | SUPPLIER_MAST | SUM_FMS_FAX | I | -1 | 391, 433 | $VALIDATE M: I:I\SUM_FMS_FAX;<>;Y DO I:I\SUM_FMS_FAX;<>;N D:PLEASE ENTER EITHER 'Y' OR 'N';ERRORM;I\SUM_FMS_FAX DOEND |
| 1 | 0.0 | SUPPLIER_MAST | SUM_FMS_FAX | T | -1 | 171, 445 | |
| 1 | 0.0 | CMD 62 | C | -1 | 471, 97 | $SELECT S:SUPPLIER_MAST;I\SUM_SUPPL |
|
| 1 | 0.0 | SUPPLIER_MAST | SUM_SUPPL | I | -1 | 391, 97 | $SELECT S:SUPPLIER_MAST $VALIDATE M: C:UCASE A:ISNUMERIC;I\SUM_SUPPL;I\TMP1 I:I\TMP1;<>;N A:VAR;I\SUM_SUPPL;I\SUM_SUPPL;;00 F:SUPPLIER_MAST;Y;;I\SUM_SUPPL=SUM_SUPPL;SUM_SUPPL='$I\SUM_SUPPL$' A:ISNUMERIC;I\SUM_SUPPL;I\TMP1 I:I\TMP1;<>;N A:VAR;I\SUM_SUPPL;I\SUM_SUPPL;;00 $CALCULATE 'F:SUPPL_ADDR;;;I\NAME |
| 1 | 0.0 | SUPPLIER_MAST | SUM_SUPPL | T | -1 | 171, 97 | |
| 1 | 0.0 | Label 64 | T | -1 | 171, 145 | ||
| 1 | 0.0 | Label 65 | T | -1 | 171, 181 | ||
| 1 | 0.0 | Label 66 | T | -1 | 171, 253 | ||
| 1 | 0.0 | SUPPL_ADDR | SA_NAME | I | -1 | 391, 145 | |
| 1 | 0.0 | SUPPL_ADDR | SA_ADDR1 | I | -1 | 391, 181 | |
| 1 | 0.0 | SUPPL_ADDR | SA_ADDR2 | I | -1 | 391, 205 | |
| 1 | 0.0 | SUPPL_ADDR | SA_ADDR3 | I | -1 | 391, 229 | |
| 1 | 0.0 | SUPPL_ADDR | SA_PCODE | I | -1 | 391, 253 | |
| 1 | 0.0 | Label 72 | T | -1 | 11, 25 | ||
| 1 | 0.0 | Label 73 | T | -1 | 311, 25 | ||
| 1 | 0.0 | Label 74 | T | -1 | 311, 49 | ||
| 1 | 0.0 | Label 75 | T | -1 | 611, 49 | ||
| 1 | 0.0 | Label 76 | T | -1 | 611, 25 | ||
| 1 | 0.0 | Label 77 | T | -1 | 661, 49 | ||
| 1 | 0.0 | Label 78 | T | -1 | 661, 25 | ||
| 1 | 0.0 | Work 79 | I | 0 | 51, 61 | $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\GRID;I\NAME,I\ADDR1,I\ADDR2,I\ADDR3,I\PCODE 'U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;SUPPL_ADDR |
|
| 1 | 0.0 | Work 1 | I | 0 | 161, 565 | ||
| 1 | 0.0 | Label 1 | T | -1 | 491, 349 | ||
| 1 | 0.0 | Work 1 | I | 0 | 471, 301 | ||
| 1 | 0.0 | Work 2 | I | 0 | 511, 301 | ||
| 1 | 0.0 | Work 3 | I | 0 | 551, 301 | ||
| 1 | 0.0 | Work 11 | I | 0 | 11, 61 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME C:MCASE;;T\MARKET |
|
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 25 |