WHS_PAYMNT_CONFIRM

$DEFAULT  A:CONST;NO;I\CANSAVE  

$DEFAULT    'GET PASSED PARMATER - OPERATION MODE  A:PARM;1;I\MODE  A:FIELD;I\MODE,:,1;I\MODE  'A:CONST;A;I\MODE    A:CONST;E;I\MODE    O:HIDE;I\ST_RSN_CODE,I\ST_REASON,T\ST_REASON,C\REASON,I\SD_COMMENT,T\SD_COMMENT  I:I\MODE;<>;W  O:HIDE;I\SM_GCN,T\SM_GCN,K\CONFIRM,T\CONFIRM1,T\CONFIRM2  O:DISABLEINPUT;I\SD_ITEM,I\SD_

$DEFAULT  A:PATH;GBLPDIR;I\PATH

$DEFAULT  'GET USERS MARKET CODE - ZU_MARKET IN ZU_USER  A:ORG  'GET MARKET NAME FROM CLIENT MASTER  F:CLIENT_MAST;;;T\MARKET=CM_NAME,I\CM_AGN_DOCKET=CM_AGN_DOCKET;CM_CODE='$I\SM_MARKET$'  'CONVERT TO FIRST CHARACTER UPPER CASE REST LOWER CASE  C:MCASE;;T\MARKET    'DEFAULT STARTING DATE AND TIME  A:DATE;DD MMM YYYY;T\

$VALIDATE  A:CONST;;W\UPDATE    I:I\CONFIRMED;=;  A:CONST;N;I\CONFIRMED    C:UCASE  V:N;Y;      I:I\CONFIRMED;=;Y  DO(CONF)    @U:WHOLESALE_CONFIRM_PAYMENT;MESSAGE    I:W\UPDATE;=;Y     DO(CNT)      U:WHOLESALE_CONFIRM_PAYMENT;UPDATE_TABLES      D:DELIVERY $I\SM_DELNO$ CONFIRMED SUCCESSFUL;MSGBOX     DOEND(CNT)    I:W\

$DEFAULT    'INITIALIZE CONSIGNMENT GRID  U:ZZGRID_SPLIT;INIT_GRID;G\DELIVERY;I\SD_SEQ,I\SD_ITEM,I\SD_CLASS,I\SD_SIZE,I\SD_CONT,I\SD_CONTMASS,I\SD_PROV,I\SD_COUNT,I\SD_COLOUR,I\SD_CONQTY,I\SD_COSTP,I\VALUE:H,I\VAT:H,I\TOTAL_VAL,I\TOT_COMM,I\TOT_COMM_NO_VAT:H,I\COMM_VAT:H,I\COMM,I\SD_BLOCK    A:USERID;;I\USER  A:USERIP;

''$DEFAULT  'LOAD OPTIONS FROM AGENT_MAST  ''F:AGENT_MAST;;;I\AM_DELAUTO=AM_DELAUTO,I\AM_DEL_LEN=AM_DEL_LEN,I\AM_SLSM_ENTRY=AM_SLSM_ENTRY,I\AM_DEL_SUPPEDIT=AM_DEL_SUPPEDIT,I\AM_DEL_SUPPADD=AM_DEL_SUPPADD,I\AM_MAX_DEL_LINES=AM_MAX_DEL_LINES;AM_CODE='$I\SM_AGENT$' AND AM_MARKET='$I\SM_MARKET$'    'LOAD OPTIONS FROM CLIEN

' OPTIONS  ' I\AM_DELAUTO

'$AFTER_WRITE  'F:AGENT_MAST;;;I\TMP1=AM_NODEL_PRN;AM_CODE='$I\SM_AGENT$' AND AM_MARKET='$I\SM_MARKET$';I\SM_AGENT     'I:I\TMP1;<=;0;NUM  'DO(001)  '  F:CLIENT_MAST;;;I\TMP1=CM_NODEL_PRN;CM_CODE='$I\SM_MARKET$'  '  I:I\TMP1;<=;0;NUM  '  DO(002)  '    A:CONST;1;I\TMP1  '  DOEND(002)  'DOEND(001)    'I:K\PRINT;=;1  'DO(

$DEFAULT  A:CONST;DELIVERY_MAN;I\PROG  

$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    'I:I\SD_DELIND;=;Y  'D:YOU MAY NOT AMEND THIS LINE, IT IS DELETED;ERRORM;I\SEQ    C:UCASE  V:Y;N;  I:I\SD_BLOCK;=;  A:CONST;N;I\SD_BLOCK      'U:ZZGRID_SPLIT;SCREEN_TO_GR

'$SELECT  'S:CLASS_ITEM;I\SD_CLASS;I\PROD;I\VAR    '$CALCULATE  ''M:  'C:UCASE  'I:I\SD_CLASS;<>;  'DO(001)  '  A:CONST;;I\TMP1  '  F:CLASS_MAST;Y;CL_CLASS;I\TMP1=CL_BLOCKED;;I\SD_CLASS  '  I:I\TMP1;=;Y  '  D:THIS CLASS HAS BEEN BLOCKED;ERRORM;I\SD_CLASS  'DOEND(001)  'A:VAR;I\SD_CLASS;I\CLASS  'I:I\CLASS;=;  'A:CONST;

'$SELECT  'S:COLOUR_ITEM;I\SD_COLOUR    '$CALCULATE  'C:UCASE  'I:I\SD_COLOUR;<>;  'F:COLOUR_MAST;Y;CLR_COLOUR;;;I\SD_COLOUR    

$SELECT  S:COLOUR_ITEM;I\SD_COLOUR  

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

'$SELECT  'S:CONT_PR_NODEL;I\SD_CONT;I\PROD;I\VAR;I\SD_CLASS;I\SD_SIZE    '$CALCULATE  'M:  'C:UCASE    'A:VAR;I\SD_CONT;I\TMPCONT    'A:CONST;;I\TMP1  'F:COMMODITY_MAST;Y;CO_CONT;I\TMP1=CO_BLOCKED;CO_PRODUCT='$I\PROD$' AND CO_VAR='$I\VAR$' AND CO_CLASS='$I\SD_CLASS$' AND CO_SIZE='$I\SD_SIZE$';I\SD_CONT  'I:I\TMP1;=;Y 

$SELECT  S:CONT_PR_NODEL;I\SD_CONT;I\PROD;I\VAR  

$CALCULATE  I:I\SM_DELTYPE;=;W  DO(001)    I:I\SD_COSTP;<=;0;NUM  '''  D:COST PRICE CANNOT BE NEGATIVE OR ZERO;ERRORM;I\SD_TARGETP    D:COST PRICE CANNOT BE NEGATIVE OR ZERO;ERRORM;I\SD_COSTP  DOEND(001)    U:WHOLESALE_MAN;CALCULATE_TOTAL  

$DEFAULT  DIM TMP5,TMP6      '$SELECT  'A:CON;I\CLASS;I\TMP1;I\SIZE  'S:COUNT_MAST_CNT;I\SD_COUNT;I\PROD;I\TMP1;I\SD_CONT    '$CALCULATE  'I:I\CNT_REQ;=;Y  'M:    'I:I\SD_COUNT;<>;  'DO(001)  '  A:CON;I\CLASS;I\TMP1;I\SIZE  '  F:COUNT_MAST;;CNT_COUNT;TMP5=CNT_PRODUCT;CNT_PRODUCT='$I\PROD$' AND CNT_CONTAINER = '$I\SD_CO

$SELECT  A:CON;I\SD_CLASS;I\TMP1;I\SD_SIZE  S:COUNT_MAST_CNT;I\SD_COUNT;I\PROD;I\TMP1;I\SD_CONT  

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

$SELECT  S:PROVINCE;I\SD_PROV  

'$SELECT  'S:PROVINCE;I\SD_PROV    '$CALCULATE  'C:UCASE    'A:VAR;I\SD_PROV;I\TMPPROV    'I:I\PROV_REQ;=;Y  'M:  'I:I\SD_PROV;<>;  'DO(001)  '  A:CONST;;I\TMP1  '  F:PROV_MAST;Y;PR_PROV;I\TMP1=PR_BLOCKED;;I\SD_PROV  '  I:I\TMP1;=;Y  '  D:THIS PROVINCE HAS BEEN BLOCKED;ERRORM;I\SD_PROV  'DOEND(001)  

'$SELECT  'S:SIZE_ITEM;I\SD_SIZE;I\PROD;I\VAR    '$SELECT6  'S:GRADE_ITEM;I\SD_CLASS;I\PROD;I\VAR  'A:SELPARM;1;I\SD_CLASS  'A:SELPARM;2;I\SD_SIZE    '$CALCULATE  ''M:  'C:UCASE    'I:I\SD_SIZE;<>;  'DO(001)  '  A:CONST;;I\TMP1  '  F:SIZE_MAST;Y;SZ_SIZE;I\TMP1=SZ_BLOCKED;;I\SD_SIZE  '  I:I\TMP1;=;Y  '  D:THIS SIZE HAS 

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

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

$SELECT  S:AREA_CODE;I\SM_AREA  

$SELECT  S:WHS_DEL_NO;I\SM_DELNO;I\SM_MARKET

$SELECT  S:AGENT_TYPE_DEL;I\SM_DELTYPE  

$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      

'$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  'M:    'CHECK THAT THE THIRD DIGIT IS A ":"  'A:MID;I\SM_DTIME,3,1;I\TMP1    'I:I\TMP1;<>;:  '  D:ENTER IN FORMAT XX:XX;ERRORM;I\SM_DTIME    'CHECK THAT THE FIRST TWO DIGITS 

$SELECT  'S:WHOLESALE_CODE;I\SM_WHOLESALER;I\SM_AGENT  S:WHOLESALE_CODE;I\SM_WHOLESALER  

$SELECT  S:SUPPLIER_MAST1;I\SM_SUPP;I\SM_AGENT  

$DEFAULT  'ADDS ITEMS TO THE COMBOBOX  B:ADDITEM;D\SM_TRANSPORT_FORM1;DT - DEISEL TRUCK,PT - PETROL TRUCK,AC - AIRCRAFT,SH - SHIP,RL - RAIL,UN - UNKNOWN  A:CONST;UN;D\SM_TRANSPORT_FORM1  A:CONST;UNKNOWN;T\FORM_DESC  C:MCASE;;T\FORM_DESC    $VALIDATE  M:  C:UCASE  A:LEFT;D\SM_TRANSPORT_FORM1,2;D\SM_TRANSPORT_FORM1  U:DE

$DEFAULT  'ADDS ITEMS TO THE COMBOBOX  B:ADDITEM;D\SM_TRANSPORT_FORM2;DT - DEISEL TRUCK,PT - PETROL TRUCK,AC - AIRCRAFT,SH - SHIP,RL - RAIL  A:CONST;;D\SM_TRANSPORT_FORM2    $VALIDATE  C:UCASE  A:LEFT;D\SM_TRANSPORT_FORM2,2;D\SM_TRANSPORT_FORM2  I:D\SM_TRANSPORT_FORM2;<>;    DO(002)       B:VALIDATE;D\SM_TRANSPORT_FORM

    $AFTER_READ  F:TRANSPORTER_MAST;;TR_CODE;T\TRANS_DESC=TR_NAME;TR_AGENT='$I\SM_AGENT$';I\SM_TRNPTR  C:MCASE;;T\TRANS_DESC  

$SELECT  S:TRANSPORTER_MAST;I\SM_TRNPTR  

$DEFAULT  A:USERID;;I\SM_USER

$VALIDATE  C:UCASE  

  $AFTER_READ  F:WHOLESALE_MAST;;WHS_CODE;T\SMAN_DESC=WHS_NAME,W\LANGUAGE=WHS_LANGUAGE;;I\SM_WHOLESALER  C:MCASE;;T\SMAN_DESC  

'$SELECT  'A:CONST;RE;I\TMP1  'S:REASON_RE;I\ST_RSN_CODE;I\TMP1    

$AFTER_READ  A:CONST;YES;I\CANSAVE      

$UPDATE