CHEP_DELS_MAN

$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:VAR;T\DATE;I\DATE;;YYYY/MM/DD    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\DELNO,I\PALL_QTY,I\FDELDATE,I\SUPP,I\SUPP_NAME,I\MSG    A:CONST;+;I\SEQ;  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\

$DEFAULT  A:USERIP;;I\IP  F:CASH_POINT;;;I\CASHPOINT=CPO_CASHPT;CPO_IP='$I\IP$'    

$DEFAULT  A:ORGS;;I\ORGS    

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    A:VAR;I\ORGS;I\AGENT    I:I\ORGS;<>;  DO(0)    A:CONST;$I\ORGS$;I\AGENT    O:DISABLEINPUT;I\AGENT    F:AGENT_MAST;;;T\AGENT_NAME=AM_NAME;AM_CODE='$I\ORGS$';  DOEND(0)    I:I\ORGS;=;  DO(1)    O

$SELECT  S:CONS;I\CONSIGN;I\MARKET;I\ORGS    $VALIDATE  M:  F:PALL_DETS;Y;;I\TDELDATE=PD_DATE,I\PALL_CODE=PD_PALL,I\PALL_AGN=PD_AGENT;PD_MARKET = '$I\MARKET$' AND PD_CONSIGN = '$I\CONSIGN$';I\CONSIGN    I:I\AGENT;<>;I\PALL_AGN  D:THE ENTERED CONSIGNMENT IS NOT FOR THE AGENT LOGGED ON!!!;ERRORM;I\CONSIGN    F:PALL_MAST;

$VALIDATE  M:  O:SETFOCUS;I\MSG

$DEFAULT  A:USERID;;I\USERID    U:MENU_GROUP;LOOKUP

$SELECT    U:CHEP_DELIVEIES;ADD_TO_CONSIGMENT;G\GRID,I\SEQ    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\DELNO,I\PALL_QTY,I\FDELDATE,I\SUPP,I\SUPP_NAME,I\MSG    I:I\ORGS;<>;  DO(0)    A:CONST;;I\SMAN,T\SMAN_NAME,I\PALL_CODE,T\PALL_DESC,I\TDELDATE,I\FDELDATE,I\CONSIGN,I\TMP1,I\TMP2    O:SETFOCUS;I\CONSIGN  DOEND(0)    I:I\

$VALIDATE    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\DELNO,I\PALL_QTY,I\FDELDATE,I\SUPP,I\SUPP_NAME,I\MSG  A:CONST;+;I\SEQ;    C:UCASE  M:  F:AGENT_MAST;Y;;T\AGENT_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT  

$SELECT  S:G:G\GRID:R1;I\SEQ  $SELECT6  S:G:G\GRID:F1;I\SEQ    $CALCULATE  I:I\SEQ;=;  DO(SFD)     O:DISABLEINPUT;I\DELNO,I\FDELDATE,I\PALL_QTY,I\SUPP,I\SUPP_NAME,I\MSG     O:SETFOCUS;C\UPDATE     O:BACKCOLOR;C\UPDATE;YELLOW  DOEND(SFD)    I:I\SEQ;<>;  DO(002)    I:I\SEQ;=;+    DO(004)      A:CONST;;I\SEQ      O:ENABLE

$CALCULATE    F:AUD_PALL_DETS;;;I\TMP1=SUM(APD_RECQTY);APD_MARKET='$I\MARKET$' AND LEFT(APD_CONSIGN,6)='$I\DELNO$' AND APD_PALL='$I\PALL_CODE$' AND APD_AUD_DATE = '$I\DATE$' AND APD_AUD_TYPE = 'INS' GROUP BY APD_MARKET,LEFT(APD_CONSIGN,6),APD_AUD_DATE,APD_AUD_TYPE;  F:AUD_PALL_DETS;;;I\TMP2=SUM(APD_RECQTY);APD_MARKET='

$CALCULATE  C:UCASE  V:Y;N;  I:I\MSG;=;  A:CONST;N;I\MSG    U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ    A:CONST;;I\DELNO,I\PALL_QTY,I\SUPP,I\SUPP_NAME,I\FDELDATE,I\TMP_SMAN,I\MSG  A:CONST;+;I\SEQ    O:SETFOCUS;I\SEQ    

$ESC  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD    $UPDATE    ''==================================  ''TO CHECK FOR LOCKS (JD 2010-11-15)  U:ZZGRID_VALIDATE;INIT_GRID;G\GRID  ''TO CHECK FOR LOCKS (JD 2010-11-15)  ''==================================    'I:I\PMT_METH;<>;  'DO(SCR)  '  I:I\PMT_METH;=;CA  '  DO(CA)  '