Freshmark replication server

freshmark-canonical

Program drill-down

AGN_PALL_POOL_RET

AGENT RETURN TO POOL. Type DSP, base table STK_DETS.

Field inventory

75

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 QTY_REC I 0 461, 289
  
1 0.0 PREV_QTY_RET I 0 581, 289
  
1 0.0 QTY_RET I -1 711, 289
'O:SETFOCUS;Z\ZX_UPDATE
1 0.0 QTY_AVAIL I -1 651, 289
  
1 0.0 QTY_SOLD I 0 521, 289
  
1 0.0 Work 5 I 0 401, 493
  
1 0.0 Work 1 I 0 381, 493
  
1 0.0 Work 2 I 0 361, 493
  
1 0.0 DELDATE I 0 671, 133
  
1 0.0 Work 1 I 0 371, 457
  
1 0.0 Work 2 I 0 331, 457
  
1 0.0 Work 3 I 0 61, 553
  
1 0.0 Work 2 I 0 461, 133
  
1 0.0 QTYSD T 0 711, 193
  
1 0.0 Label 19 T 0 591, 517
  
1 0.0 Label 51 T -1 261, 169
  
1 0.0 QTYRC T 0 711, 169
  
1 0.0 PREV_QTY_RET T 0 741, 217
  
1 0.0 TEST I 0 681, 193
  
1 0.0 FINPDTE I 0 561, 157
  
1 0.0 Check 18 K 0 541, 517
  
1 0.0 CODE T -1 71, 265
  
1 0.0 PALLC T -1 71, 241
  
1 0.0 Label 23 T -1 121, 265
  
1 0.0 T -1 271, 265
  
1 0.0 PALLT T -1 271, 241
  
1 0.0 DESC2 T -1 321, 265
  
1 0.0 SOLD T 0 741, 193
  
1 0.0 Label 3 T 0 351, 109
  
1 0.0 QTYAV T -1 671, 241
  
1 0.0 AVAIL T -1 671, 265
  
1 0.0 Label 4 T -1 351, 133
  
1 0.0 PREV T 0 681, 217
  
1 0.0 Label 20 T -1 31, 265
  
1 0.0 Label 14 T -1 671, 49
  
1 0.0 QTYRT T -1 731, 241
  
1 0.0 Label 13 T -1 621, 49
  
1 0.0 STK_DETS SD_AGENT T -1 41, 133
  
1 0.0 PREVQTYR T 0 711, 217
  
1 0.0 RET T -1 731, 265
  
1 0.0 Label 12 T -1 671, 25
  
1 0.0 Label 11 T -1 621, 25
  
1 0.0 MARKET T -1 1, 25
  
1 0.0 FRESHMARK T -1 291, 25
  
1 0.0 Label 10 T -1 281, 49
  
1 0.0 T -1 41, 169
  
1 0.0 REC T 0 741, 169
  
1 0.0 I -1 181, 169
$SELECT    S:PALLET_CODE;I\PALLET    $CALCULATE    M:  C:UCASE      F:PALL_MAST;;;T\PALLET_DESC=PM_DESC;PM_PALL = '$I\PALLET$';I\PALLET        U:U_AGN_PALL_POOL_RETURNS;POPULATE_GRID    U:U_AGN_PALL_POOL_RETURNS;NO_RECORDS    O:SETFOCUS;I\SEQ
1 0.0 Work 3 I 0 91, 61
$DEFAULT  A:USERIP;;I\IP  
1 0.0 Work 6 I 0 31, 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    F:CLIENT_MAST;;;I\AGN_SMAN_SEC=CM_PALL_SECT;CM_CODE='$I\MARKET$'
1 0.0 Work 7 I 0 11, 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\SEQ,I\PALLCODE,I\DESC1,I\PALLTYPE,I\DESC2,I\QTY_REC,I\QTY_SOLD,I\PREV_QTY_RET,I\QTY_AVAIL,I\QTY_RET,I\TEST:H  'U:ZZGRID_SPLIT;INIT_GRID
1 0.0 Work 4 I 0 71, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 5 I 0 51, 61
$DEFAULT  A:ORGS;;I\ORGS    ''''F:AGENT_MAST;;;I\DEL_LEN=AM_DEL_LEN,I\AGN_POOL=AM_OWN_PALL_POOL;AM_CODE='$I\ORGS$'  ''''F:CLIENT_MAST;;;I\MARKET_POOL=CM_CENTRAL_PALL;CM_CODE='$I\MARKET$'    ''''I:I\MARKET_POOL;=;0  ''''DO(DQ)  ''''  I:I\ORGS;=;  ''''  DO(PI)  ''''    O:HIDEUPDATE  ''''    O:SHOW;T\MARK_MAY  ''''  DOEND
1 0.0 Work 1 I 0 21, 553
  
1 0.0 SEQ I -1 31, 289
$CALCULATE    I:I\SEQ;<>;+  DO(TEE)    I:I\SEQ;<>;    DO(GET)       I:I\SEQ;<>;      U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\SEQ    DOEND(GET)    O:SETFOCUS;I\QTY_RET
1 0.0 Work 40 I -1 71, 289
  
1 0.0 Work 41 I -1 121, 289
  
1 0.0 PALLTYPE I -1 271, 289
  
1 0.0 DESC2 I -1 321, 289
  
1 0.0 Work 1 I 0 491, 457
  
1 0.0 STK_DETS SD_AGENT I -1 181, 133
$SELECT    S:AGENT_CODE;I\SD_AGENT    $CALCULATE    M:  C:UCASE    ''''F:CLIENT_MAST;;;I\DEL_LEN1=CM_DEL_LEN;CM_CODE='$I\MARKET$'    A:ADD;"2";I\DEL_LEN1;I\DEL_LEN1  A:VAR;I\DELDATE;I\DELDATE;;YYYY/MM/DD      '''F:PALL_DETS;Y;;I\DELDATE=PD_DATE;PD_CONSIGN='$I\SD_CONSIGN$' AND PD_RECQTY-PD_SLDQTY-PD_DISQTY-PD_PROVQ-PD_R
1 0.0 Work 2 I 0 41, 553
  
1 0.0 Work 1 I 0 181, 133
''''$BEFORE_WRITE  'U:AGN_PALL_RETURNS;GRID_BLANKS  ''''U:AGN_PALL_POOL_RETURNS;UPDATE_TABLES
1 0.0 Work 1 I 0 171, 469
  
1 0.0 Work 1 I 0 491, 121
  
1 0.0 H -1 0, 0
  
1 0.0 CMD 17 C -1 311, 133
$SELECT  'WITH QTY AVAIL ONLY  '''S:CONSIGN_NO_PALL;I\SD_CONSIGN;I\ORGS    'FOR ALL THINGS  S:AGENT_CODE;I\SD_AGENT
1 0.0 Work 15 G -1 31, 313
$GRID_VALIDATE  U:AGN_PALL_POOL_RETURNS;GRID_KEY_3    $GRID_ENTERCELL  I:I\TMP2;=;N  U:AGN_PALL_POOL_RETURNS;GRID_KEY_4  D:ENTER THE QTY OF PALLETS RETURNED, PRESS TAB TO MOVE TO PROCESS OR EXIT;;G\GRID    $GRID_LEAVECELL  D:ENTER THE QTY OF PALLETS RETURNED, PRESS TAB TO MOVE TO PROCESS OR EXIT;;G\GRID    $GRID_ESC  O
1 0.0 CMD 1 C -1 231, 169
$SELECT    S:PALLET_CODE;I\PALLET  
1 0.0 CMD 1 C -1 651, 553
$SELECT  'U:AGN_PALL_RETURNS;GRID_BLANKS  U:U_AGN_PALL_POOL_RETURNS;UPDATE_TABLES    O:SETFOCUS;I\SD_AGENT
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