Freshmark replication server

freshmark-canonical

Program drill-down

SUPPLIER_AMEND_MAN

SUPPLIER AMENDMENT MENU REQUEST. Type MAN, base table SUPPLIER_MAST.

Field inventory

54

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 211, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 8 T -1 11, 109
  
1 0.0 Label 9 T -1 11, 145
  
1 0.0 Label 10 T -1 11, 181
  
1 0.0 Label 11 T -1 11, 205
  
1 0.0 Label 12 T -1 11, 229
  
1 0.0 Label 13 T -1 11, 253
  
1 0.0 Label 14 T -1 11, 289
  
1 0.0 SUPPLIER_MAST SUM_SUPPL I -1 151, 109
$SELECT  S:SUPPL_CODE;I\SUPPLNO    $VALIDATE  M:  I:I\SUPPLNO;<>;  A:VAR;I\SUPPLNO;I\SUPPLNO;;000000  F:SUPPLIER_MAST;Y;;I\SUPPL_NAME=SUM_NAME;SUM_SUPPL='$I\SUPPLNO$';I\SUPPLNO    'LOADING SUPPLIERS ADDRESS WHERE BY SUPPLIER ADDRESS CODE WHERE DEFAULT ADDRESS IS EQUAL TO "Y" OR "YES"  F:SUPPL_ADDR;;;I\SUPPL_ADDR1=SA_AD
1 0.0 Label 3 T -1 11, 337
  
1 0.0 Label 1 T -1 411, 181
  
1 0.0 SUPPLIER_MAST SUM_NAME I -1 151, 145
  
1 0.0 SUPPL_ADDR SA_ADDR1 I -1 151, 181
  
1 0.0 SUPPL_ADDR SA_ADDR2 I -1 151, 205
  
1 0.0 SUPPL_ADDR SA_ADDR3 I -1 151, 229
  
1 0.0 SUPPL_ADDR SA_PCODE I -1 151, 253
  
1 0.0 CMD 22 C -1 251, 109
$SELECT  S:SUPPLIER_MAST;I\SUPPLNO
1 0.0 SUPPLIER_MAST SUM_GENDER D -1 151, 289
$DEFAULT  'ADD ITEMS INTO THE COMBOBOX  B:ADDITEM;D\GENDER;M,F,C    $VALIDATE    'UPPERCASE  C:UCASE
1 0.0 Label 26 T -1 11, 313
  
1 0.0 Work 28 I 0 31, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  'A:DATE;DD MMM YYYY;I\FROMDATE  'A:DATE;DD MMM YYYY;I\TODATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000  
1 0.0 Work 27 I 0 1, 61
$DEFAULT    'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    '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    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'INITIALIZES THE DATE AND TIME 
1 0.0 SUPPLIER_MAST SUM_RACE D -1 151, 337
$DEFAULT  'ADD ITEMS INTO THE COMBOBOX  B:ADDITEM;D\RACE;WHITE,COLOURED,BLACK,INDIAN,OTHER    $VALIDATE    'UPPERCASE  C:UCASE
1 0.0 SUPPLIER_MAST SUM_WOMAN I -1 151, 397
$CALCULATE    C:UCASE  V:Y;N
1 0.0 SUPPLIER_MAST SUM_YOUTH I -1 151, 373
$CALCULATE    C:UCASE  V:Y;N    
1 0.0 Label 1 T -1 11, 373
  
1 0.0 Label 2 T -1 11, 397
  
1 0.0 Label 3 T -1 11, 421
  
1 0.0 SUPPLIER_MAST SUM_DISABLED I -1 151, 421
$CALCULATE    C:UCASE  V:Y;N
1 0.0 SUPPLIER_MAST SUM_CATEGORY D -1 151, 313
$DEFAULT  'ADD ITEMS INTO THE COMBOBOX  B:ADDITEM;D\CATEGORY;S - ALL SCALE FARMER (UP TO R5M),M - MEDIUM SCALE FARMER (R5M TO R20M),L - LARGE SCALE FARMER > R20M                                                                                                                                                               
1 0.0 Label 2 T -1 11, 493
  
1 0.0 SUPPLIER_MAST SUM_WARD I -1 151, 457
  
1 0.0 Label 1 T -1 11, 457
  
1 0.0 Label 9 T -1 411, 109
  
1 0.0 Label 10 T -1 411, 145
  
1 0.0 SUPPLIER_MAST SUM_MEMBERS I -1 151, 493
$CALCULATE    C:UCASE
1 1.0 Work 1 I 0 561, 277
  
1 1.0 Work 1 I 0 561, 229
  
1 1.0 Work 1 I 0 561, 253
  
1 1.0 SUPPLIER_MAST SUM_PROJECTS D -1 521, 181
$DEFAULT      F:PROJECT;;;D\PROJECTS=PRJ_CODE;;  U:PROJECTS_LIST;GET_PROJECTS  U:PROJECTS_LIST;MV_LOAD;  B:ADDLIST;D\PROJECTS;W\DESC  A:CONST;;D\PROJECTS
1 1.0 SUPPLIER_MAST SUM_PDI D -1 521, 109
$DEFAULT    'ADD ITEMS INTO THE COMBOBOX  B:ADDITEM;D\PDI;SMALL SCALE,COMMERCIAL    $VALIDATE    'UPPERCASE  C:UCASE
1 1.0 SUPPLIER_MAST SUM_NON_PDI D -1 521, 145
$DEFAULT    'ADD ITEMS INTO THE COMBOBOX  B:ADDITEM;D\NON_PDI;SMALL SCALE,COMMERCIAL    $VALIDATE    'UPPERCASE  C:UCASE
1 1.0 Work 1 I 0 561, 301
  
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