Freshmark replication server

freshmark-canonical

Program drill-down

EL_CASHIER_BALANCE

CASHIER BALANCES BY PAY METHOD. Type MAN, base table CASH_POINT.

Field inventory

60

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I -1 201, 175
$SELECT  S:PAYMENT_METHOD;I\PAYMETH;I\MARKET    $VALIDATE  M:  C:UCASE  F:CASH_PAYMTHD;Y;;T\CPM_DESC=CPM_DESC;CPM_PAYMETH='$I\PAYMETH$';I\PAYMETH
1 0.0 Label 7 T -1 321, 79
  
1 0.0 Work 5 I 0 141, 67
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:DATE;DD MMM YYYY;I\FDATE  A:DATE;DD MMM YYYY;I\TDATE    A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000      U:ZZGRID_SPLIT;INIT_GRID;G\GRIDN;I\DESC,I\SIGN:H,I\TYPE:H,I\AMT    U:ZZGRID_SPLIT;INIT_GRID;G\GRIDO;I\DESC1,I\SIGN1:H,I\TYPE1:H,I\AMT1
1 0.0 Work 8 I -1 201, 283
  
1 0.0 Work 23 I -1 561, 319
$VALIDATE  'SET THIS FIELD MANDATORY  M:    'I:I\TAKINGS_O;=;0;NUM  'D:TAKINGS AMOUNT CANNOT BE ZERO;ERRORM;I\TAKINGS_N    'CALCULATE DIFFERENCE BETWEEN OTHER TAKINGS AMOUNT AND TOTAL VALUE FOR ALL TRANSACTION IN THE GRID  A:SUB;W\TEMP5;I\DEFICIT_O;I\TAKINGS_O;#0.00  'A:SUB;W\TEMP4;I\DEFICIT_N;I\TAKINGS_N;#0.00    I:I\
1 0.0 Label 3 T -1 301, 175
  
1 0.0 CMD 4 C -1 261, 175
$SELECT  S:PAYMENT_METHOD;I\MARKET
1 0.0 Work 5 I 0 61, 97
  
1 0.0 Work 4 I 0 401, 571
  
1 0.0 Work 1 I -1 61, 355
  
1 0.0 Work 2 I -1 251, 355
  
1 0.0 Work 1 I 0 421, 355
  
1 0.0 Work 4 I 0 611, 355
  
1 0.0 Work 1 I 0 401, 571
  
1 0.0 Work 2 I 0 401, 571
  
1 0.0 Work 3 I 0 401, 571
  
1 0.0 Work 4 I 0 111, 67
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET      'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_USE_CASH_BAL_DENOM=CM_USE_CASH_BAL_DENOM    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    
1 0.0 Work 1 I 0 401, 571
  
1 0.0 TYPE I -1 211, 355
  
1 0.0 Work 1 I 0 401, 571
  
1 0.0 Work 1 I -1 191, 355
  
1 0.0 Label 3 T -1 1, 55
  
1 0.0 Label 6 T -1 291, 55
  
1 0.0 Work 1 I 0 401, 571
  
1 0.0 Work 2 I 0 561, 355
  
1 0.0 Work 24 I -1 201, 319
$VALIDATE  'SET THIS FIELD MANDATORY  M:  'VALIDATING INPUT, IT CANNOT BE LESS THAN 0  I:I\TAKINGS_N;<;0;NUM  D:PLEASE ENTER A POSITIVE VALUE;ERRORM;I\TAKINGS_N    'I:I\TAKINGS_N;=;0;NUM  'D:TAKINGS AMOUNT IT CANNOT BE ZERO;ERRORM;I\TAKINGS_N    'CALCULATE DEFICIT  A:SUB;W\TEMP4;I\DEFICIT_N;I\TAKINGS_N;#0.00    I:I\PAY
1 0.0 CMD 16 C -1 261, 211
$SELECT  S:CASH_POINT;I\CPO_CASHPT
1 0.0 TYPE1 I 0 541, 355
  
1 0.0 Work 27 I -1 561, 523
  
1 0.0 Work 28 I -1 211, 523
  
1 0.0 CMD 17 C -1 261, 247
'SELECT CASH POINT FROM SELECTION WINDOW  $SELECT  S:CASHIER_CODE;I\CSH_CASHIER
1 0.0 GRIDN G -1 61, 355
  
1 0.0 GRIDO G -1 421, 355
  
1 0.0 H -1 0, 30
  
1 0.0 CASH_POINT CPO_CASHPT I -1 201, 211
'SELECT CASH POINT FROM SELECTION WINDOW  $SELECT  S:CASH_POINT;I\CPO_CASHPT    'SET THIS MANDATORY  $VALIDATE  M:  C:UCASE  'LOOK UP FOR AN EXISTING CASH POINT NUMBER OTHERWISE DISPLAY ERROR MESSAGE  F:CASH_POINT;Y;CPO_CASHPT;T\CPO_DESC=CPO_DESC;;I\CPO_CASHPT      
1 0.0 CSH_CASHIER I -1 201, 247
'SELECT CASH POINT FROM SELECTION WINDOW  $SELECT  S:CASHIER_CODE;I\CSH_CASHIER    'SET THIS MANDATORY  $VALIDATE  M:  C:UCASE    'CLEAR THSESE FIELDS BEFORE TAKING ANY ACTION  A:CONST;;T\CSH_DESC,I\ACCNO,T\ACCNO,I\FIND    'U:CASHIER_BALANCE;CHECK_TODAYS_BALANCING  U:BALANCING_BY_PAYMETHOD;CHECK_TODAYS_BALANCING    I:I
1 0.0 Label 2 T -1 61, 175
  
1 0.0 Label 9 T -1 621, 55
  
1 0.0 Label 10 T -1 621, 79
  
1 0.0 Label 11 T -1 671, 55
  
1 0.0 Label 12 T -1 671, 79
  
1 0.0 Label 13 T -1 61, 211
  
1 0.0 Label 14 T -1 61, 247
  
1 0.0 Label 15 T -1 61, 283
  
1 0.0 Label 18 T -1 301, 211
  
1 0.0 Label 19 T -1 301, 247
  
1 0.0 Label 20 T -1 271, 283
  
1 0.0 Label 25 T -1 61, 319
  
1 0.0 Label 26 T -1 421, 319
  
1 0.0 Label 29 T -1 61, 523
  
1 0.0 Label 30 T -1 421, 523
  
1 0.0 Work 7 I -1 201, 139
  
1 0.0 Label 8 T -1 61, 139
  
1 0.0 Label 9 T -1 321, 139
  
1 0.0 Work 10 I -1 431, 139
  
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
  
10 0.0 ZX_UPDATE Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30