Freshmark replication server

freshmark-canonical

Program drill-down

LATE_RET_CANCELING

LATE RETURN - CANCELLATION. Type DSP, 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 Mode I 0 61, 61
$DEFAULT  A:PARM;1;I\MODE      I:I\MODE;=;P  A:CONST;BUYER PALLET RETURN TO POOL;T\HEADING    I:I\MODE;=;A  A:CONST;BUYER PALLET RETURN TO AGENT;T\HEADING    
1 0.0 AGENT I 0 81, 61
$DEFAULT  A:ORGS;;I\AGENT      'GET USERNAME  A:USERNAME;;I\USER    'GET USER IP  A:USERIP;;I\IP    F:AGENT_MAST;;AM_CODE;W\AM_OWN_PALL_POOL=AM_OWN_PALL_POOL      
1 0.0 CMD 3 C -1 651, 545
$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW      $SELECT  'UPDATE RECORDS    I:I\PT_DOCNO;=;    D:DOCKET IS BLANK;ERRORM;I\PT_DOCNO    'UPDATE TABLES AND PRINT A RETURN NOTE  U:LATE_RETURN_CANCELLATION;SAVE_DATA    'INITIALIZE THE GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\PT_PALL,I\SQTY,I\PT_DEPOSIT,I\PT_DEPOSIT_VAT,
1 0.0 PERIOD I 0 491, 301
  
1 0.0 PALL_TRANS PT_DEBTOR I -1 381, 157
  
1 0.0 PALL_MAST PM_USAGE I 0 571, 301
  
1 0.0 PALL_TRANS PT_CONSIGN I -1 191, 157
  
1 0.0 Label 17 T -1 671, 49
  
1 0.0 Label 10 T -1 483, 157
  
1 0.0 H -1 1, 61
  
1 0.0 Label 8 T -1 291, 25
  
1 0.0 Label 18 T -1 321, 253
  
1 0.0 Label 16 T -1 671, 25
  
1 0.0 PALL_TRANS PT_DOCNO I -1 191, 121
    $CALCULATE  A:CONST;;I\LINE,I\PT_PALL,I\SQTY,I\PT_DEPOSIT,I\PT_DEPOSIT_VAT,I\PT_TRQTY,I\PT_TRDTE,I\PM_USAGE,I\PERIOD,I\PT_USAGE_FEE,I\PT_USAGE_VAT  'MAKE THIS FIELD MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE        'VALIDATE DOCKET NUMBER  '''''''F:PALL_TRANS;Y;;I\DELIND=PT_DELIND,W\PAID=PT_PAID;PT_DOCNO='$I\P
1 0.0 Label 15 T -1 621, 49
  
1 0.0 Label 14 T -1 621, 25
  
1 0.0 Label 9 T -1 41, 253
  
1 0.0 Label 20 T -1 41, 157
  
1 0.0 Label 24 T -1 91, 253
  
1 0.0 Label 34 T -1 41, 121
  
1 0.0 Label 3 T -1 191, 277
  
1 0.0 Label 8 T -1 41, 217
  
1 0.0 PALL_TRANS PT_DEPOSIT I 0 191, 301
  
1 0.0 Label 7 T -1 41, 277
  
1 0.0 Label 16 T -1 281, 277
  
1 0.0 PALL_TRANS PT_TRDTE I 0 387, 301
  
1 0.0 Label 3 T -1 301, 157
  
1 0.0 Label 55 T -1 1, 25
  
1 0.0 Label 5 T -1 41, 193
  
1 0.0 PALL_TRANS PT_TRQTY I 0 321, 301
$CALCULATE    I:I\PT_TRQTY;=;0;NUM  D:RETURNED QUANTITY MUST BE GREATER THAN ZERO;ERRORM;I\PT_TRQTY    ''CHECK IF RETURNED QTY IS GREATER THAN SOLD QTY                  THIS CHECK COMMENTED BY LP20100126 ON JANET'S REQUEST   'I:I\PT_TRQTY;>;I\SQTY  'D:RETURNED QUANTITY CANNOT BE GREATER THAN THE SOLD QUANTITY;ERRORM;I\
1 0.0 Label 13 T -1 321, 276
  
1 0.0 Label 14 T -1 386, 276
  
1 0.0 Label 15 T -1 387, 252
  
1 0.0 Label 16 T -1 571, 277
  
1 0.0 SOLD QTY I 0 91, 301
  
1 0.0 Label 18 T -1 491, 277
  
1 0.0 Label 20 T -1 621, 277
  
1 0.0 Label 22 T -1 691, 277
  
1 0.0 PALL_TRANS PT_PALL I 0 41, 301
  
1 0.0 PALL_TRANS PT_DEPOSIT_VAT I 0 261, 301
  
1 0.0 PALL_TRANS PT_USAGE_FEE I 0 621, 301
  
1 0.0 PALL_TRANS PT_USAGE_VAT I 0 691, 301
  
1 0.0 DDTE I -1 191, 193
  
1 0.0 DTIME I -1 191, 217
  
1 0.0 GRID G -1 41, 313
  
1 0.0 Label 1 T -1 91, 277
  
1 0.0 HEADING T -1 241, 49
  
1 0.0 I MARKET I 0 21, 61
$DEFAULT    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE    'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    'LOAD MARKET PARAMENTER  F:CLI
1 0.0 Work 1 I 0 291, 121
  
1 0.0 Label 4 T 0 323, 241
  
1 0.0 Label 5 T 0 403, 250
  
1 0.0 USER_IP I 0 151, 61
  
1 0.0 USERID I 0 131, 61
  
1 0.0 TEMP 3 I 0 501, 253
  
1 0.0 QTY RETURNED I 0 521, 252
  
1 0.0 Label 2 T -1 141, 253
  
1 0.0 QTY AVAIL I 0 141, 301
  
1 0.0 Label 3 T -1 141, 277
  
1 0.0 DELIND I 0 751, 217
  
10 0.0 ZX_SELECT Z 0 1, 61
  
10 0.0 ZX_PRINT Z 0 1, 61
  
10 0.0 ZX_EXIT Z 0 1, 61
  
10 0.0 ZX_UPDATE Z 0 1, 61
  
10 0.0 ZX_DELETE Z 0 1, 61