GOOD_REC_NELSPRUIT

$SELECT  S:SUPPLIER_MAST2;I\SM_SUPP    $SELECT8  A:VAR;I\SM_SUPP;I\TMP1  I:I\AM_DEL_SUPPEDIT;=;1  DO(001)    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_TEXT;ZV_CODE='$GBLUSER$$I\SM_DTIME$'    I:I\SM_SUPP;=;    A:VAR;I\TMP1;I\SM_SUPP 

$VALIDATE  C:UCASE    I:I\SM_DTIME;=;  A:TIME;HH:MM;I\SM_DTIME  

  $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

'SELECTION IF SALES SECTIONS NOT USED  I:I\SM_AGENT;<>;  DO(AGN)   I:I\CM_DELSECT;=;0;NUM    DO(001)    'SELECT FOR MARKET, INCLUDES ALL AGENTS      I:I\SM_AGENT;=;      S:DEL_NUMBER_MKT;I\SM_DELNO;I\SM_MARKET        'SELECT FOR AGENTS, AGENT SPECIFIC      I:I\SM_AGENT;<>;      S:DEL_NUMBER;I\SM_DELNO;I\SM_MARKET;I\SM_

$SELECT  S:SUPPLIER_MAST2;I\SM_SUPP

$SELECT  S:AGENT_MAST_MKT;I\SM_AGENT;I\SM_MARKET  'A:CONST;3;I\DELNOT  

$SELECT  S:TRANSPORTER_MAST;I\SM_TRNPTR

$SELECT    I:I\VTYPE;=;D  DO(002)    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    DOEND(002)

'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

$SELECT  S:AGENT_TYPE_DEL;I\SM_DELTYPE

$SELECT  S:AREA_CODE;I\SM_AREA

$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

$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    'INITIALIZE CONSIGNMENT GRID  U:ZZGRID_SPLIT;INIT_GRID;G\DELIVERY;I\SD_SEQ,I\SD_ITEM,I\DESC,I\SD_CONT,I\SD_RECQTY,I\SD_CONSIGN:H,I\REM:H,I\SD_COMMENT,W\DEL    O:HIDE;K\NOTE,T\NOTE  O:SETFOCUS;I\SM_AGENT

$SELECT    'SELECTION IF SALES SECTIONS NOT USED  I:I\SM_AGENT;<>;  DO(AGN)    'SELECTION IF SALES SECTIONS USED    I:I\CM_DELSECT;=;1;NUM      DO(002)         'SELECT FOR SALES SECTION        S:SECT_MAST_S;I\SM_DELNO    DOEND(002)  DOEND(AGN)     '20210318 THEUNIS   S:SEL_PREL_DELIVERY;I\SM_DELNO   A:CONST;3;I\DELNOT 

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

  $SELECT  ''''''''''S:G:G\DELIVERY;R1  S:G:G\DELIVERY:R1;I\SD_SEQ    $VALIDATE  C:UCASE      $CALCULATE    I:I\SD_SEQ;=;  DO(001)    A:CONST;;I\SD_SEQ,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\DELIVERY  '  O:SETFOCUS;Z\ZX_U

$DEFAULT  'GET THIS USERS AGENT CODE  '''  A:ORGS    I:I\ORGS;<>;      O:SETFOCUS;I\SM_DELNO    '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_SUPPL_REFNO,I\TMP1=AM_TYPE,I\AM_DEL_LEN=AM_DEL_LEN,I\A

$SELECT    $VALIDATE  C:UCASE    $SELECT8    'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_BAY_NOTE;$I\SM_DELNO$,$I\SM_SCHEDULE_ID$,$I\DUMP$,S   

$DEFAULT  'SET SUPPLIER REF NUMBER LENGTH  A:CONST;16;I\TMP1  A:FIELDLEN;I\TMP1;I\SM_REFNO      $VALIDATE  A:CONST;;W\SUP_REFNO    I:W\SUPPLREFNO;=;Y  DO(REFNO)  M:  DOEND(REFNO)    C:UCASE    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;<

'$DEFAULT    $VALIDATE    I:I\VTYPE;=;C  DO(001)   O:SETFOCUS;I\DTYPE  DOEND(001)    'I:I\VTYPE;=;D  'DO(002)  ' O:SETFOCUS;I\SM_WAYBILLNO  'DOEND(002)    I:I\VTYPE;=;D   O:SETFOCUS;I\SM_WAYBILLNO    'I:I\VTYPE;=;C  ' O:SETFOCUS;ZX_UPDATE

$DEFAULT  $VALIDATE  C:UCASE    A:VAR;I\SM_SCHEDULE_ID;I\SM_SCHEDULE_ID_U    O:SETFOCUS;I\DTYPE    $SELECT    'I:I\VTYPE;=;C  ' O:SETFOCUS;Z\ZX_UPDATE

$VALIDATE    C:UCASE  M  V:D;C      I:I\VTYPE;=;D  DO(002)   O:SETFOCUS;I\SM_AGENT   O:ENABLEINPUT;I\SM_AGENT,I\SM_DELID,I\SM_DELNO,I\SM_DTIME,I\SM_SUPP,I\SM_REFNO,I\SM_TRNPTR,I\SM_WAYBILLNO,I\DTYPE,I\SM_VREGNO  DOEND(002)    I:I\VTYPE;=;C  DO(001)   O:SETFOCUS;I\SM_VREGNO   O:DISABLEINPUT;I\SM_AGENT,I\SM_DELID,I\SM_DE

$SELECT   '20210318 THEUNIS   S:SEL_PREL_DELIVERY;I\SM_DELNO    

$DEFAULT  O:SETFOCUS;I\SM_DRIVER_CELL  $VALIDATE  C:UCASE  C:UCASE  

'$BEFORE_WRITE  $SELECT    I:I\SM_DATE;<>;  A:VAR;I\SM_DATE;I\SM_DATE;YYYY-MM-DD    I:I\SM_DATE;=;  '$BEFORE_WRITE  $SELECT    I:I\SM_DATE;<>;  A:VAR;I\SM_DATE;I\SM_DATE;YYYY-MM-DD    I:I\SM_DATE;=;  A:DATE;YYYY-MM-DD;I\SM_DATE    U:U_TEMPDELNO;SCHNO    I:I\VTYPE;=;C  DO(001)   U:U_TEMPDELNO;NOFIND   U:U_TEMPDELNO;NOUP

$VALIDATE    C:UCASE  M  V:C;A;B      $CALCULATE  O:SETFOCUS;I\UPDATE  

$AFTER_READ  'DEFAULT CURRENT DATE  ''''I:I\SM_DDATE;=;  ''''A:VAR;00 000 0000;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      

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

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

'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 

$VALIDATE  C:UCASE  V:X;      $CALCULATE       C:UCASE  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

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

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

'$CALCULATE    '$AFTER_READ  $DEFAULT    ' F:STK_MAST;;;T\DATETE=MAX(SM_DDATE);SM_MARKET='$I\SM_MARKET$'      ' F:STK_MAST;;;T\IDTEMP=MAX(SM_DTIME);SM_MARKET='$I\SM_MARKET$'AND SM_DDATE='$T\DATETE$'    'T\IDTEM    ' F:STK_MAST;;;I\SM_SCHEDULE_ID=SM_SCHEDULE_ID;SM_MARKET='$I\SM_MARKET$' AND SM_DDATE='$T\DATETE$' AND SM_

$DEFAULT  'O:SETFOCUS;I\SD_SEQ  

''''$BEFORE_WRITE  ''''W:ZV_USER_DEFAULTS;;;ZV_NUMBER=I\SM_SCHEDULE_ID;ZV_CODE='DEL_SCHED'    ''''I:I\VTYPE;=;C  ''''DO(001)  '''' W:DELIVERY_SCHEDULE;;;DS_SCHEDULE_NO=I\SM_SCHEDULE_ID,DS_VREGNO=I\SM_VREGNO,DS_DRIVER_CELL=I\SM_DRIVER_CELL;  '''' @  ''''DOEND(001)    ''''I:I\VTYPE;=;D  ''''DO(002)  '''' 'W:DELIVERY_SCHE