Freshmark replication server

freshmark-canonical

Program drill-down

CASH_PAYMENTS_MAN

CASH PAYMENTS. Type MAN, base table DEBTOR_MAST.

Field inventory

41

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 15 T -1 621, 49
  
1 0.0 Work 3 I -1 111, 121
  
1 0.0 Label 9 T -1 391, 205
  
1 0.0 I -1 351, 205
  
1 0.0 DEBTOR_MAST DM_GROUP T -1 301, 205
  
1 0.0 Label 4 T -1 11, 121
  
1 0.0 Work 17 I 0 261, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET NAME AND ROUNDING  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\ROUNDING=CM_ROUND    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    
1 0.0 Work 1 I -1 371, 385
  
1 0.0 Label 7 T -1 241, 169
  
1 0.0 Label 5 T -1 211, 313
  
1 0.0 Work 1 I 0 291, 73
  
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    'CHANGE CAPTION OF THE BUTTON  O:CAPTION_UPD;PROCESS    A:NODEC
1 0.0 Label 6 T -1 211, 349
  
1 0.0 Label 7 T -1 211, 385
  
1 0.0 DEBTOR_MAST DM_DEBTOR I -1 111, 169
  
1 0.0 Label 11 T -1 291, 25
  
1 0.0 Label 10 T -1 1, 25
  
1 0.0 Work 1 I -1 371, 313
'ROUNDING THE TOTAL  'A:ROUND;I\TOTAL,0.05,0;I\TOTAL;;#0.00  A:ROUND;I\TOTAL,0.05,I\ROUNDING;I\TOTAL;;#0.00  U:DIGITAL_DISPLAY;TOTAL;I\TOTAL
1 0.0 Work 2 I 0 111, 241
  
1 0.0 Work 2 I -1 371, 349
$ESC  U:EXIT_CHEQUE;EXIT    $SVAR_FOCUS  U:CATCHCHARS;TRUE    '$CALCULATE    $VALIDATE    U:CATCHCHARS;FALSE  '$DEFAULT    A:SUB;I\AMT_TENDERED;I\CHANGE;I\TOTAL;#0.00    I:I\AMT_TENDERED;<;I\TOTAL;NUM  DO(001)    A:VAR;I\AMT_TENDERED;I\AMT_TENDERED;;#0.00    D:AMOUNT TENDERED CAN NOT BE LESS THAN THE TOTAL;ERRORM;I\AMT
1 0.0 Work 1 I 0 521, 241
  
1 0.0 Label 3 T -1 11, 97
  
1 0.0 Label 12 T -1 311, 49
  
1 0.0 TEST I 0 591, 481
$SVAR_FOCUS  O:SETFOCUS;I\AMT_TENDERED
1 0.0 CMD 1 C 0 591, 457
  
1 0.0 Label 16 T -1 671, 49
  
1 0.0 Work 8 I -1 111, 97
$DEFAULT  A:ORG;;I\MARKET    'CASHPOINT PARAMETER  A:PARM;1;I\CPO_CASHPT    'CASHIER PARAMETER  A:PARM;2;I\CSH_CASHIER    'DEBTOR PARAMETER  A:PARM;3;I\DM_DEBTOR    A:PARM;4;I\TOTAL    A:PARM;5;W\AMOUNT  A:PARM;6;I\PARM  A:PARM;6;I\CODEFLD    I:W\AMOUNT;<>;-99  DO(001)    A:PARM;5;I\AMT_TENDERED    A:PARM;5;I\AMT_TENDE
1 0.0 Label 14 T -1 671, 25
  
1 0.0 I -1 111, 205
  
1 0.0 H -1 0, 30
  
1 0.0 Label 13 T -1 621, 25
  
1 0.0 Label 6 T -1 11, 205
  
1 0.0 Label 5 T -1 11, 169
  
1 0.0 Work 1 I 0 521, 277
  
1 0.0 Work 2 I 0 401, 493
  
1 0.0 CODEFLD I 0 621, 277
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30
$EXIT  U:EXIT_CHEQUE;EXIT
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_UPDATE Z -1 0, 30
$UPDATE    'WRITES TEXT FILE WITH A "Y". THE PROCESS BUTTON HAS BEEN CLICKED  'U:LOAD_DATA;WRITE_UPDATE_FILE;Y    A:SUB;I\AMT_TENDERED;I\CHANGE;I\TOTAL;#0.00    I:I\AMT_TENDERED;<;I\TOTAL;NUM  DO(001)    A:VAR;I\AMT_TENDERED;I\AMT_TENDERED;;#0.00    D:AMOUNT TENDERED CAN NOT BE LESS THAN THE TOTAL;ERRORM;I\AMT_TENDERED