Freshmark replication server

freshmark-canonical

Program drill-down

FAMERS_CASHIER_TRANS

FAMERS PAYMENT SCREEN. Type DSP, base table DEBTOR_TRANS.

Field inventory

54

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 2 I 0 61, 85
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 291, 49
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 621, 49
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Label 7 T -1 671, 25
  
1 0.0 Label 8 T -1 81, 121
  
1 0.0 Label 9 T -1 361, 121
  
1 0.0 Label 10 T -1 351, 445
  
1 0.0 Label 11 T -1 351, 481
  
1 0.0 Label 12 T -1 351, 517
  
1 0.0 Work 13 I -1 241, 121
$VALIDATE  M:    A:VAR;I\PERMIT_NO;I\PERMIT_NO;;000000  F:FM_PERMIT_HOLDERS;;;I\PRODUCER=FM_SUPPL,T\PRODUCER_NAME=FM_SUPPL_NAME;FM_PERMITNO='$I\PERMIT_NO$';PERMIT_NO    I:T\PRODUCER_NAME;=;  D:PERMIT NUMBER DOES NOT EXIST;ERRORM;I\PERMIT_NO        F:FM_PED_MAST;Y;;I\TMP_RECEIPT=FM_PED_RECEIPT;FM_PED_PERMITNO='$I\PERMIT
1 0.0 Work 15 I -1 481, 445
  
1 0.0 Work 16 I -1 481, 481
$VALIDATE    I:I\TENDERED;<;I\AMOUNT_OWED;NUM  D:MAY NOT PAY LESS THAN AMOUNT DUE;ERRORM;I\TENDERED    I:I\TYPE;=;CH  DO(25)  I:I\TENDERED;>;I\AMOUNT_OWED;NUM  D:CHEQUE MAY NOT BE GREATER THAN AMOUNT DUE;ERRORM;I\TENDERED  DOEND(25)      I:I\TYPE;=;ET  DO(25)  I:I\TENDERED;>;I\AMOUNT_OWED;NUM  D:EFT MAY NOT BE GREATER 
1 0.0 Work 17 I -1 481, 517
  
1 0.0 CMD 18 C -1 651, 548
$SELECT  'U:PRINT_FARMERS;TEST  U:FARMERS_PAYMENT;UPDATE;G\GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\PED_P,I\DATE_D,I\TIME_T,I\VEHICLE,I\AMOUNT_A,I\CONFIRM  A:CONST;;I\PED_NUM,I\PRODUCER,T\PRODUCER_NAME,I\AMOUNT_OWED,I\TENDERED,I\CHANGE,W\PERMIT,D\PAYMENT_METHOD,I\REC_NO,I\PERMIT_NO,I\REC_NO  O:SETFOCUS;I\PERMIT_NO
1 0.0 Work 1 I 0 101, 85
  
1 0.0 Label 19 T 0 681, 109
  
1 0.0 Work 20 I 0 681, 109
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000  'GET THE USER ID OF THE LOGGED IN USER  A:USERID;;W\USERID  A:ORG;;I\MARKET    'GETS USER'S IP ADDRESS  'F:ZU_USER;;;W\USER_IP=ZU_LOCAL_IP;ZU_USERID='$W\USERID$'  A:USERIP;;I\IP    'GETS CASH POINT  F:CASH_POINT;;;I\DT_CASHPNT=CPO_CASHPT;CP
1 0.0 Label 21 T 0 681, 109
  
1 0.0 Work 22 I 0 681, 109
  
1 0.0 Work 24 I 0 1, 85
  
1 0.0 Work 25 I 0 21, 61
  
1 0.0 Work 26 I 0 21, 85
  
1 0.0 Work 27 I 0 41, 61
  
1 0.0 Work 28 I 0 41, 85
  
1 0.0 Label 4 T -1 81, 157
  
1 0.0 Drop 3 D -1 241, 157
$DEFAULT  B:ADDITEM;D\PAYMENT_METHOD;CASH PAYMENTS,CHEQUE PAYMENTS,ELECTRONIC FUNDS TRANSFER    $VALIDATE  C:UCASE    I:D\PAYMENT_METHOD;=;  A:CONST;CASH PAYMENTS;D\PAYMENT_METHOD    I:D\PAYMENT_METHOD;=;CASH PAYMENTS  A:CONST;CA;I\TYPE    I:D\PAYMENT_METHOD;=;CHEQUE PAYMENTS  A:CONST;CH;I\TYPE    I:D\PAYMENT_METHOD;=;
1 0.0 Label 1 T -1 481, 121
  
1 0.0 Work 9 I -1 181, 229
  
1 0.0 Work 10 I -1 281, 229
  
1 0.0 Work 11 I -1 381, 229
  
1 0.0 Work 12 I -1 481, 229
  
1 0.0 Work 23 I 0 1, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET      'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\NO_OF_RECEIPT=CM_FRM_PEDRECPT;    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE    U:ZZGRID_SPLIT;INIT_GRID;G\GRID
1 0.0 Label 7 T -1 181, 205
  
1 0.0 Work 1 I 0 61, 61
  
1 0.0 Label 4 T -1 381, 205
  
1 0.0 Label 5 T -1 481, 205
  
1 0.0 Label 6 T -1 581, 205
  
1 0.0 H -1 0, 0
  
1 0.0 Work 2 G -1 81, 229
  
1 0.0 Label 3 T -1 281, 205
  
1 0.0 Work 2 I 0 81, 85
  
1 0.0 Work 13 I -1 581, 229
  
1 0.0 Label 14 T -1 81, 205
  
1 0.0 Work 15 I -1 81, 229
  
1 0.0 Work 1 I 0 81, 61
  
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
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0