Program drill-down
CASHIER_BAL_DENOM
CASHIER BALANCING DENOMINATION. Type DSP, base table DEBTOR_MAST.
Field inventory
95
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 7 | T | -1 | 61, 325 | ||
| 1 | 0.0 | Label 6 | T | -1 | 61, 289 | ||
| 1 | 0.0 | Label 9 | T | -1 | 111, 145 | ||
| 1 | 0.0 | Label 10 | T | -1 | 221, 145 | ||
| 1 | 0.0 | Label 4 | T | -1 | 411, 325 | ||
| 1 | 0.0 | Label 2 | T | -1 | 571, 145 | ||
| 1 | 0.0 | Label 1 | T | -1 | 461, 145 | ||
| 1 | 0.0 | Label 3 | T | -1 | 411, 289 | ||
| 1 | 0.0 | Label 3 | T | -1 | 221, 97 | ||
| 1 | 0.0 | Label 4 | T | -1 | 61, 217 | ||
| 1 | 0.0 | Label 8 | T | -1 | 61, 361 | ||
| 1 | 0.0 | Label 23 | T | -1 | 411, 181 | ||
| 1 | 0.0 | Work 15 | I | -1 | 111, 325 | $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 | 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 3 | T | -1 | 61, 181 | ||
| 1 | 0.0 | Label 11 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 4 | T | 0 | 1, 493 | ||
| 1 | 0.0 | Label 5 | T | -1 | 411, 361 | ||
| 1 | 0.0 | Label 4 | T | -1 | 11, 97 | ||
| 1 | 0.0 | Label 1 | T | -1 | 411, 217 | ||
| 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, 253 | ||
| 1 | 0.0 | Label 1 | T | -1 | 461, 97 | ||
| 1 | 0.0 | Label 2 | T | -1 | 361, 445 | ||
| 1 | 0.0 | Label 2 | T | -1 | 411, 253 | ||
| 1 | 0.0 | Label 2 | T | 0 | 431, 469 | ||
| 1 | 0.0 | Label 16 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 591, 421 | ||
| 1 | 0.0 | Label 7 | T | 0 | 11, 517 | ||
| 1 | 0.0 | Label 8 | T | 0 | 251, 505 | ||
| 1 | 0.0 | Label 9 | T | 0 | 491, 505 | ||
| 1 | 0.0 | Work 10 | I | 0 | 111, 517 | $CALCULATE A:VAR;I\GRAND_TOT;I\GRAND_TOT;;#0.00 |
|
| 1 | 0.0 | Work 11 | I | 0 | 351, 505 | ||
| 1 | 0.0 | Work 12 | I | 0 | 581, 505 | $CALCULATE A:VAR;I\TOT_DIFF;I\TOT_DIFF;;#0.00 |
|
| 1 | 0.0 | Work 1 | I | 0 | 361, 133 | ||
| 1 | 0.0 | Work 1 | I | 0 | 701, 145 | ||
| 1 | 0.0 | Work 2 | I | 0 | 711, 121 | ||
| 1 | 0.0 | Work 3 | I | 0 | 741, 121 | ||
| 1 | 0.0 | Work 7 | I | -1 | 461, 217 | $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 9 | I | -1 | 461, 289 | $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 | Work 6 | I | -1 | 461, 181 | $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 16 | I | -1 | 111, 361 | $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 3 | I | -1 | 111, 97 | ||
| 1 | 0.0 | Work 13 | I | -1 | 111, 253 | $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 1 | I | -1 | 571, 97 | ||
| 1 | 0.0 | Work 12 | I | -1 | 111, 217 | $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 8 | I | -1 | 461, 253 | $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 21 | I | -1 | 221, 325 | $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 20 | I | -1 | 221, 289 | $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 19 | I | -1 | 221, 253 | $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 10 | I | -1 | 461, 325 | $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 1 | I | 0 | 681, 121 | ||
| 1 | 0.0 | Work 11 | I | -1 | 461, 361 | $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 7 | I | 0 | 11, 61 | $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:CONST;0.00;I\MINI_ATM A:CONST;1;I\NO_PRTS A:NODEC O:HIDE;I\TOTAL |
|
| 1 | 0.0 | Work 11 | I | -1 | 111, 181 | $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 17 | I | 0 | 41, 61 | $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 17 | I | -1 | 221, 181 | $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 8 | I | -1 | 321, 97 | $DEFAULT A:PARM;1;I\CPO_CASHPT A:PARM;2;I\CSH_CASHIER A:PARM;3;W\TOTAL A:PARM;4;I\DM_DEBTOR '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 'CHANGE CAPTION OF THE UPDATE BUTTON O: |
|
| 1 | 0.0 | Work 18 | I | -1 | 221, 217 | $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 1 | I | 0 | 31, 565 | ||
| 1 | 0.0 | Work 1 | I | 0 | 331, 565 | ||
| 1 | 0.0 | Work 1 | I | 0 | 131, 565 | ||
| 1 | 0.0 | H | -1 | 0, 30 | |||
| 1 | 0.0 | Work 22 | I | -1 | 221, 361 | $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 | CMD 1 | C | -1 | 653, 546 | $SELECT I:I\CONF_GRNDTOT;<>;Y O:SETFOCUS;I\R200_AMT I:I\CONF_GRNDTOT;=;Y DO(CON) I:I\TOT_DIFF;<>;0;NUM DO(SUPER) U:CASHIER_BAL_DENOM;CALL_SUPERVISOR I:I\CONF_GRNDTOT;<>;Y O:SETFOCUS;I\R200_AMT I:I\CONF_GRNDTOT;=;Y U:CASHIER_BAL_DENOM;AUTHORIZE I:I\INVALID_PA |
|
| 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, 121 | ||
| 1 | 0.0 | Work 3 | I | 0 | 101, 493 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 145 | ||
| 1 | 0.0 | Work 1 | I | 0 | 741, 145 | ||
| 1 | 0.0 | Work 14 | I | -1 | 111, 289 | $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 1 | I | 0 | 511, 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 | Label 3 | T | -1 | 31, 445 | ||
| 1 | 0.0 | Label 1 | T | -1 | 31, 409 | ||
| 1 | 1.0 | Work 4 | I | -1 | 111, 409 | $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 |
|
| 1 | 1.0 | Work 6 | I | -1 | 111, 445 | $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 A:CONST;SURPLUS;I\DIFF_STATUS I:I\TOT_DIFF;<;0;NUM A:CONST;DEFIC |
|
| 1 | 1.0 | Work 12 | I | -1 | 571, 181 | $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 17 | I | -1 | 571, 361 | $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 16 | I | -1 | 571, 325 | $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, 253 | $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 | 1.0 | Work 13 | I | -1 | 571, 217 | $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 15 | I | -1 | 571, 289 | $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 | 2.0 | Work 1 | I | -1 | 461, 445 | $VALIDATE I:I\INVALID_PASSWORD;=;Y DO(1) D:INVALID PASSWORD;ERROR;I\PICKUP O:SETFOCUS;I\PICKUP DOEND(1) O:SETFOCUS;C\PRINT O:BACKCOLOR;C\PRINT;YELLOW O:ENABLEINPUT;C\PRINT |
|
| 1 | 2.0 | Work 5 | I | 0 | 531, 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 |
|
| 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 |