Freshmark replication server

freshmark-canonical

Program drill-down

BUYER_PALL_REF_MAN

BUYER PALLET REFUND. Type MAN, base table PALL_TRANS.

Field inventory

63

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 DELDATE I 0 561, 253
  
1 0.0 H -1 0, 0
  
1 0.0 PALL_TRANS PT_DOCNO I 0 21, 109
$VALIDATE  M:  C:UCASE    '===LOOK UP ALL INFO ON SPECIFIED RECNO======================================================================================================  'F:PALL_TRANS;Y;;I\TRDATE=PT_TRDTE,I\PT_DEBTOR=PT_DEBTOR,I\ORIG_DOC=PT_ORIG_DOC,I\AGENT=PT_OWNER,I\CONSIGN=PT_CONSIGN,I\DELDATE=PT_DELDATE;PT_DOCNO='$I
1 0.0 PALL_TRANS PT_RETNO T -1 231, 109
  
1 0.0 PALL_TRANS PT_DOCNO T 0 31, 145
  
1 0.0 Label 2 T -1 511, 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 311, 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 231, 145
  
1 0.0 AGENT I -1 371, 145
  
1 0.0 Label 12 T -1 511, 145
  
1 0.0 Label 13 T -1 231, 181
  
1 0.0 CONSIGN I -1 371, 181
  
1 0.0 PALL_TRANS PT_DEBTOR T -1 231, 217
  
1 0.0 PALL_TRANS PT_DEBTOR I -1 371, 217
$VALIDATE  M:  C:UCASE    $CALCULATE  M:  C:UCASE    A:CONST;;I\ERROR    '===VALIDATE PREAMBLE========================================================================================================================  'I:I\TMP1;<>;1  'U:VALIDATE_PREAMBLE;VALIDATE;I\PT_DEBTOR,I\TMP2  'I:I\TMP2;=;2  'D:INVALID PREAMBLE;ERR
1 0.0 CP I 0 11, 205
  
1 0.0 GP I 0 11, 229
  
1 0.0 Label 17 T -1 511, 217
  
1 0.0 Label 19 T -1 231, 385
  
1 0.0 Label 20 T -1 231, 361
  
1 0.0 Label 21 T -1 231, 337
  
1 0.0 Label 22 T -1 231, 313
  
1 0.0 Label 23 T -1 231, 289
  
1 0.0 Work 24 I -1 371, 289
  
1 0.0 Work 25 I -1 371, 313
  
1 0.0 Work 26 I -1 371, 337
  
1 0.0 Work 27 I -1 371, 361
  
1 0.0 Work 28 I -1 371, 385
  
1 0.0 Work 29 I 0 81, 61
$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 61, 61
$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    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'JD CHECK  2010/02/15  F:CLIENT_MAST;;;I\PALL_PROHIBIT=CM_PROHIBIT_PALL_CA_RTN;CM_CODE = '$I\MARKET$'  I:I\PALL_PROHIBIT;=;Y  DO(
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:BUYER_PALLET_REFUND;BUTTON_CAPTION  O:HIDEUPDATE    A:SETPWFIELD;I\PT_DEBTOR
1 0.0 Label 34 T -1 111, 445
  
1 0.0 Work 35 I -1 371, 445
  
1 0.0 Work 37 I 0 31, 541
  
1 0.0 DTYPE I 0 661, 217
  
1 0.0 Work 38 I 0 121, 61
  
1 0.0 Work 39 I 0 101, 61
  
1 0.0 Label 43 T 0 691, 133
  
1 0.0 Label 44 T 0 691, 109
  
1 0.0 Work 41 I 0 661, 181
  
1 0.0 Work 42 I 0 651, 109
  
1 0.0 Work 40 I 0 671, 109
  
1 0.0 Work 45 I 0 51, 541
  
1 0.0 Work 46 I 0 691, 529
$BEFORE_WRITE    U:BUYER_PALLET_REFUND;UPDATE_TABLES
1 0.0 SP I 0 11, 181
  
1 0.0 PALL_PROHIBIT I 0 581, 529
  
1 0.0 PALL_TRANS PT_RETNO I -1 371, 109
$VALIDATE  M:  C:UCASE    '===LOOK UP ALL INFO ON SPECIFIED RECNO======================================================================================================  'F:PALL_TRANS;Y;;I\TRDATE=PT_TRDTE,I\PT_DEBTOR=PT_DEBTOR,I\ORIG_DOC=PT_ORIG_DOC,I\AGENT=PT_OWNER,I\CONSIGN=PT_CONSIGN,I\DELDATE=PT_DELDATE;PT_DOCNO='$I
1 0.0 ERROR I 0 361, 493
  
1 0.0 Work 3 I 0 621, 397
  
1 0.0 Work 2 I 0 601, 397
  
1 0.0 Label 1 T -1 561, 289
  
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
  
10 0.0 ZX_EXIT Z 0 0, 0