TOP_SUPPL_SMAN

$SELECT  S:SECTION;I\SECT  

$SELECT  S:AGENT_CODE;I\AGENT

$SELECT  S:DELIVERY_NO2;I\DELNO;I\MARKET;I\AGENT  

$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW    $SELECT    I:I\AGENT;=;  D:AGENT CODE IS MANDATORY;ERRORM;I\AGENT    I:I\AGENT;<>;  F:AGENT_MAST;Y;;T\AGENT1=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT    I:I\PERCENT;=;  D:TOP PERCENTAGE IS A MANDATORY FIELD;ERRORM;I\PERCENT    I:I\TO_DATE;=;  A:CONST;$T\DATE$;I\TO_DATE    I:I\FROM

$SELECT  'S:SUPPLIER_CODE3;I\SUPPL_NO  S:SUPPLIER_CODE2;I\SUPPL_NO;I\MARKET;I\AGENT

$SELECT  S:SALESMAN_AGENT;I\SMAN;I\AGENT

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_DIRECT=CM_DIRECT    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'GETS BULK EMAIL PARAMETER  'A:PARM;1;I\BULK_EMAIL    'A:VAR;I\MARKET;I\TM_MARKET      '======= SIYA 2013-0

'DISPLAYING TIME  $DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:CONST;$T\DATE$;I\FROM_DATE,I\TO_DATE

$SELECT  S:AGENT_CODE;I\AGENT    $VALIDATE    M:  C:UCASE    I:I\AGENT;<>;  F:AGENT_MAST;Y;;T\AGENT1=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT    A:CONST;;T\PROG    $AFTER_READ  A:ORGS;I\AGENT  F:AGENT_MAST;;AM_CODE;T\AGENT1=AM_NAME;AM_CODE='$I\AGENT$'

$SELECT  S:SECTION;I\SECT    $CALCULATE  C:UCASE    I:I\SECT;<>;  F:SECT_MAST;Y;;T\SNAME=SE_DESC;SE_SECT='$I\SECT$';I\SECT    I:I\SECT;=;  A:CONST;;T\SNAME      I:I\MARKET;<>;15  DO(18)    O:SETFOCUS;C\CREATE    O:BACKCOLOR;C\CREATE;YELLOW  DOEND(18)  

$SELECT  S:SALESMAN_AGENT;I\SMAN;I\AGENT    $VALIDATE  A:CONST;;T\SMAN_NAME    'ZEROFILL  A:ZEROFILL;I\SMAN,3;I\SMAN    C:UCASE.  I:I\SMAN;<>;  F:SALESMAN_MAST;Y;;T\SMAN_NAME=SLS_NAME;SLS_CODE='$I\SMAN$' AND SLS_AGENT='$I\AGENT$';I\SMAN

$VALIDATE  I:I\TOP_NUMBER;=;  A:CONST;0;I\TOP_NUMBER  

$SELECT  I:I\MARKET;=;18  S:PROV_CONSOL;I\SD_PROV    $VALIDATE  C:UCASE    I:I\MARKET;=;18  DO(DN1)    I:I\SD_PROV;<>;    F:PROV_CONSOLIDATION;Y;;;PROC_MAIN='$I\SD_PROV$';I\SD_PROV  DOEND(DN1)

$VALIDATE  I:I\CONT_DETAILS;=;  A:CONST;N;I\CONT_DETAILS  C:UCASE  V:Y;N    I:I\CM_DIRECT;<>;1  DO(CM_DIRECT)    O:SETFOCUS;C\CREATE    O:BACKCOLOR;C\CREATE;YELLOW  DOEND(CM_DIRECT)  

$DEFAULT  A:ORGS;I\ORGS,I\AGENT    A:VAR;I\ORGS;I\AGENT    F:AGENT_MAST;;AM_CODE;T\AGENT1=AM_NAME;AM_CODE='$I\AGENT$'    I:I\ORGS;<>;   DO(AGENT)    O:DISABLEINPUT;I\AGENT,C\AGENT    'O:SETFOCUS;I\PERCENT    A:CONST;0;I\TOP_NUMBER   DOEND(AGENT)    I:I\ORGS;=;   DO(NO_AGENT)    O:ENABLEINPUT;I\AGENT,C\AGENT    'O:SETFO

$DEFAULT  'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE    F:CLIENT_MAST;;;I\DEL_LEN=CM_DEL_LEN;CM_CODE='$I\MARKET$'    '$SELECT  ''S:SUPPLIER_CODE3;I\SUPPL_NO  'S:SUPPLIER_CODE2;I\SUPPL_NO;I\MARKET;I\AGENT    '$VALIDATE  ''M:    'I:I\SUPPL_NO;<>;  '  DO(SUPPL)  '   '

$VALIDATE  I:I\DIR_SALES;<>;  C:UCASE  V:;Y;N  O:SETFOCUS;K\DUMP    I:I\MARKET;<>;15  O:SETFOCUS;C\CREATE  O:BACKCOLOR;C\CREATE;YELLOW    

$VALIDATE    I:I\FROM_DATE;=;  A:CONST;$T\DATE$;I\FROM_DATE    

$VALIDATE    I:I\TO_DATE;=;  A:CONST;$T\DATE$;I\TO_DATE    A:DATEDIFF;I\TO_DATE;I\DATEDIFF;I\FROM_DATE  I:I\DATEDIFF;<;0  D:TO DATE CANNOT BE LESS THAN FROM DATE;ERRORM;I\TO_DATE      

$VALIDATE  A:CONST;;T\PROG  M:    I:I\PERCENT;>;100;VAL  D:100 IS THE HIGHEST ALLOWED ENTRY;ERRORM;I\PERCENT    I:I\PERCENT;=;0;VAL  D:MAY NOT ENTER ZERO;ERRORM;I\PERCENT

$VALIDATE    $CALCULATE  C:UCASE    I:I\PROD;<>;  F:PRODUCT_MAST;Y;;;PR_PRODUCT='$I\PROD$';I\PROD    I:I\MARKET;=;15  DO(15)    O:SETFOCUS;C\CREATE    O:BACKCOLOR;C\CREATE;YELLOW  DOEND(15)

$VALIDATE  V:Y;N;;    I:I\CM_DIRECT;<>;1  DO(CM_DIRECT)    O:SETFOCUS;C\CREATE    O:BACKCOLOR;C\CREATE;YELLOW  DOEND(CM_DIRECT)  

$CALCULATE    O:SETFOCUS;C\CREATE  O:BACKCOLOR;C\CREATE;YELLOW