BUYER_SLS_ENQ_CPT

$SELECT  S:SUBS;I\BUYER

$SELECT  S:AGENT_CODE;I\AGENT

$SELECT    'I:I\BUYER;=;  'D:PLEASE ENTER A BUYER;ERRORM;I\BUYER    I:I\FROM_DATE;=;  D:PLEASE ENTER A DATE;ERRORM;I\FROM_DATE    I:I\TO_DATE;=;  D:PLEASE ENTER A DATE;ERRORM;I\TO_DATE    I:I\ORGS;<>;  DO(D4L)    I:I\AGENT;<>;I\ORGS    D:SELECTED AGENT DOES NOT MATCH LOGIN!;ERRORM;I\BUYER  DOEND(D4L)    ''''I:I\TMP1;=;

$DEFAULT  A:USERIP;;I\IP

$DEFAULT  A:USERID;;I\USER

$DEFAULT  A:ORGS;;I\ORGS    I:I\ORGS;<>;  DO(SQS)    A:VAR;I\ORGS;I\AGENT    O:DISABLEINPUT;I\AGENT    O:DISABLEINPUT;C\AGN    F:AGENT_MAST;;;T\AGN_NAME=AM_NAME;AM_CODE = '$I\ORGS$'  DOEND(SQS)    I:I\ORGS;=;  DO(SQS)    O:ENABLEINPUT;I\AGENT    O:ENABLEINPUT;C\AGN  DOEND(SQS)

$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    '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

$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE  C:UCASE  I:I\AGENT;<>;  F:AGENT_MAST;Y;;T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT

$SELECT  S:SUBS;I\BUYER    $CALCULATE    M:    I:I\BUYER;<>;    DO(CHK)   F:DEBTOR_MAST;Y;;T\NAME=DM_NAME;DM_DEBTOR='$I\BUYER$';I\BUYER   'SEARCH FOR SUB BUYERS CARDS   F:DEBTOR_MAST;;;I\TMP1=DM_DEBTOR;DM_MAIN_DEBTOR='$I\BUYER$'  DOEND(CHK)  'I:I\TMP1;=;  'D:THIS BUYER HAS NO SUB CARDS;ERRORM;I\BUYER

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

$VALIDATE  I:I\BUYER;=;  DO(NB)  I:I\TAXINV;<>;  F:STK_TRANS;Y;;;ST_TAXINV='$I\TAXINV$';I\TAXINV  DOEND(NB)    I:I\BUYER;<>;  DO(B)  I:I\TAXINV;<>;   DO(INV)   F:STK_TRANS;;;I\INVCHK=ST_TAXINV;ST_TAXINV='$I\TAXINV$' AND ST_DEBTOR='$I\BUYER$';I\TAXINV   I:I\INVCHK;=;   D:TAX INVOICE $I\TAXINV$ DOES NOT EXIST FOR THIS BU

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

$VALIDATE  C:UCASE  I:I\PAID;=;  A:CONST;N;I\PAID  V:N;Y      O:SETFOCUS;C\GO  O:BACKCOLOR;C\GO;YELLOW