CS_DEPOSIT_ENQUIRY

$SELECT  S:AGENT_CODE;I\AGENT

$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW    $SELECT  A:CONST;;I\ALLOW    'I:I\CM_ALLOW_MNTH_REPORT;<>;1  'DO(CHK)  ' U:FIX_LOC_TRANS;REPORTS_TIME_CHECK;I\FROM_DATE,I\TO_DATE  ' I:I\ALLOW;=;N  ' DO(01)  '  O:SETFOCUS;I\FROM_DATE  ' DOEND(01)  'DOEND(CHK)    'I:I\ALLOW;<>;N  'DO(RUN)  A:CONST;IN PROGRESS !!!;T\PROG  E:$G

$SELECT  S:CS_DELNO;I\DELIVNO

$SELECT  I:I\DELIVNO;=;  S:CONS_CS;I\CONSIGN    I:I\DELIVNO;<>;  S:CS_CONSIGNMENT;I\CONSIGN;I\DELIVNO

$SELECT  I:I\ORGS;=;  S:CS_DEPNO3;I\DEPOSIT_NO    I:I\ORGS;<>;  S:CS_DEPNO2;I\DEPOSIT_NO;I\AGENT

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_ALLOW_MNTH_REPORT=CM_ALLOW_MNTH_REPORT    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET        A:VAR;I\MARKET;I\TM_MARKET      $AFTER_READ  A:VAR;I\MARKET;I\TM_MARKET

'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

'RETRIVING AGENT NAME  '$DEFAULT  'A:ORGS;I\ORGS,I\AGENT  'A:VAR;I\AGENT;I\ORGS  'F:AGENT_MAST;;AM_CODE;T\AGENT1=AM_NAME;AM_CODE='$I\AGENT$'         '$SELECT  'S:AGENT_CODE;I\AGENT    '$VALIDATE  'A:CONST;;T\AGENT1  'M:  'C:UCASE  'F:AGENT_MAST;Y;;T\AGENT1=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT        '$AFTER_READ  'A:ORG

$SELECT  S:CS_DEP_DELVS;I\DELIVNO  $VALIDATE  U:CS_DEP_ENQUIRY;COUNT_CONSIGN    I:I\CONSCOUNT;>;1  DO(MRQ)    I:I\ORGS;=;    DO(PUN)      S:REUSED_DELVS;I\CONSIGN;I\DELIVNO      A:SELPARM;2;I\TMP_DELDATE    DOEND(PUN)        I:I\ORGS;<>;      DO(NOB)      S:MULTI_CONS2;I\CONSIGN;I\CONSIGN;I\ORGS      A:SELPARM;2;I\TMP_

$SELECT  S:CS_CONS;I\CONSIGN;I\DELIVNO      $VALIDATE  I:I\CONSIGN;<>;  F:STK_DETS;;;I\AGENT=SD_AGENT,I\DISC=SD_DISQTY,I\RR=SD_RRQTY,I\CS=SD_CSQTY,I\PREVGRD=SD_PREVGRD,I\DELNO=SD_DELNO,I\QTY=SD_RECQTY,I\DELDATE=SD_DATE,I\ITEM=SD_ITEM,I\SIZE=SD_SIZE,I\CLASS=SD_CLASS,I\CONT=SD_CONT;SD_DELNO='$I\DELIVNO$' AND SD_CONSIGN =

$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\DELNO  ' DOEND(AGENT)    'I:I\ORGS;=;  ' DO(NO_AGENT)  '  O:ENABLEINPUT;I\AGENT,C\AGENT  '  O:SETFOCUS;I\AGENT  ' DOEND(N

$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  I:I\CONSIGN;<>;  S:CS_DEPNO_PTA;I\DEPOSIT_NO;I\CONSIGN    I:I\CONSIGN;=;  S:CS_DEPNO1;I\DEPOSIT_NO;I\DELIVNO    $VALIDATE  I:I\DELIVNO;=;