VIEW_SUPPL_COMM

'DISPLAYING DATA FOR F5 FUNCTION  $SELECT  'S:SUPPLIER_MAST;I\CP_SUPPLIER    I:I\CP_AGENT;<>;    S:SUPPL_COMM;I\CP_SUPPLIER;I\CP_AGENT    I:I\CP_AGENT;=;    S:SUPPLIER_MAST;I\CP_SUPPLIER

'DISPLAY DATA FOR F5 FUNCTION  $SELECT   S:PRODUCT_MAST;I\CP_PROD

$SELECT  S:SUPPL_COMM;I\CP_SUPPLIER;I\CP_AGENT    $VALIDATE  M:  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CP_PROD,I\CP_VARIETY,I\CP_CONT,I\CP_COMMPERC,I\CP_BLOCKED    I:I\CP_SUPPLIER;<>;  F:SUPPLIER_MAST;Y;;T\SUPPL_NAME=SUM_NAME;SUM_MARKET='$I\MARKET$' AND SUM_SUPPL='$I\CP_SUPPLIER$';I\CP_SUPPLIER    A:CONST;;T\PROG,I\ITEM,I\

'

$DEFAULT  'RETRIVING AGENT NAME  A:ORGS;I\CP_AGENT  F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME;AM_MARKET='$I\MARKET$'    I:I\ORGS;<>;  O:DISABLEINPUT;I\CP_AGENT,C\3    'INITIALIZES GRID AND DATA FROM DATABASE TO GRID.  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CP_PROD,I\CP_VARIETY,I\CP_CONT,I\CP_COMMPERC,I\CP_BLOCKED    $CALCULATE 

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000  A:USERID;;I\USER  A:USERIP;;I\IP  

$DEFAULT  A:ORGS;I\ORGS  I:I\ORGS;<>;  O:DISABLEINPUT;I\CP_AGENT,C\3  

$VALIDATE  C:UCASE    I:I\CONT;<>;  DO(1)    I:I\PROD;=;    DO(1)      I:I\VARIETY;<>;      F:CONT_MAST;Y;;T\CONT_DESC=CN_DESC;CN_PRODUCT='$I\PROD$' AND CN_VAR='$I\VARIETY$' AND CN_CONT='$I\CONT$';I\CONT    DOEND(2)  DOEND(1)    A:CONST;LOADING IN PROGRESS ....;T\PROG  U:MARKET_FUNCTIONS;LOAD_COMMP;G\GRID  A:CONST;LOAD

$VALIDATE  C:UCASE    I:I\ITEM;<>;  DO(1)    A:LEN;I\ITEM;I\TMP1      A:LEFT;I\ITEM,2;I\PROD        I:I\TMP1;>;2    A:RIGHT;I\ITEM,2;I\VARIETY      I:I\VARIETY;<>;    F:VAR_MAST;Y;;T\ITEM_DESC=VA_DESC;VA_PRODUCT='$I\PROD$' AND VA_VARIETY='$I\VARIETY$';I\ITEM      I:I\VARIETY;=;    F:PRODUCT_MAST;Y;;T\ITEM_DESC=PR_DESC;