Freshmark replication server

freshmark-canonical

Program drill-down

TAG_MAN

ISSUE TO CASHIER. Type DSP, base table TAG_TRANS.

Field inventory

46

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 TAG_TRANS TT_DATE I 0 511, 265
  
1 0.0 TAG_TRANS TT_TIME I 0 511, 289
  
1 0.0 Label 7 T -1 621, 25
  
1 0.0 TAG_TRANS TT_CASHIER I -1 401, 109
'SELECT CASH POINT FROM SELECTION WINDOW  $SELECT  S:CASHIER_CODE;I\TT_CASHIER    'SET THIS MANDATORY  $VALIDATE  M:  C:UCASE    'CLEAR THSESE FIELDS BEFORE TAKING ANY ACTION  A:CONST;;T\CSH_DESC,I\ACCNO,T\ACCNO,I\FIND      'LOOK UP FOR AN EXISTING CASHIER CODE OTHERWISE DISPLAY ERROR MESSAGE  F:CASH_MAST;Y;;I\ACCNO=CS
1 0.0 Work 4 I 0 11, 73
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\MARKET$'    'LOAD MARKET CODE  F:CLIENT_MAST;;;I\CM_CODE=CM_CODE;CM_CODE='$I\MARKET$'        'CONVERT ONLY THE FIRST CHARACTER OF THE M
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 321, 49
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Label 8 T -1 671, 25
  
1 0.0 TAG_TRANS TT_CASHIER T -1 181, 109
  
1 0.0 Work 5 I 0 11, 109
  'O:CAPTION_UPD;UPDATE  
1 0.0 Label 3 T 0 181, 265
  
1 0.0 H -1 0, 0
  
1 0.0 Label 9 T -1 621, 49
  
1 0.0 Label 10 T -1 671, 49
  
1 0.0 CLIENT_MAST CM_CODE I 0 61, 73
  
1 0.0 TAG_TRANS TT_CASHPOINT I -1 401, 145
  
1 0.0 Label 1 T -1 181, 217
  
1 0.0 Label 2 T -1 181, 145
  
1 0.0 ISSUE QTY I -1 401, 217
$DEFAULT  A:USERID;;I\CM_USER    $VALIDATE  A:CONST;;I\CONTINUE    I:I\ISSUE_QTY;<>;  DO(01)   I:I\ISSUE_QTY;>;0    DO(001)     U:TAG_FUNCTIONS;CHECK_STOCK     I:I\CONTINUE;=;N      O:SETFOCUS;I\ISSUE_QTY     I:I\CONTINUE;=;Y      DO(CARRYON)       A:CONST;;I\CANCEL_QTY       O:DISABLEINPUT;I\CANCEL_QTY       O:SETFOCU
1 0.0 Label 2 T 0 181, 241
  
1 0.0 Work 1 I 0 41, 337
  
1 0.0 CANCEL ISSUE QTY I 0 401, 241
$VALIDATE  I:I\ISSUE_QTY;=;0  A:CONST;;I\ISSUE_QTY      I:I\ISSUE_QTY;<>;  DO(02)  I:I\CANCEL_QTY;<>;  D:ENTER ISSUE QTY OR CANCELLATION QTY NOT BOTH;ERRORM;I\CANCEL_QTY  DOEND(02)    'I:I\ISSUE_QTY;<>;0  'DO(03)  'I:I\CANCEL_QTY;<>;0  'D:ENTER ISSUE QTY OR CANCELLATION QTY NOT BOTH;ERRORM;I\CANCEL_QTY  ''O:DISABLEINPU
1 0.0 Work 1 I 0 641, 109
  
1 0.0 Work 2 I -1 401, 301
  
1 0.0 Label 2 T -1 181, 373
  
1 0.0 Label 3 T -1 181, 409
  
1 0.0 SOLD QTY I -1 401, 337
  
1 0.0 RET_QTY I -1 401, 373
  
1 0.0 AVAIL I -1 401, 409
  
1 0.0 Label 1 T -1 181, 337
  
1 0.0 CMD 7 C -1 501, 109
  
1 0.0 Label 8 T -1 531, 109
  
1 0.0 TAG_TRANS TT_QTY I 0 511, 217
  
1 0.0 Label 1 T -1 181, 301
  
1 0.0 TAG_TRANS TT_TYPE I 0 511, 241
  
1 0.0 CMD 7 C -1 651, 546
$SELECT    I:I\TT_CASHIER;=;  D:CASHIER IS A MANDATORY FIELD;ERRORM;I\TT_CASHIER      I:I\ISSUE_QTY;<>;  DO(02)  I:I\CANCEL_QTY;<>;  D:ENTER ISSUE QTY OR CANCELLATION QTY NOT BOTH;ERRORM;I\ISSUE_QTY  DOEND(02)      I:I\ISSUE_QTY;=;0  DO(04)  I:I\CANCEL_QTY;=;0  D:ENTER ISSUE QTY OR CANCELLATION QTY NOT BOTH;ERRORM;I\IS
1 0.0 Label 1 T -1 181, 181
  
1 0.0 Work 2 I -1 401, 181
$SELECT  'DISPLAY A SELECTION WINDOW  S:TAG_STOCK;TM_CODE    '$VALIDATE  $CALCULATE    M:  C:UCASE    'MAKE SURE THE TAG IS VALID AND DISPLAY THE TAG NAME  F:TAG_MAST;Y;TM_CODE;T\TM_DESC=TM_DESC;;TM_CODE    I:I\TM_CODE;=;TR  D:NOT ALLOWED TO USE THIS CODE;ERRORM;I\TM_CODE      U:TAG_FUNCTIONS;LOAD_TOTALS
1 0.0 Label 3 T -1 511, 181
  
1 0.0 Work 1 I 0 41, 373
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0