Freshmark replication server

freshmark-canonical

Program drill-down

CASHIER_TRANS_TYPE

A CASHIER TRANSACTION TYPE MAINT.. Type MDL, base table CASH_TRN_TYPE.

Field inventory

51

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 6 T 0 491, 145
  
1 0.0 Label 5 T 0 391, 145
  
1 0.0 Label 3 T -1 521, 145
  
1 0.0 CMD 3 C -1 61, 217
'SELECT TRANSACTION TYPE   $SELECT  S:TRANSACTION_TYPE;I\CTT_TRTYPE  
1 0.0 CMD 1 C -1 621, 217
$SELECT  S:PAYMENT_METHOD;I\CTT_PAYMETH;I\CTT_MARKET  
1 0.0 CASH_TRN_TYPE CTT_MARKET I 0 231, 127
  
1 0.0 Work 12 G -1 31, 241
  
1 0.0 Label 9 T -1 221, 49
  
1 0.0 CASH_TRN_TYPE CTT_DESC I -1 91, 217
$VALIDATE    A:VAR;I\MARKET;I\CTT_MARKET  C:UCASE    'CODE TO ENSURE THAT THE DESCRIPTION DOES NOT ALREADY EXIST IN THE GRID  'CLEAR FIELDS  A:CONST;;W\TEMP1  A:CONST;;W\TEMP2    'CHECK IF TYPE ALREADY EXISTS  U:PALLET_TYPE;CODE_CHECK;I\CTT_TRTYPE,G\GRIDM,W\TEMP1,I\CTT_DESC    I:W\TEMP1;=;N  U:PALLET_TYPE;DESC_CHECK;I\
1 0.0 Label 12 T -1 91, 193
  
1 0.0 Label 9 T -1 31, 169
  
1 0.0 Label 17 T -1 671, 25
  
1 0.0 Label 8 T -1 31, 193
  
1 0.0 H -1 1, 31
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 Label 14 T -1 621, 25
  
1 0.0 Label 15 T -1 621, 49
  
1 0.0 Label 16 T -1 671, 49
  
1 0.0 Label 1 T -1 391, 193
  
1 0.0 Label 2 T -1 451, 169
  
1 0.0 CASH_TRN_TYPE CTT_TRTYPE I -1 31, 217
'SELECT TRANSACTION TYPE  $SELECT  S:TRANSACTION_TYPE;I\CTT_TRTYPE    'CHANGE CASE TO UPPER CASE AND SET THIS FIELD MANDATORY  $VALIDATE  M:  C:UCASE    'LOOK UP FOR EXISTING TRANSACTION CODE,IF NOT FOUND DISPLAY ERROR MESSAGE  'F:CASH_TRN_TYPE;Y;CTT_TRTYPE;;;I\CTT_TRTYPE        
1 0.0 CASH_TRN_TYPE CTT_TAKTYP I -1 451, 217
$VALIDATE   'CONVERT TO UPPER CASE  C:UCASE    'IF BLANK DEFAULT TO 'N'  I:I\CTT_TAKTYP;=;  A:CONST;N;I\CTT_TAKTYP    'ONLY O AND N ALLOWED AS AN INPUT  V:O;N;  M:
1 0.0 CASH_TRN_TYPE CTT_SIGN I -1 731, 217
$VALIDATE  C:UCASE  'ONLY ALLOW P,N OR BLANK AS AN INPUT  V:P;N;    'IF BLANK DEFAULT TO 'N'  I:I\CTT_SIGN;=;  A:CONST;P;I\CTT_SIGN
1 0.0 Label 9 T -1 731, 169
  
1 0.0 CASH_TRN_TYPE CTT_PAYMETH I -1 591, 217
$SELECT  S:PAYMENT_METHOD;I\CTT_PAYMETH;I\MARKET      $VALIDATE  'M:  C:UCASE  I:I\CTT_PAYMETH;<>;  F:CASH_PAYMTHD;Y;;;CPM_PAYMETH='$I\CTT_PAYMETH$';I\CTT_PAYMETH    
1 0.0 Label 7 T -1 591, 193
  
1 0.0 Label 6 T -1 591, 169
  
1 0.0 CASH_TRN_TYPE CTT_SCVAL I -1 521, 217
$VALIDATE  'CHANGE CASE TO UPPER CASE   C:UCASE    'ONLY ALLOW SC OR BLANK   V:SC;  
1 0.0 Label 4 T -1 521, 169
  
1 0.0 Label 2 T -1 451, 193
  
1 0.0 Label 1 T -1 391, 169
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 521, 193
  
1 0.0 Label 3 T -1 591, 145
  
1 0.0 Label 4 T -1 731, 193
  
1 0.0 Label 3 T 0 591, 121
  
1 0.0 Label 4 T 0 31, 145
  
1 0.0 Work 2 I 0 11, 91
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000      U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\CTT_TRTYPE,I\CTT_DESC,I\CTT_SLSTYP,I\CTT_MARKET:H,I\CTT_TAKTYP,I\CTT_SCVAL,I\CTT_PAYMETH,I\CTT_VATCODE,I\CTT_SIGN  U:ZZGRID_SPLIT;DB_TO_GRID;G\GRIDM;CASH_TRN_TYPE      $BEFORE_DELETE      I:I\CTT_TRTYP
1 0.0 I 0 101, 55
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET      'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    
1 0.0 Label 7 T 0 731, 145
  
1 0.0 CASH_TRN_TYPE CTT_SLSTYP I -1 391, 217
$VALIDATE    'CAHNGE CASE TO UPPER CASE  C:UCASE    'IF BLANK DEFAULT TO 'N'  I:I\CTT_SLSTYP;=;  A:CONST;N;I\CTT_SLSTYP    'ONLY Y AND N ALLOWED AS AN INPUT  V:Y;N;  M:
1 0.0 Work 2 I 0 401, 457
  
1 0.0 Work 3 I 0 511, 457
  
1 0.0 CASH_TRN_TYPE CTT_VATCODE I -1 651, 217
'SELECT VAT CODE FROM VAT MAST TABLE  $SELECT  S:VAT_CODE;I\CTT_VATCODE    $VALIDATE  'MAKE THIS FIELD MANDATORY  M:  'LOOKUP FOR EXISTING VAT CODE FROM VAT MAST TABLE  F:VAT_MAST;Y;VT_CODE;;;I\CTT_VATCODE
1 0.0 Label 2 T -1 651, 193
  
1 0.0 CMD 3 C -1 701, 217
'SELECT VAT CODE FROM VAT MAST TABLE  $SELECT  S:VAT_CODE;I\CTT_VATCODE
10 0.0 ZX_PRINT Z 0 1, 31
  
10 0.0 ZX_UPDATE Z 0 1, 31
  
10 0.0 ZX_DELETE Z 0 1, 31
  
10 0.0 ZX_EXIT Z 0 1, 31
  
10 0.0 ZX_SELECT Z 0 1, 31