AGENT_SALES

$SELECT7  'DISPLAY A SELECTION WINDOW  F:CLIENT_MAST;;;I\CM_DELSECT=CM_DELSECT,I\CM_SUPPL_PROFORMA=CM_SUPPL_PROFORMA;CM_CODE='$I\MARKET$'  I:I\SCREEN_TYPE;<>;PS  DO(AS)    I:I\CM_DELSECT;=;1    DO(SECT)    U:DELIVERY_MAN;GET_IP;G\GRID    S:CONS_AGENT_SECT_SUPP;I\CONSIGN;I\AGENT;I\TMP3    DOEND(SECT)      I:I\CM_DELSECT

$SELECT  'DISPLAY A SELECTION WINDOW  S:DEBTOR;I\ST_DEBTOR  

$SELECT  'DISPLAY A SELECTION WINDOW  S:BUYER_GROUP;I\GROUP

$SELECT  'DISPLAY PERIOD SELECTION WINDOW  S:PERIOD_CODE;W\DEL

$AFTER_READ  'DEFAULT CURRENT DATE  I:I\INVDATE;=;  A:DATE;DD MMM YYYY;I\INVDATE

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS  A:USERID;;I\USERID    F:ZU_USER;;;I\ZU_PRN_NAME=ZU_PRN_NAME;ZU_USERID = '$I\USERID$';  F:ZV_USER_DEFAULTS;;;I\PRN_LOG=ZV_TEXT;ZV_CODE='PRN_LOG';  F:ZV_USER_DEFAULTS;;;I\RE_PRN_NAME=ZV_TEXT;ZV_CODE='RELOAD_PRN_NAME';    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_C

$VALIDATE  C:UCASE    'MAKE THIS FIELD MANDATORY  M:    O:ENABLEINPUT;I\ST_SMAN,C\SMAN  O:SETFOCUS;I\ST_SMAN  

$SELECT  S:G:G\GRID:R1,I\SEQ  $SELECT6  S:G:G\GRID:F1,I\SEQ    $CALCULATE  I:I\MARKET;<>;60  DO(NOT60)  I:I\SEQ;=;  DO(001)   O:SETFOCUS;C\CREATE   O:BACKCOLOR;C\CREATE;YELLOW   O:DISABLEINPUT;I\CONSIGN,I\COMMOD,I\QTYAVAIL,I\SLDQTY,I\PRICE,I\VAT,I\VALUE,W\DEL   DOEND(001)  DOEND(NOT60)    I:I\MARKET;=;60  DO(NOT60)  I:

$CALCULATE  M:    'GET SUPPLIER CODE  F:AGENT_MAST;;;I\TMP=AM_DEL_LEN;AM_CODE='$I\AGENT$'  A:LEFT;I\CONSIGN,I\TMP;I\TMP1  F:STK_MAST;;;I\TMP1=SM_SUPP;SM_DELNO='$I\TMP1$' AND SM_MARKET='$I\MARKET$' AND SM_AGENT='$I\AGENT$' AND SM_DDATE='$I\DELDATE$';  F:SUPPLIER_MAST;;;I\PALL_SUPPL=SUM_PALL_SUPPL;SUM_SUPPL='$I\TMP1$'   

$CALCULATE  'I:I\SCREEN_TYPE;=;PS  '  U:AGENT_SALES;BUYER_AGENT_SURETY_LIMIT    A:CONST;N;I\AGN_OVERRIDE  A:CONST;N;I\MKT_OVERRIDE    'GET SUPPLIER CODE  F:AGENT_MAST;;;I\TMP=AM_DEL_LEN;AM_CODE='$I\AGENT$'  A:LEFT;I\CONSIGN,I\TMP;I\TMP1  F:STK_MAST;;;I\TMP7=SM_SUPP;SM_DELNO='$I\TMP1$' AND SM_MARKET='$I\MARKET$' AND SM_

'$DEFAULT  'A:ORGS;;I\AGENT  'A:ORGS;;I\ORGS      ''COMMENTED BY JUSTIN ON 04/09/08===========================================================================================  ''LOAD AGENT NAME  ''F:AGENT_MAST;;AM_CODE;T\AGENT_NAME=AM_NAME,I\AM_DEL_LEN=AM_DEL_LEN,I\AM_TARGET_OVR=AM_TARGET_OVR,I\AM_TARGET_USE=AM_TARGET_

$VALIDATE  C:UCASE    'O:ENABLEINPUT;I\ST_SMAN,C\SMAN  F:AGENT_MAST;;;I\TMP1=AM_SLSM_ENTRY;AM_CODE='$I\AGENT$'      I:I\MARKET;=;15  DO(MKT15)  O:ENABLEINPUT;I\ST_SMAN,C\SMAN  O:SETFOCUS;I\ST_SMAN  DOEND(MKT15)    I:I\MARKET;<>;15  DO(MKT15)  '$SVAR_FOCUS_LOST  O:SETFOCUS;I\SEQ  DOEND(MKT15)    I:I\MARKET;IN;32,39  DO(

$SVAR_FOCUS  U:EXIT_SCREEN

$VALIDATE  C:UCASE  'MAKE THIS FIELD MANDATORY  M:    F:DEBTOR_MAST;;DM_DEBTOR;W\EXIST1=DM_DEBTOR,T\ACT_BUYER_NAME=DM_NAME,I\TMP=DM_BLOCKED,I\TMP3=DM_SALE_BLOCK;DM_MARKET='$I\MARKET$';I\ACTUALBUYER  @I:W\EXIST1;=;  DO(EMSG)    O:ENABLEINPUT;I\ACTUALBUYER    D:BUYER $I\ACTUALBUYER$ DOES NOT EXIST;ERRORM;I\ACTUALBUYER  D

$SELECT  'DISPLAY A SELECTION WINDOW  S:BUYER_GROUP;I\GROUP    $VALIDATE  'MAKE THIS FIELD MANDATORY  M:  C:UCASE  'MAKE SURE THE GROUP IS A VALID GROUP AND DISPLAY THE GROUP DESC  F:BUYER_GROUP;Y;BG_CODE;T\GROUP_DESC=BG_DESC;;I\GROUP  

  $CALCULATE    I:I\MARKET;=;60  DO(NOT60)  DO(001)   O:SETFOCUS;C\CREATE   O:BACKCOLOR;C\CREATE;YELLOW   O:DISABLEINPUT;I\CONSIGN,I\COMMOD,I\QTYAVAIL,I\SLDQTY,I\PRICE,I\VAT,I\VALUE,W\DEL   DOEND(001)  DOEND(NOT60)    M:  C:UCASE

$DEFAULT    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  'A:TIMER_ON;1000  A:USERIP;;I\IP  A:ORGS;;I\AGENT  A:ORGS;;I\ORGS    'LOAD PORT  F:IP_MAST;;;I\PORT=IM_PORT;IM_IP='$I\IP$'    'JD CHANGE ON CHRISTO'S REQUEST 2011-06-07  I:I\MARKET;=;11  O:HIDE;I\TOTAL_RES_SALES_VALUE,T\CRAVA,I\CRLIMIT,T\CRLIM    I:I\MARKET

'$DEFAULT  ''INITIALIZES THE GRID   'U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\CONSIGN,I\COMMOD,I\QTYAVAIL,I\SLDQTY,I\PRICE,I\VAT,I\VALUE,I\DELDATE:H,I\PALLS_SOLD:H,I\DOC_MSG:H,I\ITEM:H,I\DISCVAL:H,I\VAROR:H,W\DEL    ''PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE    $SE

$SELECT  'DISPLAY A SELECTION WINDOW  F:CLIENT_MAST;;;I\CM_DELSECT=CM_DELSECT;CM_CODE='$I\SM_MARKET$'  I:I\SCREEN_TYPE;<>;PS  DO(AS)    I:I\CM_DELSECT;=;1    DO(SECT)    U:DELIVERY_MAN;GET_IP;G\GRID    S:CONS_AGENT_SECT;I\CONSIGN;I\AGENT;I\TMP3    DOEND(SECT)      I:I\CM_DELSECT;=;0    S:CONS_AGENT;I\CONSIGN;I\AGENT;  

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

$SELECT    'ALLOW FOR PERIOD SELECTION IF SCREEN TYPE IS PROVISIONAL SALES (PS)  I:I\SCREEN_TYPE;=;PS  DO(PS)    'DISPLAY PERIOD SELECTION WINDOW    S:PERIOD_CODE;W\DEL  DOEND(PS)    A:CONST;Y;I\CHK    $CALCULATE    '''==================================================================  '''MOMZ TESTING PRICE FOR DURBAN 

$SELECT  'DISPLAY A SELECTION WINDOW  S:SALESMAN_AGENT;I\ST_SMAN;I\AGENT    $CALCULATE    M:  I:I\MARKET;<>;17  A:VAR;I\ST_SMAN;I\ST_SMAN;;000    I:I\AGENT;EX;MS,AAM  DO(NOTMS)  A:VAR;I\ST_SMAN;I\ST_SMAN;;000  DOEND(NOTMS)      I:I\MARKET;=;17  DO(17)  I:I\AGENT;IN;MS,AAM  F:SALESMAN_MAST;;;I\ST_SMAN=SLS_CODE;SLS_HIDDE

$SELECT    I:I\ST_DEBTOR;=;  D:BUYER NUMBER IS BLANK - PLEASE RECAPTURE SALE;ERRORM;I\SEQ    I:I\MARKET;<>;69;  DO(6I9)    I:I\ST_DEBTOR;=;3    D:BUYER NUMBER IS INCORRECT - PLEASE RECAPTURE SALE;ERRORM;I\SEQ  DOEND(6I9)    I:I\DM_UNALLOC_ACTIVE;=;Y  DO(11)    I:I\TOTAL;>;I\DM_UNALLOC_AMT    D:PURCHASE LIMIT EXCEEDED;E

$VALIDATE    C:UCASE

  $CALCULATE  

$VALIDATE  C:UCASE  M:    V:W;F;    I:I\FLOORWHS;=;  A:CONST;W;I\FLOORWHS

'$BEFORE_WRITE  'U:AGENT_SALES;BUYER_PIN_NO    '$SELECT  $UPDATE  U:ZZGRID_VALIDATE;INIT_GRID;G\GRID    F:AGENT_MAST;;;I\TMP=AM_PIN_SALES;AM_CODE='$I\AGENT$'  F:AGENT_SURETY;;;I\AS_SURETY=AS_SURETY;AS_MARKET='$I\MARKET$' AND AS_AGENT='$I\AGENT$' AND AS_BUYER='$I\ST_DEBTOR$' AND AS_BLOCK = 'N'  I:I\SCREEN_TYPE;=;PS  DO(

$EXIT  'RESET ACTIVE FLAG ON EXIT  'U:AGENT_SALES;RESET_ACTIVE  'ADDED BY LP20120417 ON JANET REQUEST (SET THE BUYER TO NON-ACTIVE)  U:AGENT_SALES_BUYER_LOCK;UNACTIVE_BUYER