Freshmark replication server

freshmark-canonical

Program drill-down

CASHIER_BAL_FIX_NEW

CASHIER BALANCING FIX. Type MAN, base table CASH_POINT.

Field inventory

59

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 16 C -1 251, 169
$SELECT  S:CASH_POINT;I\CPO_CASHPT
1 0.0 CMD 17 C -1 251, 205
'SELECT CASH POINT FROM SELECTION WINDOW  $SELECT  S:CASHIER_CODE;I\CSH_CASHIER
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    I:I\MARKET;<>;17  O:DISABLEINPUT;I\PAYMETH,C\PAYMETH    
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    A:CONST;$T\DATE$;I\FROM_DATE,I\TO_DATE    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 191, 241
  
1 0.0 Work 23 I -1 561, 277
$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, 361
  
1 0.0 Work 24 I -1 191, 277
$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, 361
  
1 0.0 Work 27 I -1 561, 469
  
1 0.0 GRIDN G -1 61, 313
  
1 0.0 CSH_CASHIER I -1 191, 205
'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 H -1 0, 0
  
1 0.0 GRIDO G -1 411, 313
  
1 0.0 CASH_POINT CPO_CASHPT I -1 191, 169
'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 Label 1 T -1 61, 97
  
1 0.0 Label 2 T -1 301, 97
  
1 0.0 Work 3 I -1 191, 97
$VALIDATE    I:I\FROM_DATE;=;  A:CONST;$T\DATE$;I\FROM_DATE
1 0.0 Work 4 I -1 411, 97
$VALIDATE    I:I\TO_DATE;=;  A:CONST;$T\DATE$;I\TO_DATE          
1 0.0 Work 28 I -1 191, 469
  
1 0.0 Work 1 I -1 61, 361
  
1 0.0 Work 2 I -1 251, 361
  
1 0.0 Work 3 I -1 421, 361
  
1 0.0 Work 4 I -1 601, 361
  
1 0.0 Work 1 I 0 251, 541
  
1 0.0 Work 2 I 0 301, 541
  
1 0.0 Work 3 I 0 201, 541
  
1 0.0 Work 4 I 0 561, 505
  
1 0.0 Work 5 I 0 201, 517
  
1 0.0 Work 1 I -1 191, 361
  
1 0.0 TYPE I -1 221, 361
  
1 0.0 Work 1 I 0 351, 541
  
1 0.0 Work 1 I 0 211, 517
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Label 6 T -1 291, 25
  
1 0.0 Label 7 T -1 291, 49
  
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, 169
  
1 0.0 Label 14 T -1 61, 205
  
1 0.0 Label 15 T -1 61, 241
  
1 0.0 Label 18 T -1 301, 169
  
1 0.0 Label 19 T -1 301, 205
  
1 0.0 Label 20 T -1 261, 241
  
1 0.0 Label 25 T -1 61, 277
  
1 0.0 Label 26 T -1 421, 277
  
1 0.0 Label 29 T -1 61, 469
  
1 0.0 Label 30 T -1 411, 469
  
1 0.0 Label 1 T -1 61, 133
  
1 0.0 Work 2 I -1 191, 133
$SELECT  S:PAYMENT_METHOD;I\PAYMETH;I\MARKET    $VALIDATE  C:UCASE  I:I\PAYMETH;<>;  F:CASH_PAYMTHD;Y;;T\CPM_DESC=CPM_DESC;CPM_PAYMETH='$I\PAYMETH$';I\PAYMETH
1 0.0 CMD 3 C -1 251, 133
$SELECT  S:PAYMENT_METHOD;I\MARKET
1 0.0 Label 4 T -1 301, 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