Freshmark replication server

freshmark-canonical

Program drill-down

CASH_DEPOSIT_FEE_MDL

CASH DEPOSIT FEE MAINTENANCE. Type MDL, base table CASH_DEPOSIT_FEE.

Field inventory

31

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 CASH_DEPOSIT_FEE CF_CASH_START I -1 351, 181
$VALIDATE  M:  R:0;9999999  I:I\CF_CASH_START;<=;0;NUM  D:CANNOT BE ZERO OR A NEGATIVE VALUE;ERRORM;I\CF_CASH_START  
1 0.0 CASH_DEPOSIT_FEE CF_CASH_START T -1 191, 181
  
1 0.0 CASH_DEPOSIT_FEE CF_FEE_CODE I -1 351, 145
$SELECT  S:CASH;I\CF_FEE_CODE    $VALIDATE  M:  C:UCASE    I:I\CF_FEE_CODE;<>;I\TMP  DO(1)  I:I\TMP;<>;  D:CANNOT CREATE A NEW RECORD, YOU CAN ONLY UPDATE THE EXISTING ONE;ERRORM;I\CF_FEE_CODE  DOEND(1)
1 0.0 CASH_DEPOSIT_FEE CF_FEE_CODE T -1 191, 145
  
1 0.0 CASH_DEPOSIT_FEE CF_INCR_RATE I -1 351, 217
$VALIDATE  M:  R:0;9999999  I:I\CF_INCR_RATE;<=;0;NUM  D:CANNOT BE ZERO OR A NEGATIVE VALUE;ERRORM;I\CF_INCR_RATE
1 0.0 CASH_DEPOSIT_FEE CF_INCR_RATE T -1 191, 217
  
1 0.0 CASH_DEPOSIT_FEE CF_INCR_UNIT I -1 351, 253
$VALIDATE  M:  R:0;9999999  I:I\CF_INCR_UNIT;<=;0;NUM  D:CANNOT BE ZERO OR A NEGATIVE VALUE;ERRORM;I\CF_INCR_UNIT
1 0.0 CASH_DEPOSIT_FEE CF_INCR_UNIT T -1 191, 253
  
1 0.0 CASH_DEPOSIT_FEE CF_VAT_CODE I -1 351, 289
$SELECT  S:VAT;I\CF_VAT_CODE    $VALIDATE  I:I\CF_VAT_CODE;=;  A:VAR;I\TMPVAT;I\CF_VAT_CODE    A:VAR;I\CF_VAT_CODE;I\CF_VAT_CODE;;00  F:VAT_MAST;Y;;I\CF_VAT_CODE=VT_CODE;VT_CODE='$I\CF_VAT_CODE$';I\CF_VAT_CODE    $CALCULATE  I:I\CF_FEE_CODE;=;  D:CANNOT CREATE RECORD, EMPTY CODE FIELD;ERRORM;I\CF_FEE_CODE    I:I\CF_CAS
1 0.0 CASH_DEPOSIT_FEE CF_VAT_CODE T -1 191, 289
  
1 0.0 Label 8 T -1 1, 25
  
1 0.0 Label 9 T -1 291, 25
  
1 0.0 Label 10 T -1 261, 49
  
1 0.0 Label 11 T -1 621, 25
  
1 0.0 Label 12 T -1 671, 25
  
1 0.0 Label 13 T -1 621, 49
  
1 0.0 Label 14 T -1 671, 49
  
1 0.0 Work 15 I 0 31, 109
$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    F:VAT_MAST;;;I\TMPVAT=VT_CODE;VT_RATE='0'  F:CASH_DEPOSIT_FEE;;;I\TMP=CF_FEE_CODE    $BEFORE_DELETE  I:I\CF_FEE_CODE;=;  D:CANNOT DELETE, CODE IS EMPTY;ERRORM;I\CF_FEE_CODE
1 0.0 Work 16 I 0 71, 109
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    '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 18 I 0 111, 553
  
1 0.0 CMD 19 C -1 411, 289
$SELECT  S:VAT;I\CF_VAT_CODE
1 0.0 Work 1 I 0 561, 145
  
1 0.0 CMD 1 C -1 521, 145
$SELECT  S:CASH;I\CF_FEE_CODE  
1 0.0 Work 2 I 0 151, 553
  
1 0.0 Work 1 I 0 191, 553
  
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