PSUPPLIER_FAX_SUMM

$SELECT  S:SLS_SECT_PROPER;I\SLS_SECT;I\AGENT    $CALCULATE  C:UCASE    I:I\SLS_SECT;<>;  F:SLSSECT_ACCESS;Y;;;SS_AGENT='$I\AGENT$' AND SS_SECT='$I\SLS_SECT$';I\SLS_SECT    I:I\FAX_SECT;<>;  DO(MA2)    A:CONST;;I\SLS_SECT    D:ONLY ONE OF FAX/SALES SECTION CAN BE ENTERED;ERRORM;I\SLS_SECT  DOEND(MA2)

$SELECT  S:FAX_SECT_AGN;I\FAX_SECT;I\AGENT    $CALCULATE  C:UCASE    I:K\AUTO;=;0  DO(JE2)    I:I\FAX_SECT;<>;    D:FAX SECTION IS ONLY FOR AUTO FAX;ERRORM;I\FAX_SECT  DOEND(JE2)    I:I\FAX_SECT;<>;  F:AGENT_FAXES;Y;;;AX_CODE='$I\AGENT$' AND AX_FAX_SECTION='$I\FAX_SECT$';I\FAX_SECT  'F:AGN_FAX_SECT;Y;;;AFS_AGENT='$I\AG

$SELECT  S:SALESMAN_AGENT;I\SMAN;I\AGENT    $CALCULATE  I:I\SMAN;<>;  F:SALESMAN_MAST;Y;;T\SMAN_NAME=SLS_NAME;SLS_AGENT='$I\AGENT$' AND SLS_CODE='$I\SMAN$';I\SMAN

$DEFAULT  A:USERID;;I\USERID

$DEFAULT  A:ORGS;;I\ORGS    I:I\ORGS;=;  O:ENABLEINPUT;I\AGENT,C\AGN    I:I\ORGS;<>;  DO(DDA)    O:DISABLEINPUT;I\AGENT,C\AGN    A:VAR;I\ORGS;I\AGENT    'F:AGENT_MAST;;;I\SMAN_ENTRY=AM_SLSM_ENTRY,T\AGNDESC=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT      F:AGENT_MAST;;;I\SMAN_ENTRY=AM_SLSM_ENTRY,T\AGNDESC=AM_NAME,W\AM_AUTO_FAX

$DEFAULT  'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'A:VAR;T\DATE;I\SELDATE  'A:VAR;T\DATE;I\TODATE

$DEFAULT  A:USERIP;;I\IP

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\REP_TIME=CM_REPORT_RUN_TIME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    I:I\MARKET;=;17  DO(UNHIDE)    O:SHOW;T\AUTO,K\AUTO  DOEND(UNHIDE)

$SELECT  S:AGENT_CODE;I\AGENT

$CALCULATE    I:K\ALL;<>;1  M:    I:I\TODATE;<>;  DO(AAM)    I:I\SELDATE;=;      D:PLEASE ENTER BOTH DATES, OR LEAVE BOTH BLANK;ERRORM;I\SELDATE  DOEND(AAM)    I:I\TODATE;=;  DO(AAS)    I:I\SELDATE;<>;      D:PLEASE ENTER BOTH DATES, OR LEAVE BOTH BLANK;ERRORM;I\SELDATE  DOEND(AAS)    A:CONST;;I\STOP    I:I\MARKET;=;11

$SELECT  'I:I\SUPPL;<>;  'S:DELIVERY_CONSIGN_AGN;I\DELNO;I\AGENT;I\SUPPL    'I:I\SUPPL;=;  'S:DELIVERY_CONS_AGN2;I\DELNO;I\AGENT    I:I\SUPPL;<>;  S:DELIVERY_CONSIGN;I\DELNO;I\AGENT;I\SUPPL    I:I\SUPPL;=;  S:DELIVERY_CONS_AGN3;I\DELNO;I\AGENT    A:SELPARM;2;I\SELDATE    $CALCULATE  I:I\DELNO;<>;  DO(ASQ)    'I:I\SUPPL

$CALCULATE  I:K\AUTO;=;0  DO(F1X)    A:CONST;;I\FAX_SECT    O:DISABLEINPUT;I\FAX_SECT,C\2    O:ENABLEINPUT;I\SLS_SECT,C\5  DOEND(F1X)    I:K\AUTO;=;1  O:ENABLEINPUT;I\FAX_SECT,C\2

$SELECT  S:DELIVERY_CONSIGN_AGN;I\AGN;I\SUPPL;I\DELNO

$CALCULATE  I:K\ALL;<>;1  M:

$SELECT  '''S:SUPPLIER_CODE;I\SUPPL  S:SUPPLIER_CODE1;I\SUPPL;I\AGENT    $CALCULATE  'CHECK PROHIBIT! DISALLOW IF SALES PROHIBITED. - JD 2013-02-06  F:CLIENT_MAST;;;I\PROHIBIT=CM_PROHIBIT_SALES,I\PROHIBIT_GEN=CM_PROHIBIT_GENERAL;CM_CODE='$I\MARKET$';  I:I\PROHIBIT;=;Y  DO(F91)    I:I\PROHIBIT_GEN;=;Y    D:SALES ARE CUR

$SELECT    'CHECK DATES AGAIN  I:I\SELDATE;<>;  DO(QLQ)    I:I\TODATE;=;    D:PLEASE ENTER BOTH DATES OR LEAVE BOTH BLANK;ERRORM;I\SELDATE  DOEND(QLQ)    I:I\SELDATE;=;  DO(QLQ)    I:I\TODATE;<>;    D:PLEASE ENTER BOTH DATES OR LEAVE BOTH BLANK;ERRORM;I\SELDATE  DOEND(QLQ)    I:I\SELDATE;<>;  DO(ALA)    I:I\TODATE;<>; 

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

$SELECT  S:SUPPLIER_CODE1;I\SUPPL;I\AGENT

$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE  M:  C:UCASE    F:AGENT_MAST;Y;;I\SMAN_ENTRY=AM_SLSM_ENTRY,T\AGNDESC=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT  I:I\SMAN_ENTRY;=;1      DO(SM1)        O:ENABLEINPUT;I\SMAN,C\S        A:CONST;Y;I\TMP      DOEND(SM1)      I:I\SMAN_ENTRY;=;2      DO(SM2)        O:ENABLEINPUT;I\SMAN,C\

$PRINT    'CHECK DATES AGAIN  I:I\SELDATE;<>;  DO(QLQ)    I:I\TODATE;=;    D:PLEASE ENTER BOTH DATES OR LEAVE BOTH BLANK;ERRORM;I\SELDATE  DOEND(QLQ)    I:I\SELDATE;=;  DO(QLQ)    I:I\TODATE;<>;    D:PLEASE ENTER BOTH DATES OR LEAVE BOTH BLANK;ERRORM;I\SELDATE  DOEND(QLQ)    I:I\SELDATE;<>;  DO(ALA)    I:I\TODATE;<>;