AGNPALL_POOL_RET_MAN

$BEFORE_WRITE  U:AGN_PALL_RETURNS;GRID_BLANKS  U:AGN_PALL_RETURNS;UPDATE_TABLES

$SELECT    'WITH QTY AVAIL ONLY  '''S:CONSIGN_NO_PALL;I\SD_CONSIGN;I\ORGS  I:I\MARKET;=;19  S:CONSIGN_NO_PALL_PMB;I\SD_CONSIGN;I\ORGS      'FOR ALL THINGS  I:I\MARKET;<>;19  S:CONSIGN_NO_PALL2;I\SD_CONSIGN;I\ORGS    $CALCULATE    M:  C:UCASE    'ZERO FILL  F:CLIENT_MAST;;;I\DEL_LEN1=CM_DEL_LEN;CM_CODE='$I\MARKET$'  A:A

$DEFAULT  A:USERIP;;I\IP  

$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$'

$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

$DEFAULT  A:USERID;;I\USERID

$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(PI)  DOEND(DQ)    I:I\AGN_POOL;=;1 

$GRID_VALIDATE  U:AGN_PALL_RETURNS;GRID_KEY_3    $GRID_ENTERCELL  I:I\TMP2;=;N  U:AGN_PALL_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:SETFOCUS;

$SELECT  'WITH QTY AVAIL ONLY  '''S:CONSIGN_NO_PALL;I\SD_CONSIGN;I\ORGS    'FOR ALL THINGS  S:CONSIGN_NO_PALL2;I\SD_CONSIGN;I\ORGS