Freshmark replication server

freshmark-canonical

Program drill-down

CASHIER_BAL_FIX

CASHIER BALANCING FIX. Type MAN, base table CASH_POINT.

Field inventory

51

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, 109
'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 THESE FIELDS BEFORE TAKING ANY ACTION  A:CONST;;T\CSH_DESC,I\ACCNO,T\ACCNO,I\FIND      'LOOK UP FOR AN EXISTING CASHIER CODE OTHERWISE DISPLAY ERROR MESSAGE  F:CASH_MAST;Y;CSH_CASHIER
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 291, 49
  
1 0.0 Work 8 I -1 201, 181
  
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, 109
  
1 0.0 Label 14 T -1 61, 145
  
1 0.0 Label 15 T -1 61, 181
  
1 0.0 CMD 16 C -1 271, 109
$SELECT  S:CASH_POINT;I\CPO_CASHPT
1 0.0 CMD 17 C -1 271, 145
'SELECT CASH POINT FROM SELECTION WINDOW  $SELECT  S:CASHIER_CODE;I\CSH_CASHIER
1 0.0 Label 18 T -1 321, 109
  
1 0.0 Label 19 T -1 321, 145
  
1 0.0 Label 20 T -1 321, 181
  
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 161, 517
  
1 0.0 Work 2 I 0 221, 517
  
1 0.0 Work 3 I 0 51, 517
  
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 311, 469
  
1 0.0 Work 1 I 0 441, 133
  
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