Freshmark replication server

freshmark-canonical

Program drill-down

CALENDER_MAN2

CALENDER MAINTENANCE. Type MAN, base table CALENDER.

Field inventory

26

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 10 T -1 1, 25
  
1 0.0 Label 14 T -1 671, 25
  
1 0.0 Label 16 T -1 671, 49
  
1 0.0 CALENDER CAL_YEAR I -1 341, 133
$CALCULATE    'INITIALIZES THE GRID WITH ITS COLUMNS MATCHING THE FIELDS ALONG THE TOP OF IT  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\DATE,I\MONTH,I\WEEK,W\DEL:H    U:CALENDER_MAINTENANCE;CALENDER_MAN_CALENDER_LOAD_DATA    'U:CALENDER_MAN;GRID_KEY_5
1 0.0 Work 2 I 0 531, 193
  
1 0.0 Work 7 I 0 221, 49
$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 TO THE FIELDS ON THE SCREEN  'U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\DT_TYPE,I\DT_DESC  'LOADS THE GRID WITH THE DATA FROM THE TABLE  'U:ZZGRID_SPLIT;DB_TO_G
1 0.0 CMD 1 Z -1 651, 546
$SELECT    '=====================================================================================================================================    'SAVE DATA TO THE CHARGE TRANS ET AL. TABLE FOR SECURE CASH BUYER  I:I\PAYMENT_METHOD;=;CS    'U:LOAD_DATA;SAVE_CHARGE_TRANS      'SAVE DATA TO THE CHARGE TRANS ET AL. TAB
1 0.0 Work 1 I 0 251, 193
  
1 0.0 Work 2 I 0 351, 193
  
1 0.0 Work 3 I 0 451, 193
  
1 0.0 Label 13 T -1 621, 25
  
1 0.0 Label 11 T -1 291, 25
  
1 0.0 Label 15 T -1 621, 49
  
1 0.0 H -1 0, 30
  
1 0.0 Label 5 T -1 251, 133
  
1 0.0 Work 17 I 0 261, 49
$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    
1 0.0 Label 9 T -1 251, 181
  
1 0.0 Label 10 T -1 351, 181
  
1 0.0 Label 12 T -1 291, 49
  
1 0.0 Label 11 T -1 451, 181
  
1 0.0 Work 8 G -1 251, 217
$GRID_VALIDATE  U:CALENDER_MAN;GRID_KEY_3    $GRID_ENTERCELL  U:CALENDER_MAN;GRID_KEY_4  
10 0.0 ZX_UPDATE Z 0 0, 30
$BEFORE_WRITE    U:CALENDER_MAINTENANCE;CALENDER_MAN_CALENDER_SAVE_DATA
10 0.0 ZX_EXIT Z 0 0, 30
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30