Freshmark replication server

freshmark-canonical

Program drill-down

CASH_BALANCING_MAN

CASH BALANCING DENOMINATION. Type MAN, base table DEBTOR_MAST.

Field inventory

93

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 3 T -1 51, 229
  
1 0.0 Label 11 T -1 291, 25
  
1 0.0 Label 4 T -1 51, 457
  
1 0.0 Label 5 T -1 401, 409
  
1 0.0 Label 23 T -1 401, 229
  
1 0.0 Label 8 T -1 51, 409
  
1 0.0 CMD 1 C 0 611, 517
$SELECT  'U:SAVE_CASH_DENOMS;STORE_TOTAL    'CREATES A PRINTOUT OF THE CASH BALANCING SCREEN  'E:$GBLROOT$\LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_CASH_BALANCING;$I\CPO_CASHPT$,$I\CSH_CASHIER$,$I\TOTAL_CASH_RECEIVED$,$I\R200_QTY$,$I\R200_AMT$,$I\R100_QTY$,$I\R100_AMT$,$I\R50_QTY$,$I\R50_AMT$,$I\R20_QTY$,$I\R20_AM
1 0.0 H -1 0, 30
  
1 0.0 Work 1 I 0 681, 97
  
1 0.0 Label 10 T -1 1, 25
  
1 0.0 Label 12 T -1 271, 49
  
1 0.0 Label 15 T -1 621, 49
  
1 0.0 Label 4 T -1 11, 121
  
1 0.0 Work 1 I -1 391, 121
$CALCULATE  'I:I\MARKET;<>;17  O:SETFOCUS;I\TOTAL_CASH_RECEIVED    'I:I\MARKET;=;17  'O:SETFOCUS;T\CONFIRMED
1 0.0 Work 1 I 0 51, 193
  
1 0.0 Work 3 I -1 111, 121
  
1 0.0 Work 3 I 0 411, 457
  
1 0.0 Work 1 I 0 681, 97
  
1 0.0 Work 4 I -1 281, 85
  
1 0.0 Work 1 I 0 491, 457
  
1 0.0 Work 2 I 0 601, 457
  
1 0.0 Label 16 T -1 671, 49
  
1 0.0 Label 2 T -1 401, 301
  
1 0.0 Work 4 I 0 301, 493
  
1 0.0 Work 1 I 0 681, 121
  
1 0.0 Work 17 I 0 261, 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    A:PARM;1;I\CPO_CASHPT    A:PARM;2;I\CSH_CASHIER    A:PARM;3;I\PAYMENT_METHOD    A:PARM;4;W\TOTAL    A:PARM;5;I\DM_DEBTOR    A:PARM;6;
1 0.0 Work 5 I 0 491, 493
  
1 0.0 Label 1 T -1 221, 85
  
1 0.0 Label 2 T -1 11, 157
  
1 0.0 Work 7 I 0 221, 49
$DEFAULT  'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:NODEC
1 0.0 Work 3 I -1 111, 157
  
1 0.0 Work 1 I 0 401, 493
  
1 0.0 Work 1 I -1 391, 157
$EXIT  U:EXIT_CHEQUE;EXIT    $SVAR_FOCUS  U:CATCHCHARS;TRUE    $CALCULATE    I:I\MARKET;=;15  DO(0)    A:VAR;W\TMP_TND;W\TOTAL;;#0.00    A:VAR;I\TOTAL_CASH_RECEIVED;W\TOTAL;;#0.00    A:CONST;;I\CHANGE_DENOM,I\CHANGE_TENDERED  DOEND(0)    I:I\TOTAL_CASH_RECEIVED;<;W\TOTAL;NUM  D:TOTAL CASH RECEIVED CAN NOT BE LESS THAN 
1 0.0 Work 1 I 0 711, 145
  
1 0.0 Work 6 I 0 681, 145
  
1 0.0 Work 1 I 0 771, 145
  
1 0.0 Work 3 I -1 111, 457
  
1 0.0 Work 8 I -1 111, 85
'$DEFAULT    'A:PARM;1;I\CPO_CASHPT    'A:PARM;2;I\CSH_CASHIER    'A:PARM;3;I\PAYMENT_METHOD    'A:PARM;4;W\TOTAL    'A:PARM;5;I\DM_DEBTOR    'A:PARM;6;I\CODEFLD    'GET MARKET  'A:ORG;;W\MARKET    'PUTS PIC ON THE PRINT BUTTON  'O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\INK_JET.ICO;C\PRINT    'DISABLE THE PRINT BUTTON  
1 0.0 Work 2 I 0 221, 73
  
1 0.0 Work 1 I 0 301, 457
  
1 0.0 Work 2 I 0 711, 121
  
1 0.0 Work 3 I 0 741, 121
  
1 0.0 I 0 681, 157
  
1 0.0 Work 1 I 0 681, 97
  
1 0.0 Work 1 I 0 681, 97
  
1 0.0 Work 11 I -1 111, 229
$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    
1 0.0 Label 4 T -1 51, 265
  
1 0.0 Label 3 T -1 11, 85
  
1 0.0 Label 7 T -1 51, 373
  
1 0.0 Label 6 T -1 51, 337
  
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 401, 373
  
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 401, 337
  
1 0.0 Label 1 T -1 401, 265
  
1 0.0 Label 13 T -1 621, 25
  
1 0.0 Label 5 T -1 221, 157
  
1 0.0 Label 14 T -1 671, 25
  
1 0.0 Label 5 T -1 51, 301
  
1 0.0 Label 1 T -1 221, 121
  
1 0.0 Label 1 T -1 371, 85
  
1 0.0 Label 2 T 0 621, 145
  
1 0.0 Work 3 I 0 621, 121
$CALCULATE  V:Y;N    I:I\CONFIRMED;=;Y  O:SETFOCUS;I\TOTAL_CASH_RECEIVED    I:I\CONFIRMED;=;N  O:SETFOCUS;W\TOTAL
1 1.0 Work 12 I -1 111, 265
$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  
1 2.0 Work 13 I -1 111, 301
$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    
1 3.0 Work 14 I -1 111, 337
$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
1 4.0 Work 15 I -1 111, 373
$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
1 5.0 Work 16 I -1 111, 409
$CALCULATE    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
1 6.0 Work 6 I -1 461, 229
$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
1 7.0 Work 7 I -1 461, 265
$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
1 8.0 Work 8 I -1 461, 301
$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
1 9.0 Work 9 I -1 461, 337
$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
1 10.0 Work 10 I -1 461, 373
$CALCULATE    A:CONST;0.10;I\10C_AMT  A:MULT;I\10C_QTY;I\10C_AMT;I\10C_AMT;#0.00    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
1 11.0 Work 11 I -1 461, 409
$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  'A:SUB;I\TOTAL;I\VAL_AMT;I\CHANGE;;#0.00    I:I\TOTAL;<>;W\TOTA
1 12.0 Work 17 I -1 221, 229
$CALCULATE    A:CONST;200;I\R200_QTY    A:MOD;I\R200_AMT;W\TMP;I\R200_QTY    A:DIV;I\R200_AMT;I\R200_QTY;I\R200_QTY;#0.00    A:ABS;I\R200_QTY;I\R200_QTY    I:W\TMP;=;Y    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\R200_AMT;I\R200_AMT;;#0.00  I:I\R200_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\R200_AMT 
1 13.0 Work 18 I -1 221, 265
$CALCULATE    A:CONST;100;I\R100_QTY    A:MOD;I\R100_AMT;W\TMP;I\R100_QTY    A:DIV;I\R100_AMT;I\R100_QTY;I\R100_QTY;#0.00    A:ABS;I\R100_QTY;I\R100_QTY    I:W\TMP;=;Y    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\R100_AMT;I\R100_AMT;;#0.00  I:I\R100_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\R100_AMT 
1 14.0 Work 19 I -1 221, 301
$CALCULATE    A:CONST;50;I\R50_QTY    A:MOD;I\R50_AMT;W\TMP;I\R50_QTY    A:DIV;I\R50_AMT;I\R50_QTY;I\R50_QTY;#0.00    A:ABS;I\R50_QTY;I\R50_QTY    I:W\TMP;=;Y    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\R50_AMT;I\R50_AMT;;#0.00  I:I\R50_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\R50_AMT    A:ADD;I\R2
1 15.0 Work 20 I -1 221, 337
$CALCULATE    A:CONST;20;I\R20_QTY    A:MOD;I\R20_AMT;W\TMP;I\R20_QTY    A:DIV;I\R20_AMT;I\R20_QTY;I\R20_QTY;#0.00    A:ABS;I\R20_QTY;I\R20_QTY    I:W\TMP;=;Y    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\R20_AMT;I\R20_AMT;;#0.00  I:I\R20_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\R20_AMT    A:ADD;I\R2
1 16.0 Work 21 I -1 221, 373
$CALCULATE    A:CONST;10;I\R10_QTY    A:MOD;I\R10_AMT;W\TMP;I\R10_QTY    A:DIV;I\R10_AMT;I\R10_QTY;I\R10_QTY;#0.00    A:ABS;I\R10_QTY;I\R10_QTY    I:W\TMP;=;Y    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\R10_AMT;I\R10_AMT;;#0.00  I:I\R10_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\R10_AMT    A:ADD;I\R2
1 17.0 Work 22 I -1 221, 409
$CALCULATE    A:CONST;5;I\R5_QTY    A:MOD;I\R5_AMT;W\TMP;I\R5_QTY    A:DIV;I\R5_AMT;I\R5_QTY;I\R5_QTY;#0.00    A:ABS;I\R5_QTY;I\R5_QTY    I:W\TMP;=;Y    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\R5_AMT;I\R5_AMT;;#0.00  I:I\R5_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\R5_AMT    A:ADD;I\R200_AMT,I\R100
1 18.0 Work 12 I -1 571, 229
$CALCULATE    A:CONST;2;I\R2_QTY    A:MOD;I\R2_AMT;W\TMP;I\R2_QTY    A:DIV;I\R2_AMT;I\R2_QTY;I\R2_QTY;#0.00    A:ABS;I\R2_QTY;I\R2_QTY    I:W\TMP;=;Y    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\R2_AMT;I\R2_AMT;;#0.00  I:I\R2_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\R2_AMT    A:ADD;I\R200_AMT,I\R100
1 19.0 Work 13 I -1 571, 265
$CALCULATE    A:CONST;1;I\R1_QTY    A:MOD;I\R1_AMT;W\TMP;I\R1_QTY    A:DIV;I\R1_AMT;I\R1_QTY;I\R1_QTY;#0.00    A:ABS;I\R1_QTY;I\R1_QTY    I:W\TMP;=;Y    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\R1_AMT;I\R1_AMT;;#0.00  I:I\R1_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;ERRORM;I\R1_AMT    A:ADD;I\R200_AMT,I\R100
1 20.0 Work 14 I -1 571, 301
$CALCULATE    A:CONST;0.50;I\50C_QTY    A:DIV;I\50C_AMT;I\50C_QTY;I\50C_QTY;#0.00  'A:DIV;I\50C_AMT;I\50C_QTY;I\50C_QTY;#0    I:I\50C_QTY;=;0.00;NUM  'I:I\50C_QTY;=;0;NUM    A:CONST;0;I\50C_QTY    A:RIGHT;I\50C_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\50C_
1 21.0 Work 15 I -1 571, 337
$CALCULATE    A:CONST;0.20;I\20C_QTY    A:DIV;I\20C_AMT;I\20C_QTY;I\20C_QTY;#0.00    I:I\20C_QTY;=;0.00;NUM    A:CONST;0;I\20C_QTY    A:RIGHT;I\20C_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\20C_AMT;I\20C_AMT;;#0.00  I:I\20C_AMT;<;0  D:AMOUNT CANNOT BE LESS 
1 22.0 Work 16 I -1 571, 373
$CALCULATE    A:CONST;0.10;I\10C_QTY    A:DIV;I\10C_AMT;I\10C_QTY;I\10C_QTY;#0.00    I:I\10C_QTY;=;0.00;NUM    A:CONST;0;I\10C_QTY    A:RIGHT;I\10C_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\10C_AMT;I\10C_AMT;;#0.00  I:I\10C_AMT;<;0  D:AMOUNT CANNOT BE LESS 
1 23.0 Work 17 I -1 571, 409
$CALCULATE    A:CONST;0.05;I\5C_QTY    A:DIV;I\5C_AMT;I\5C_QTY;I\5C_QTY;#0.00    I:I\5C_QTY;=;0.00;NUM    A:CONST;0;I\5C_QTY    A:RIGHT;I\5C_QTY,2;I\DECIMAL_VALUE    I:I\DECIMAL_VALUE;>;0;NUM    D:AMOUNT DOES NOT DIVIDE EQUALLY;ERRORM    A:VAR;I\5C_AMT;I\5C_AMT;;#0.00  I:I\5C_AMT;<;0  D:AMOUNT CANNOT BE LESS THAN ZERO;
10 0.0 ZX_DELETE Z 0 0, 30
  
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
$UPDATE    I:I\MARKET;<>;15  DO(99)    I:W\TOTAL;<>;I\VAL_AMT    DO(20)      I:I\TOTAL;<>;I\TOTAL_CASH_RECEIVED;NUM      DO(001)        I:I\PAYMENT_METHOD;=;CN        DO(9)          O:DISABLEINPUT;C\PRINT          D:TOTAL AMOUNT AND TOTAL CASH RECEIVED ARE NOT EQUAL;ERRORM;I\5C_QTY        DOEND(9)          I:I\PAYMENT_