Freshmark replication server

freshmark-canonical

Program drill-down

BUYER_PALL_REF_CAN

BUYER PALLET REFUND CANCELLATION. Type UPD, base table PALL_TRANS.

Field inventory

64

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 PALL_PROHIBIT I 0 271, 553
  
1 0.0 PALL_TRANS PT_DOCNO I -1 231, 109
$SELECT  S:RECNO_PAL_REFUND;I\PT_DOCNO    $VALIDATE  M:  C:UCASE    '===LOOK UP ALL INFO ON SPECIFIED RECNO======================================================================================================  'F:PALL_TRANS;Y;;I\TRDATE=PT_TRDTE,I\BUYER_CODE_CHECK=PT_DEBTOR,I\PT_DEBTOR=PT_DEBTOR,I\ORIG_DOC=PT_ORIG_DOC,
1 0.0 PALL_TRANS PT_DOCNO T -1 101, 109
  
1 0.0 Label 2 T -1 491, 109
  
1 0.0 Label 3 T -1 1, 25
  
1 0.0 Label 4 T -1 301, 25
  
1 0.0 Label 5 T -1 281, 49
  
1 0.0 Label 6 T -1 621, 25
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 8 T -1 671, 25
  
1 0.0 Label 9 T -1 671, 49
  
1 0.0 Label 10 T -1 101, 145
  
1 0.0 AGENT I -1 231, 145
  
1 0.0 Label 12 T -1 291, 145
  
1 0.0 Label 13 T -1 101, 181
  
1 0.0 CONSIGN I -1 231, 181
  
1 0.0 PALL_TRANS PT_DEBTOR T -1 101, 229
  
1 0.0 PALL_TRANS PT_DEBTOR I -1 231, 229
$VALIDATE  M:  C:UCASE    $CALCULATE  M:  C:UCASE    '===VALIDATE PREAMBLE========================================================================================================================  I:I\CM_BUYPROT;=;1;NUM  DO(001)    I:I\TMP1;<>;1      U:VALIDATE_PREAMBLE;VALIDATE;I\PT_DEBTOR,I\TMP2    I:I\TMP2;=;2      D
1 0.0 Work 1 I -1 231, 265
'SELECT CASH POINT FROM SELECTION WINDOW  $SELECT  S:CASHIER_CODE;I\TRANSFER_TO_CASHIER    'SET THIS MANDATORY  $CALCULATE  M:  C:UCASE    A:CONST;;T\TRANSFER_TO_CASHIER    'LOOK UP FOR AN EXISTING CASHIER CODE OTHERWISE DISPLAY ERROR MESSAGE  F:CASH_MAST;Y;CSH_CASHIER;T\TRANSFER_TO_CASHIER=CSH_DESC;;I\TRANSFER_TO_CASH
1 0.0 Label 2 T -1 101, 265
  
1 0.0 CMD 3 C -1 291, 265
'SELECT CASH POINT FROM SELECTION WINDOW  $SELECT  S:CASHIER_CODE;I\TRANSFER_TO_CASHIER
1 0.0 Label 4 T -1 331, 265
  
1 0.0 Label 17 T -1 301, 229
  
1 0.0 Work 18 G -1 101, 337
  
1 0.0 Label 19 T -1 491, 313
  
1 0.0 Label 20 T -1 391, 313
  
1 0.0 Label 21 T -1 291, 313
  
1 0.0 Label 22 T -1 211, 313
  
1 0.0 Label 23 T -1 101, 313
  
1 0.0 Work 24 I 0 101, 337
  
1 0.0 Work 25 I 0 211, 337
  
1 0.0 Work 26 I 0 291, 337
  
1 0.0 Work 27 I 0 391, 337
  
1 0.0 Work 28 I 0 491, 337
  
1 0.0 Work 29 I 0 61, 85
$DEFAULT  A:USERIP;;I\IP    F:CASH_POINT;;;I\CASHPOINT=CPO_CASHPT;CPO_IP='$I\IP$'  F:CASH_MAST;;;I\CASHIER=CSH_DESC;CSH_CASHIER='$I\USERID$'
1 0.0 Work 30 I 0 21, 145
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 31 I 0 21, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_BUYPROT=CM_BUYPROT    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'F:CLIENT_MAST;;;I\TMP1=CM_PALL_SCAN;CM_CODE='$I\MARKET$'  I:I\TMP1;=;1  O:DISABLEINPUT;I\PT_DEBTOR    'JD
1 0.0 H -1 0, 0
  
1 0.0 Work 32 I 0 41, 61
$DEFAULT  A:ORGS;;I\ORGS    
1 0.0 Work 33 I 0 1, 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    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\PALL,I\QTY,I\DEPOSIT,I\USAGE,I\AMT_REF,I\REF_AMT:H,I\REF_VAT:H  U:BUYER_PALLET_REFUND;BUTTON_CAPTION    'SETS THE DEBTOR FIELD TO A PASSWORD
1 0.0 Label 34 T -1 321, 493
  
1 0.0 Work 35 I -1 541, 493
  
1 0.0 Work 37 I 0 31, 541
  
1 0.0 DTYPE I 0 601, 229
  
1 0.0 Work 38 I 0 101, 85
  
1 0.0 Work 39 I 0 81, 85
  
1 0.0 Label 43 T 0 591, 109
  
1 0.0 Label 44 T 0 391, 109
  
1 0.0 Work 41 I 0 381, 85
  
1 0.0 Work 42 I 0 401, 85
  
1 0.0 Work 40 I 0 361, 85
  
1 0.0 Work 45 I 0 51, 541
  
1 0.0 Work 47 I 0 641, 337
  
1 0.0 Work 48 I 0 641, 361
  
1 0.0 CMD 1 C -1 361, 109
$SELECT  S:RECNO_PAL_REFUND;I\PT_DOCNO
1 0.0 Work 1 I 0 121, 61
  
1 0.0 Work 2 I 0 631, 229
  
1 0.0 Work 29 I 0 61, 85
$DEFAULT  A:USERIP;;I\IP    F:CASH_POINT;;;I\CASHPOINT=CPO_CASHPT;CPO_IP='$I\IP$'  F:CASH_MAST;;;I\CASHIER=CSH_DESC;CSH_CASHIER='$I\USERID$'
1 0.0 Work 5 I 0 21, 169
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
$BEFORE_WRITE  I:I\PALL_PROHIBIT;=;Y  DO(MAX)    O:DISABLEINPUT;I\PT_DOCNO,C\1,Z\ZX_UPDATE    D:PALLET RETURNS ARE CURRENTLY PROHIBITED;ERRORM;Z\ZX_EXIT  DOEND(MAX)    U:BUYER_PALL_REF_CAN;BUYER_PALL_REF_CAN_SAVE_DATA
10 0.0 ZX_EXIT Z 0 0, 0