Freshmark replication server

freshmark-canonical

Program drill-down

CASH_BAL_DENOM_FIX

FIX CASHIER BALANCING DENOMINATION. Type DSP, base table DEBTOR_MAST.

Field inventory

101

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 7 T -1 61, 361
  
1 0.0 CMD 1 C -1 653, 546
$SELECT    U:SAVE_CASH_DENOMS;FIX_DENOM  U:CASHIER_BAL_DENOM;PRINT_OUTS    A:CONST;;I\CSH_CASHIER,T\CSH_DESC,I\CPO_CASHPT,I\TAX_INV,W\TOTAL,I\TOTAL,I\CHEQUES,I\GRAND_TOT,I\PICKUP,I\SYSTEM_TOT,I\MINI_ATM,I\TOT_DIFF  A:CONST;;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_A
1 0.0 Work 10 I -1 111, 505
$CALCULATE  A:VAR;I\GRAND_TOT;I\GRAND_TOT;;#0.00    
1 0.0 Work 11 I -1 351, 505
  
1 0.0 Work 12 I -1 571, 505
$CALCULATE  A:VAR;I\TOT_DIFF;I\TOT_DIFF;;#0.00    
1 0.0 Label 7 T -1 11, 505
  
1 0.0 Label 8 T -1 251, 505
  
1 0.0 Label 9 T -1 471, 505
  
1 0.0 Label 16 T -1 671, 49
  
1 0.0 Label 2 T -1 411, 289
  
1 0.0 Label 4 T -1 11, 85
  
1 0.0 Label 10 T -1 1, 25
  
1 0.0 Label 12 T -1 231, 49
  
1 0.0 Label 15 T -1 621, 49
  
1 0.0 Label 3 T -1 61, 217
  
1 0.0 Label 11 T -1 291, 25
  
1 0.0 Label 4 T -1 11, 433
  
1 0.0 Label 5 T -1 411, 397
  
1 0.0 Work 1 I 0 711, 145
  
1 0.0 Work 2 I 0 711, 121
  
1 0.0 Work 16 I -1 111, 397
$VALIDATE    A:CONST;5;I\R5_AMT  A:MULT;I\R5_QTY;I\R5_AMT;I\R5_AMT;#0.00    I:I\R5_QTY;=;    A:CONST;0;I\R5_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;=;W\TOTAL;NUM  DO(001)    O:ENABLEINPUT;C\PRINT    O:
1 0.0 Work 8 I -1 111, 121
$VALIDATE  M:  F:CASH_POINT;Y;CPO_CASHPT;T\CPO_DESC=CPO_DESC;;I\CPO_CASHPT    O:SETFOCUS;I\PAY_DATE  
1 0.0 Work 17 I -1 221, 217
$CALCULATE    A:CONST;200;I\R200_QTY    A:DIV;I\R200_AMT;I\R200_QTY;I\R200_QTY;#0.00    A:VAR;I\R200_AMT;I\R200_AMT;;#0.00    A:RIGHT;I\R200_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\R200_QTY      D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    DOEND(01)    A:VAR;I\R200_QTY;I\R200_QTY;;#0 
1 0.0 Work 15 I -1 111, 361
$CALCULATE    A:CONST;10;I\R10_AMT  A:MULT;I\R10_QTY;I\R10_AMT;I\R10_AMT;#0.00    I:I\R10_QTY;=;    A:CONST;0;I\R10_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001)    O:DISABLEINPUT;C\PR
1 0.0 Work 1 I 0 651, 121
'$SVAR_FOCUS  'U:CATCHCHARS;TRUE    '$CALCULATE    'I:I\TOTAL_CASH_RECEIVED;<;W\TOTAL;NUM    'D:TOTAL CASH RECEIVED CAN NOT BE LESS THAN AMOUNT OWING;ERRORM    'MANDATORY  'M:    'I:I\PAYMENT_METHOD;=;CN  'DO(001)    'O:ENABLEINPUT;I\R200_QTY,I\R100_QTY,I\R50_QTY,I\R20_QTY,I\R10_QTY,I\R5_QTY,I\R2_QTY,I\R1_QTY,I\50C_QTY
1 0.0 Work 17 I 0 181, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    
1 0.0 Work 7 I 0 151, 49
$DEFAULT  'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:DATE;DD MMM YYYY;I\PAY_DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000      'GET MARKET  A:ORG;;W\MARKET    'PUTS PIC ON THE PRINT BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\PRINT    'CHANGE CA
1 0.0 Work 11 I -1 111, 217
$CALCULATE    A:CONST;200;I\R200_AMT  A:MULT;I\R200_QTY;I\R200_AMT;I\R200_AMT;#0.00    I:I\R200_QTY;=;    A:CONST;0;I\R200_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001)    O:DISABLEINP
1 0.0 Work 11 I -1 461, 397
$CALCULATE    A:CONST;0.05;I\5C_AMT  A:MULT;I\5C_QTY;I\5C_AMT;I\5C_AMT;#0.00    I:I\5C_QTY;=;    A:CONST;0;I\5C_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001)    O:DISABLEINPUT;C\PRINT 
1 0.0 Work 1 I 0 681, 121
  
1 0.0 Work 10 I -1 461, 361
$CALCULATE    A:CONST;0.10;I\10C_AMT  A:MULT;I\10C_QTY;I\10C_AMT;I\10C_AMT;#0.00    A:CONST;0;I\5C_QTY    I:I\10C_QTY;=;    A:CONST;0;I\10C_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001
1 0.0 Work 19 I -1 221, 289
$CALCULATE    A:CONST;50;I\R50_QTY    A:DIV;I\R50_AMT;I\R50_QTY;I\R50_QTY;#0.00    A:VAR;I\R50_AMT;I\R50_AMT;;#0.00    A:RIGHT;I\R50_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\R50_QTY      D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    DOEND(01)    A:VAR;I\R50_QTY;I\R50_QTY;;#0    I:I\R50_
1 0.0 Work 3 I -1 111, 433
  
1 0.0 Work 2 I 0 231, 565
  
1 0.0 Work 1 I 0 741, 145
  
1 0.0 Work 14 I -1 111, 325
$CALCULATE    A:CONST;20;I\R20_AMT  A:MULT;I\R20_QTY;I\R20_AMT;I\R20_AMT;#0.00    I:I\R20_QTY;=;    A:CONST;0;I\R20_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001)    O:DISABLEINPUT;C\PR
1 0.0 Work 7 I -1 461, 253
$CALCULATE    A:CONST;1;I\R1_AMT  A:MULT;I\R1_QTY;I\R1_AMT;I\R1_AMT;#0.00    I:I\R1_QTY;=;    A:CONST;0;I\R1_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001)    O:DISABLEINPUT;C\PRINT    
1 0.0 I 0 711, 97
  
1 0.0 Work 1 I 0 721, 181
  
1 0.0 Work 1 I 0 701, 145
  
1 0.0 Work 3 I -1 111, 85
$VALIDATE  M:  F:CASH_MAST;Y;CSH_CASHIER;I\ACCNO=CSH_DEBTOR,T\CSH_DESC=CSH_DESC;;I\CSH_CASHIER    
1 0.0 Work 1 I 0 131, 565
  
1 0.0 Work 1 I 0 331, 565
  
1 0.0 Work 1 I 0 31, 565
  
1 0.0 Work 18 I -1 221, 253
$CALCULATE    A:CONST;100;I\R100_QTY    A:DIV;I\R100_AMT;I\R100_QTY;I\R100_QTY;#0.00    A:VAR;I\R100_AMT;I\R100_AMT;;#0.00    A:RIGHT;I\R100_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\R100_QTY      D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    DOEND(01)    A:VAR;I\R100_QTY;I\R100_QTY;;#0 
1 0.0 Work 12 I -1 111, 253
$CALCULATE    A:CONST;100;I\R100_AMT  A:MULT;I\R100_QTY;I\R100_AMT;I\R100_AMT;#0.00    I:I\R100_QTY;=;    A:CONST;0;I\R100_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001)    O:DISABLEINP
1 0.0 Work 6 I -1 461, 217
$CALCULATE    A:CONST;2;I\R2_AMT  A:MULT;I\R2_QTY;I\R2_AMT;I\R2_AMT;#0.00    I:I\R2_QTY;=;    A:CONST;0;I\R2_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001)    O:DISABLEINPUT;C\PRINT    
1 0.0 Work 1 I -1 291, 157
  
1 0.0 Work 13 I -1 111, 289
$CALCULATE    A:CONST;50;I\R50_AMT  A:MULT;I\R50_QTY;I\R50_AMT;I\R50_AMT;#0.00    I:I\R50_QTY;=;    A:CONST;0;I\R50_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001)    O:DISABLEINPUT;C\PR
1 0.0 Work 9 I -1 461, 325
$CALCULATE    A:CONST;0.20;I\20C_AMT  A:MULT;I\20C_QTY;I\20C_AMT;I\20C_AMT;#0.00    I:I\20C_QTY;=;    A:CONST;0;I\20C_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001)    O:DISABLEINPUT;C\
1 0.0 H -1 0, 30
  
1 0.0 Work 22 I -1 221, 397
$CALCULATE    A:CONST;5;I\R5_QTY    A:DIV;I\R5_AMT;I\R5_QTY;I\R5_QTY;#0.00    A:VAR;I\R5_AMT;I\R5_AMT;;#0.00    A:RIGHT;I\R5_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\R5_QTY      D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    DOEND(01)    A:VAR;I\R5_QTY;I\R5_QTY;;#0    I:I\R5_AMT;<;0  D:A
1 0.0 Label 4 T -1 61, 253
  
1 0.0 Label 8 T -1 61, 397
  
1 0.0 Label 3 T -1 11, 121
  
1 0.0 Label 23 T -1 411, 217
  
1 0.0 Work 3 I 0 741, 121
  
1 0.0 Work 20 I -1 221, 325
$CALCULATE    A:CONST;20;I\R20_QTY    A:DIV;I\R20_AMT;I\R20_QTY;I\R20_QTY;#0.00    A:VAR;I\R20_AMT;I\R20_AMT;;#0.00    A:RIGHT;I\R20_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\R20_QTY      D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    DOEND(01)    A:VAR;I\R20_QTY;I\R20_QTY;;#0    I:I\R20_
1 0.0 Work 21 I -1 221, 361
$CALCULATE    A:CONST;10;I\R10_QTY    A:DIV;I\R10_AMT;I\R10_QTY;I\R10_QTY;#0.00    A:VAR;I\R10_AMT;I\R10_AMT;;#0.00    A:RIGHT;I\R10_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\R10_QTY      D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    DOEND(01)    A:VAR;I\R10_QTY;I\R10_QTY;;#0    I:I\R10_
1 0.0 Work 8 I -1 461, 289
$CALCULATE    A:CONST;0.50;I\50C_AMT  A:MULT;I\50C_QTY;I\50C_AMT;I\50C_AMT;#0.00    I:I\50C_QTY;=;    A:CONST;0;I\50C_QTY    A:ADD;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT;I\TOTAL;;#0.00    I:I\TOTAL;>;W\TOTAL;NUM  DO(001)    O:DISABLEINPUT;C\
1 0.0 Work 6 I 0 681, 145
  
1 0.0 Work 1 I 0 771, 121
  
1 0.0 Label 6 T -1 61, 325
  
1 0.0 Label 9 T -1 111, 193
  
1 0.0 Label 10 T -1 221, 193
  
1 0.0 Label 4 T -1 411, 361
  
1 0.0 Label 2 T -1 571, 193
  
1 0.0 Label 1 T -1 461, 193
  
1 0.0 Label 3 T -1 411, 325
  
1 0.0 Label 1 T -1 411, 253
  
1 0.0 Label 13 T -1 621, 25
  
1 0.0 Label 5 T 0 631, 97
  
1 0.0 Label 14 T -1 671, 25
  
1 0.0 Label 5 T -1 61, 289
  
1 0.0 Label 1 T -1 221, 157
  
1 0.0 Label 2 T 0 471, 469
  
1 0.0 Label 3 T -1 251, 469
  
1 0.0 Label 1 T -1 31, 469
  
1 0.0 Label 3 T -1 181, 85
  
1 0.0 Label 1 T -1 421, 121
  
1 0.0 Work 2 I -1 521, 121
$VALIDATE  O:SETFOCUS;I\R200_AMT
1 0.0 Work 1 I -1 291, 121
$SELECT  S:CSH_BAL_INVOICE;I\TAX_INV;I\CSH_CASHIER;I\CPO_CASHPT;I\PAY_DATE2      $VALIDATE  M:  O:ENABLEINPUT;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\R10_AMT,I\R5_AMT,I\R2_AMT,I\R1_AMT,I\50C_AMT,I\20C_AMT,I\10C_AMT,I\5C_AMT  F:CASH_DENOMINATION;Y;;I\R200_AMT=CD_AMT_REC_R200,I\R100_AMT=CD_AMT_REC_R100,I\R50_AMT=CD_A
1 0.0 Label 2 T -1 181, 121
  
1 0.0 Work 5 I -1 111, 157
$VALIDATE    I:I\PAY_DATE;<>;  A:VAR;I\PAY_DATE;I\PAY_DATE2;;YYYY/MM/DD  O:SETFOCUS;I\TAX_INV
1 0.0 Work 4 I 0 721, 205
  
1 0.0 Label 1 T -1 11, 157
  
1 0.0 Work 1 I 0 681, 169
  
1 1.0 Work 17 I -1 571, 397
$CALCULATE    A:VAR;I\5C_AMT;I\5C_AMT;;#0.00    I:I\5C_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\5C_AMT    A:CONST;0.05;I\5C_QTY    A:DIV;I\5C_AMT;I\5C_QTY;I\5C_QTY;#0.00    A:VAR;I\5C_AMT;I\5C_AMT;;#0.00    A:RIGHT;I\5C_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\5C_QTY      
1 1.0 Work 15 I -1 571, 325
$CALCULATE  A:VAR;I\20C_AMT;I\20C_AMT;;#0.00    I:I\20C_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\20C_AMT    A:CONST;0.20;I\20C_QTY    A:DIV;I\20C_AMT;I\20C_QTY;I\20C_QTY;#0.00    A:VAR;I\20C_AMT;I\20C_AMT;;#0.00    A:RIGHT;I\20C_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\20C
1 1.0 Work 13 I -1 571, 253
$CALCULATE  A:VAR;I\1_AMT;I\1_AMT;;#0.00    A:CONST;1;I\R1_QTY    A:DIV;I\R1_AMT;I\R1_QTY;I\R1_QTY;#0.00    A:VAR;I\R1_AMT;I\R1_AMT;;#0.00    A:RIGHT;I\R1_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\R1_QTY      D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    DOEND(01)    A:VAR;I\R1_QTY;I\R1_
1 1.0 Work 12 I -1 571, 217
$CALCULATE    A:CONST;2;I\R2_QTY    A:DIV;I\R2_AMT;I\R2_QTY;I\R2_QTY;#0.00    A:VAR;I\R2_AMT;I\R2_AMT;;#0.00    A:RIGHT;I\R2_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\R2_QTY      D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    DOEND(01)    A:VAR;I\R2_QTY;I\R2_QTY;;#0    I:I\R2_AMT;<;0  D:A
1 1.0 Work 16 I -1 571, 361
$CALCULATE    A:VAR;I\10C_AMT;I\10C_AMT;;#0.00    I:I\10C_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\10C_AMT    A:CONST;0.10;I\10C_QTY    A:DIV;I\10C_AMT;I\10C_QTY;I\10C_QTY;#0.00    A:VAR;I\10C_AMT;I\10C_AMT;;#0.00    A:RIGHT;I\10C_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\1
1 1.0 Work 14 I -1 571, 289
$CALCULATE  A:VAR;I\50C_AMT;I\50C_AMT;;#0.00    I:I\50C_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\50C_AMT    A:CONST;0.50;I\50C_QTY    A:DIV;I\50C_AMT;I\50C_QTY;I\50C_QTY;#0.00    A:VAR;I\50C_AMT;I\50C_AMT;;#0.00    A:RIGHT;I\50C_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    DO(01)      A:CONST;;I\50C
1 2.0 Work 5 I -1 571, 469
$CALCULATE    A:ADD;I\TOTAL,I\CHEQUES,I\MINI_ATM;I\GRAND_TOT;;#0.00    A:VAR;I\MINI_ATM;I\MINI_ATM;;#0.00    A:CONST;;I\INVALID_PASSWORD,I\EXIT
1 2.0 Work 6 I -1 351, 469
$CALCULATE  A:CONST;;I\INVALID_PASSWORD,I\EXIT  A:ADD;I\TOTAL,I\CHEQUES,I\MINI_ATM,I\PICKUP;I\GRAND_TOT;;#0.00  A:VAR;W\TOTAL;I\SYSTEM_TOT;;#0.00  A:SUB;I\GRAND_TOT;I\TOT_DIFF;I\SYSTEM_TOT;#0.00  A:VAR;I\PICKUP;I\PICKUP;;#0.00    I:I\TOT_DIFF;=;0;NUM  DO(P)    O:DISABLEINPUT;I\R200_AMT,I\R100_AMT,I\R50_AMT,I\R20_AMT,I\
1 2.0 Work 4 I -1 111, 469
$CALCULATE    A:ADD;I\TOTAL,I\CHEQUES;I\GRAND_TOT;;#0.00  A:VAR;I\CHEQUES;I\CHEQUES;;#0.00    A:CONST;;I\INVALID_PASSWORD,I\EXIT    
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30
$EXIT    'CHANGED BY JD 20140324 -> EXIT WAS CAUSING AN ERROR BECAUSE IT TRIED TO CLEAR DOCKET NUMBERS IN A NON-EXISTENT GRID  ''U:LOAD_DATA;EXIT_CLICKED  U:EXIT_CHEQUE;EXIT    'D:;TERMINATE
10 0.0 ZX_UPDATE Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30