CHEP_BUY_RET_MAN

$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW      $SELECT    F:CLIENT_MAST;;;I\PROH=CM_PROHIBIT_SALES,I\PROHIBIT_AGENT_SALES=CM_PROHIBIT_AGENT_SALES;CM_CODE='$I\MARKET$';  I:I\PROH;=;Y  D:SALES ARE CURRENTLY PROHIBITED;ERRORM;I\PT_DEBTOR    '========================================================  'ADDED BY MOMZ AND SIYA 

$SELECT  I:I\MARKET;<>;23  DO(OTHER)  I:I\AGENT;=;  S:PAL_DOCNO1;;I\PT_DEBTOR    I:I\AGENT;<>;  S:PAL_DOCNO2;;I\MARKETI\AGENT;I\PT_DEBTOR  DOEND(OTHER)

$VALIDATE  M:    F:CLIENT_MAST;;;I\PROH=CM_PROHIBIT_SALES,I\PROHIBIT_AGENT_SALES=CM_PROHIBIT_AGENT_SALES;CM_CODE='$I\MARKET$';  I:I\PROH;=;Y  D:SALES ARE CURRENTLY PROHIBITED;ERRORM;I\PT_DEBTOR    F:DEBTOR_MAST;Y;;T\PT_DEBTOR2=DM_NAME,I\PT_DEBTOR=DM_DEBTOR,I\CHEP_CASH_BUYER=DM_CHEP_CASH_BUYER,I\UNREG=DM_SC_UNSEC;DM_DEB

$SELECT  S:PAL_DOCNO1;;I\PT_DEBTOR    $VALIDATE  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,W\TODAY_DIFF    'MAKE THIS FIELD MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'VALIDATE DOCKET NUMBER  F:PALL_TRANS;Y;;W\SM_DDATE=

$CALCULATE  M:    I:I\PT_TRDTE;<>;    DO(DIFF)            'JD WHILE GOING LIVE ON EL!!!!!!!!!!!!!!!!!!!!!!!!!!!!      A:CONST;Y;I\VALIDATED      'JD WHILE GOING LIVE ON EL!!!!!!!!!!!!!!!!!!!!!!!!!!!!        'GET THE DATE DIFF      A:DATEDIFF;I\PT_TRDTE;W\DIFF;I\DDTE            I:W\DIFF;<;0      D:DATE RETURNED CANNOT B

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

$VALIDATE    'DISPLAY GRID DATA  I:I\LINE;<>;  U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LINE        'CHECK THIS PALLET IS A CHEP PALLET IF PRETORIA  I:I\MARKET;IN;11,18  DO(PMA)    I:I\PT_PALL;<>;    DO(H2N)     F:PALL_MAST;;;I\CHEP=PM_TYPE;PM_PALL='$I\PT_PALL$'     I:I\CHEP;<>;01     D:MAY ONLY RETURN CHEP PALLETS HERE;

$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

$DEFAULT  A:CONST;P;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    

$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          'GETS USERID                 1  A:USERID;;W\USERID    'GETS USER'S IP ADDRESS1     2  F:ZU_USER;;;W\USER_IP=ZU_LOCAL_IP;ZU_USERID='$W\USERID$'    'GETS C

$CALCULATE  'MAKE THIS FIELD MANDATORY  M:      I:W\CM_PALL_SCAN;=;1  U:VALIDATE_PREAMBLE;VALIDATE;I\DEBTOR,I\TMP4    I:I\TMP4;=;2  D:ERROR - INVALID BUYER NUMBER;ERRORM;I\PT_DOCNO    I:I\TMP4;<>;2    DO(PRE)      I:I\PT_DEBTOR;<>;I\DEBTOR       DO(3)         D:ERROR - BUYER NUMBERS DO NOT MATCH;ERRORM;I\PT_DOCNO      

$SVAR_FOCUS  U:EXIT_SCREEN