GOODS_RECEPTION_DEL

  $SELECT    'SELECTION IF SALES SECTIONS NOT USED  I:I\SM_AGENT;<>;  DO(AGN)        'SELECT FOR AGENTS, AGENT SPECIFIC        I:I\SM_AGENT;<>;        S:DEL_NO_GOODS_MAN;I\SM_DELNO;I\SM_MARKET;I\SM_AGENT  DOEND(AGN)

$SELECT  S:SUPPLIER_CODE;I\SM_SUPP

$SELECT  S:AGENT_TYPE_DEL;I\SM_DELTYPE

$SELECT  S:AGENT_MAST_MKT;I\SM_AGENT;I\SM_MARKET

$SELECT  S:TRANSPORTER_MAST;I\SM_TRNPTR

$SELECT  S:AREA_CODE;I\SM_AREA

$SELECT  S:ITEM_SEL;I\SD_ITEM  A:SELPARM;2;I\TMP1  A:CON;I\SD_ITEM;I\SD_ITEM;I\TMP1

SELECT CONTAINER FROM SELECTION WINDOW  $SELECT  S:CONT_PR_NODEL;I\SD_CONT;I\PROD;I\VAR;I\SD_CLASS;I\SD_SIZE

$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:USERIP;;I\IP  A:USERID;;I\USER    'U:ZZGRID_SPLIT;INIT_GRID;G\MEMBERS;I\SP_SUPPL:H,I\SP_TYPE,I\SP_ACCNO,I\SP_DATE_JOINED  'U:ZZGRID_SPLIT;DB_TO_GRID;G\MEMBERS;SUPPL_PALL_ACC,SP_SUPPL='I\CP_SUPPLIER'    'INITIALIZE CONSIGNMENT GRID  U:ZZ

$SELECT  I:I\SM_SUPP;<>;  E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P SUPPL_PALL_ACC_MAN $I\SM_SUPP$ <ENTER>  'LOAD SUPPLIER MEMBER DETAILS  U:DELIVERY_MAN;MEMBERS;G\MEMBERS,I\SM_SUPP  O:SETFOCUS;I\SM_SUPP

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\SM_MARKET  A:ORGS;;I\ORGS      'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'LOAD OPTIONS FROM CLIENT_MAST  F:CLIENT_MAST;;;I\CM_DELSECT=CM_DELSECT,I\CM_CENTRAL

'I:I\SM_DELTYPE;<>;D  '  DO(NODUAL)  '    O:DISABLEINPUT;I\SM_DELTYPE  '    O:HIDE;C\SM_DELTYPE  '  DOEND(NODUAL)'    '  I:I\SM_DELTYPE;=;D  '  DO(DUAL)  '      O:ENABLEINPUT;I\SM_DELTYPE  '      O:SHOW;C\SM_DELTYPE  '      A:CONST;;I\SM_DELTYPE  '  DOEND(DUAL)

'THIS FIELD WAS ADDED BY JUSTIN ON 10/09/08 AT KASSIE'S REQUEST    

$SELECT  'DISPLAY A SELECTION WINDOW  S:GATE_REASON;I\REASON

$VALIDATE  I:I\SM_MARKET;=;11  O:SETFOCUS;I\REASON    I:I\SM_MARKET;<>;11  O:SETFOCUS;Z\ZX_UPDATE  

$DEFAULT  'GET THIS USERS AGENT CODE  'A:ORGS;;I\ORGS  A:ORGS  I:I\ORGS;<>;  O:SETFOCUS;I\SM_DELNO  'O:SETFOCUS;I\SM_DELTYPE    A:CONST;+;I\SDG_CONSIGN  'GET AGENTS NAME FROM AGENT_MAST AND DISABLE AGENT CODE INPUT  I:I\SM_AGENT;<>;  DO(001)    F:AGENT_MAST;;;T\AGENT_DESC=AM_NAME,I\AM_DELAUTO=AM_DELAUTO,W\SUPPLREFNO=AM

'$AFTER_READ  ''DEFAULT CURRENT DATE  'I:I\SM_DDATE;=;  'A:DATE;DD MMM YYYY;I\SM_DDATE  'I:I\SM_DATE;=;  'A:VAR;I\SM_DDATE;I\SM_DATE      '$VALIDATE  'I:I\SM_DDATE;=;  'A:DATE;DD MMM YYYY;I\SM_DDATE     'M:  'U:DATECHECKER;FUTURE;I\SM_DDATE    ''I:I\SM_DDATE  ''M:  

  $SELECT    'SELECTION IF SALES SECTIONS NOT USED  I:I\SM_AGENT;<>;  DO(AGN)        'SELECT FOR AGENTS, AGENT SPECIFIC        I:I\SM_AGENT;<>;        S:DEL_NO_GOODS_MAN;I\SM_DELNO;I\SM_MARKET;I\SM_AGENT  DOEND(AGN)        $VALIDATE  A:CONST;Y;I\MAN  M:    I:I\PROHIBIT_SALES;=;Y  D:YOU CAN'T CONTINUE DELIVERIES ARE PRO

'$SELECT  'S:AGENT_TYPE_DEL;I\SM_DELTYPE      '$VALIDATE    'C:UCASE  'F:AGENT_TYPE;Y;;T\TYPE_DESC=AT_DESC;AT_CODE='$I\SM_DELTYPE$' AND AT_CODE <> 'D';I\SM_DELTYPE  'C:MCASE;;T\TYPE_DESC      'O:SETFOCUS;I\SM_DDATE  ''O:SETFOCUS;I\SM_DELNO          '$ESC  'A:CONST;;I\SM_DELNO      $AFTER_READ    I:I\SM_DELTYPE;<>;  DO(

  '$AFTER_READ  ''DEFAULT CURRENT TIME  'I:I\SM_DTIME;=;  'A:TIME;HH:MM;I\SM_DTIME  'I:I\SM_TIME;=;  'A:VAR;I\SM_DTIME;I\SM_TIME    '$VALIDATE  'I:I\SM_DTIME;=;  'A:TIME;HH:MM;I\SM_DTIME  'M:    ''CHECK THAT THE THIRD DIGIT IS A ":"  'A:MID;I\SM_DTIME,3,1;I\TMP1    'I:I\TMP1;<>;:  '  D:ENTER IN FORMAT 00:00;ERRORM;I\SM

  $DEFAULT  'SET SUPPLIER REF NUMBER LENGTH  'A:CONST;16;I\TMP1  'A:FIELDLEN;I\TMP1;I\SM_REFNO      $VALIDATE    ''I:W\SUPPLREFNO;=;Y  ''DO(REFNO)  ''M:  ''DOEND(REFNO)    'C:UCASE  ''A:CONST;;I\SM_REFNO  ''A:CONST;16;I\TMP1  'A:FIELDLEN;I\TMP1;I\SM_REFNO    'I:I\SUM_TFR_SUPPLNO;<>;  'DO(CHK)  ' M:  'DOEND(CHK)    'I:I

'$SELECT  'S:SUPPLIER_MAST1;I\SM_SUPP;I\SM_AGENT    '$SELECT8  'A:VAR;I\SM_SUPP;I\TMP1  'I:I\AM_DEL_SUPPEDIT;=;1  'DO(001)  ''  NN:$GBLUSER$$I\SM_DTIME$;I\TMP1  ''  I:I\SM_SUPP;=;  ''  DO(002)  '    E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P SUPPLIER_MAN $GBLUSER$$I\SM_DTIME$ $I\SM_SUPP$  '    F:ZV_USER_DEFAULTS;;;I

$SELECT  'DISPLAY A SELECTION WINDOW  S:GATE_REASON;I\REASON    $VALIDATE  I:I\SM_MARKET;=;11  DO(R)  M:  C:UCASE  DOEND(R)  I:I\REASON;=;  A:CONST;;T\REASON_NAME      I:I\REASON;<>;  F:REASON_MAST;Y;;T\REASON_NAME=RSN_DESC;RSN_TYPE='GN' AND RSN_REASON='$I\REASON$';I\REASON      I:I\SM_MARKET;=;11  DO(11)    I:I\PASS_C

'$SELECT  'S:TRANSPORTER_MAST;I\SM_TRNPTR;I\SM_AGENT    '$VALIDATE  'A:CONST;;T\TRNPTR  'C:UCASE  ''LOAD TRANSPORTER DESCRITION  'I:I\SM_TRNPTR;<>;  'F:TRANSPORTER_MAST;Y;;T\TRNPTR=TR_NAME;TR_CODE='$I\SM_TRNPTR$' AND TR_AGENT='$I\SM_AGENT$';I\SM_TRNPTR    'C:MCASE;;T\TRNPTR    $AFTER_READ  'LOAD TRANSPORTER DESCRITION 

'$VALIDATE  'C:UCASE  

'$VALIDATE  'I:I\NO_OF_LINES;=;  'A:CONST;0;I\NO_OF_LINES    'I:I\NO_OF_LINES;<>;I\NO_LINES  'D:NUMBER OF LINES MUST BE EQUAL TO THE NUMBER OF ROWS IN THE GRID;ERRORM;I\NO_OF_LINES      '$VALIDATE    'I:I\NO_LINES;=;  'D:ERROR - NO RECORDS IN THE GRID TO PROCESS;ERRORM;I\SD_SEQ

  '$SELECT  ''''''''''S:G:G\DELIVERY;R1  'S:G:G\DELIVERY:R1;I\SDG_CONSIGN    '$VALIDATE  'C:UCASE      '$CALCULATE    'I:I\SDG_CONSIGN;=;  'DO(001)  '  A:CONST;;I\SDG_CONSIGN,I\SD_ITEM,I\SD_CONT,I\SD_RECQTY,I\SD_COMMENT,W\DEL  '  O:DISABLEINPUT;I\SD_ITEM,I\SD_CONT,I\SD_RECQTY,I\SD_COMMENT,W\DEL  '  O:DISABLEINPUT;G\DEL

''SELECT CONTAINER FROM SELECTION WINDOW  '$SELECT  'S:CONT_GATE;I\SD_CONT;I\PROD;I\VAR    '$CALCULATE  ''SET THIS FIELD AS MANDATORY AND CHANGE CASE TO UPPER CASE  ''M:  'C:UCASE    ''LOOKUP FOR AN EXISTING CONTAINER, IF NOT FOUND DISPLAY ERROR MESSAGE AND IF BLOCKED DISPLAY ERROR MESSAGE  'I:I\SD_CONT;<>;  'DO(C1)  '

''SELECT ITEM FROM SELECTION WINDOW  '$SELECT  'S:ITEM_SEL;I\SD_ITEM  'A:SELPARM;2;I\TMP1  'A:CON;I\SD_ITEM;I\SD_ITEM;I\TMP1    '$CALCULATE  'A:CONST;;I\SD_PROV  ''SET THIS FIELD AS MANDATORY AND CHANGE TEXT CASE TO UPPER CASE  'M:  'C:UCASE  ''GET PRODUCT LEFT 2 CHARACTERS  'A:LEFT;I\SD_ITEM,2;I\PROD  ''GET VARIETY TH

'$CALCULATE'    ''CHECK CONSIGNMENT QTY  'I:I\SD_RECQTY;<=;0;NUM  'D:CONSIGNMENT QTY CANNOT BE NEGATIVE OR ZERO;ERRORM;I\SD_RECQTY'    ''I:I\SD_RECQTY;=;0;NUM  ''A:VAR;I\SD_CONQTY;I\SD_RECQTY

    $BEFORE_WRITE        I:K\DEL;=;1  DO(03)  U:DELETE_DUMMY_SUPPL_DELIV;DELETE_DUMMY_SUPPL  A:CONST;Y;I\SM_DELIND  DOEND(03)    'A:VAR;I\USER;I\SM_USER          $AFTER_WRITE  I:K\DEL;=;1  DO(PROCESS)   'U:GOODS_RECEPTION_UPDATE;TABLE_UPDATE;G\DELIVERY,I\SM_MARKET,I\SM_AGENT,I\SM_DELNO,T\DATE,I\SM_DATE,T\TIME,I\SM_TIME

'$SELECT  'S:AREA_CODE;I\SM_AREA    '$VALIDATE  'M:  'C:UCASE  'F:AREA_MAST;Y;AR_CODE;;;I\SM_AREA

'$VALIDATE  'C:UCASE  

  $AFTER_WRITE  I:I\ORGS;=;   DO(NOAGN)    O:ENABLEINPUT;I\SM_AGENT,C\AGENT    O:SETFOCUS;I\SM_AGENT   DOEND(NOAGN)      I:I\ORGS;<>;  DO(AGN)  O:SETFOCUS;I\SM_DELNO  O:DISABLEINPUT;I\SM_DELTYPE  O:ENABLEINPUT;I\SM_DELNO  DOEND(AGN)