GOODS_RECEPTION_MAN

  '$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    'SELECTION IF SALES SECTIONS NOT USED  I:I\ORGS;<>;  DO(AGN)        'SELECT FOR AG

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

'SELECT CONTAINER FROM SELECTION WINDOW  $SELECT  S:CONT_GATE;I\SD_CONT;I\PROD;I\VAR

$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    

$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)        $SELECT    'SELECTION IF SALES SECTIONS NOT USED  I:I\ORGS;<>;  DO(AGN)        'SELECT FO

$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;<>;  F:AGENT_TYPE;

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

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

'$SELECT  'S:SALESMAN_MAST;I\SM_SMAN;I\SM_AGENT    '$VALIDATE  'I:I\AM_SLSM_ENTRY;=;2  'DO(001)  '  M:  '  C:UCASE  '  A:ZEROFILL;I\SM_SMAN,3;I\SM_SMAN  '  F:SALESMAN_MAST;Y;SLS_CODE;T\SMAN_DESC=SLS_NAME;SLS_AGENT='$I\SM_AGENT$';I\SM_SMAN  '  C:MCASE;;T\SMAN_DESC  'DOEND(001)    '$AFTER_READ  'I:I\SM_SMAN;<>;  'F:SALES

$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\SM_SUPP=ZV

$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  I:I\SM_T

$VALIDATE  C:UCASE  

'$VALIDATE  'O:SETFOCUS;Z\ZX_UPDATE    '$AFTER_WRITE  'I:K\NOTE;=;1  'DO(01)  'I:I\NO_LINES;<>;0  'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_DELIVERY;$I\SM_MARKET$,$I\SM_AGENT$,$I\SM_DELNO$,P  ''I:I\NO_LINES;=;0  ''D:ERROR - NO RECORDS IN GRID TO PROCESS;ERROR;I\SD_SEQ  'DOEND(01)    'I:I\ORGS;=;  ' DO(N

'$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  'COMMENTED BY LP19052010  '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,C\ITEM,I\SD_CONT,I\SD_RECQTY,I\SD_COMMENT,W\DEL    O:DISABLEINPUT;G\DELIVE

'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)  F:CONT_MAST

$DEFAULT  O:DISABLEINPUT;I\SD_ITEM,C\ITEM,I\SD_CONT,C\CONT,I\SD_RECQTY,I\SD_COMMENT,W\DEL          '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

$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    O:ENABLEINPUT;I\SD_COMMENT

  '$CALCULATE  $VALIDATE  'SET TEXT CASE TO UPPER CASE  C:UCASE    O:ENABLEINPUT;W\DEL

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

$VALIDATE  C:UCASE  

'$VALIDATE  '$CALCULATE  'I:I\TOT_REC;=;  'A:CONST;0;I\TOT_REC    'I:I\TOT_REC;<>;I\TOT_REC1  'D:TOTAL RECEIVED MUST BE EQUAL TO THE TOTAL ITEM QUANTITY RECEIVED;ERRORM;I\TOT_REC    ''O:SETFOCUS;C\UPDATE  'I:I\TOT_REC;<>;0  '  DO(01)  '   O:SHOW;K\NOTE  '   O:SHOW;T\NOTE  '   O:ENABLEINPUT;K\NOTE  '  DOEND(01)        $

$VALIDATE  C:UCASE  V:X;      $CALCULATE  U:DELIVERY_MAN;CHK_MAX;G\DELIVERY,1  I:I\TMP1;<>;  D:SORRY ONLY $I\TMP1$ CONSIGNMENTS CAN BE ENTERED PER DELIVERY;ERRORM;I\SD_SEQ      A:LEFT;I\SD_ITEM,2;I\PROD  A:MID;I\SD_ITEM,3,2;I\VAR  A:CONST;;I\TMP1  F:VAR_MAST;Y;;I\TMP1=VA_BLOCKED;VA_PRODUCT='$I\PROD$' AND VA_VARIETY='$I