Freshmark replication server

freshmark-canonical

Program drill-down

CASHIER_BALANCE_PAST

CASHIER BALANCES FOR THE PAST DAYS. Type MAN, base table CASH_POINT.

Field inventory

55

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 CASH_POINT CPO_CASHPT I -1 201, 121
'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, 145
'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,I\CASH_BAL_SUMMARY    'U:CASHIER_BALANCE;CHECK_TODAYS_BALANCING    'I:I\FIND;=;Y  'DO(FIND)  'D:THE 
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Work 4 I 0 111, 37
$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 5 I 0 141, 37
$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\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 Label 6 T -1 291, 25
  
1 0.0 Label 7 T -1 321, 49
  
1 0.0 Work 8 I -1 201, 169
  
1 0.0 Label 9 T -1 621, 25
  
1 0.0 Label 10 T -1 621, 49
  
1 0.0 Label 11 T -1 671, 25
  
1 0.0 Label 12 T -1 671, 49
  
1 0.0 Label 13 T -1 61, 121
  
1 0.0 Label 14 T -1 61, 145
  
1 0.0 Label 15 T -1 61, 169
  
1 0.0 CMD 16 C -1 261, 121
$SELECT  S:CASH_POINT;I\CPO_CASHPT
1 0.0 CMD 17 C -1 261, 145
'SELECT CASH POINT FROM SELECTION WINDOW  $SELECT  S:CASHIER_CODE;I\CSH_CASHIER
1 0.0 Label 18 T -1 301, 121
  
1 0.0 Label 19 T -1 301, 145
  
1 0.0 Label 20 T -1 301, 169
  
1 0.0 GRIDN G -1 51, 277
  
1 0.0 GRIDO G -1 421, 277
  
1 0.0 Work 23 I -1 561, 241
$VALIDATE  'SET THIS FIELD MANDATORY  M:  'VALIDATING INPUT, IT CANNOT BE LESS THAN 0     COMMENTED BY LAZ  ON 20090805  FOR THE DEBIT JOURNALS  'I:I\TAKINGS_O;<;0;NUM  'D:PLEASE ENTER A POSITIVE VALUE;ERRORM;I\TAKINGS_O    'I:W\TEMP5;<>; COMMENTED BY LAZ  ON 20090921 ON CHRISTO'S REQUEST  '   DO(PL)  '     I:I\TAKINGS
1 0.0 Work 2 I -1 541, 277
  
1 0.0 Work 24 I -1 201, 241
$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:W\TEMP4;<>;     DO(LP)       I:I\TAKINGS_N;=;.00       D:ENTER NORMAL TAKINGS AMOUNT - IT CANNOT BE ZERO;ERRORM;I\TAKINGS_N     DOEND(LP)    'F:DEBTOR_MAS
1 0.0 TYPE1 I -1 581, 277
  
1 0.0 Label 25 T -1 61, 241
  
1 0.0 Label 26 T -1 421, 241
  
1 0.0 Work 27 I -1 562, 445
  
1 0.0 Work 28 I -1 194, 445
  
1 0.0 Label 29 T -1 50, 445
  
1 0.0 Label 30 T -1 421, 445
  
1 0.0 Work 1 I -1 61, 277
  
1 0.0 Work 2 I -1 241, 277
  
1 0.0 Work 3 I -1 421, 277
  
1 0.0 Work 4 I -1 601, 277
  
1 0.0 Work 1 I 0 101, 553
  
1 0.0 Work 2 I 0 151, 553
  
1 0.0 Work 3 I 0 51, 553
  
1 0.0 Work 4 I 0 561, 481
  
1 0.0 Work 5 I 0 191, 481
  
1 0.0 Work 1 I -1 191, 277
  
1 0.0 TYPE I -1 211, 277
  
1 0.0 Work 1 I 0 201, 553
  
1 0.0 Work 1 I 0 431, 205
  
1 0.0 Work 1 I -1 201, 97
$VALIDATE  A:CONST;;W\CSV_DATE    U:CASHIER_BALANCE_PAST;GET_CSVDATE    I:W\CSV_DATE;=;  D:NO RECORDS FOUND FOR THE ENTERED DATE;ERRORM;I\CSV_DATE    
1 0.0 Label 2 T -1 61, 97
  
1 0.0 Work 3 I 0 311, 481
  
1 0.0 Work 4 I 0 421, 481
  
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