AGN_SET_LIM

$VALIDATE  C:UCASE    V:Y;N    I:I\SETLIMIT;=;  A:CONST;N;I\SETLIMIT    O:SETFOCUS;I\CONFIRM

$SELECT  O:SETFOCUS;I\UPDATE  

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    '20230126 THEUNIS  '20221130 THEUNIS  'U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\TO_BUYER,T\TO_NAME_DESC,I\TO_ID_NO,I\LIMITD  U:ZZGRID

$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    '$CALCULATE  'U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\LV_CODE,I\LV_DESC,I\LV_CALC_TYPE,I\LV_RATE,I\LV_MRATE,I\LV_VATCD,I\LV_BOARD  'U:ZZGRID_SPLIT;DB_TO_GRID;G\GRIDM;LEVY_MAST    O:SETFOCUS;I\DA_CODE    '$BEFORE_DELETE  

$SELECT  S:MAIN_BUYER;I\DT_DEBTOR    $VALIDATE    M:  C:UCASE    F:DEBTOR_MAST;;;I\OSBAL=DM_OSBAL,I\MAIN_DEBTOR=DM_MAIN_DEBTOR,I\MAIN_ALLOC=DM_UNALLOC_AMT,T\MAIN_NAME=DM_NAME,I\ID=DM_IDNO,I\DM_ACCTYPE=DM_ACCTYPE,I\DEBTOR_T=DM_DEBTOR,I\PASS=DM_SET_LIM_PASS,I\LIMITCOICE=DM_USE_TOT_AVAIL;DM_MARKET='$I\MARKET$' AND DM_DEBT

$CALCULATE    A:VAR;I\DT_REFNO;I\TO_REF    O:SETFOCUS;I\TO_BUYER

$CALCULATE    I:I\PASS;=;I\PASST  DO(OPEN)    O:SHOW;I\REFNT,I\DT_REFNO,L\TB,L\AFT,L\RETL,L\ASBT,L\TRFAMT,I\DT_TRVAL,I\UPDATE    O:SHOW;I\DT_TRVAL,I\DT_REFNO,L\BUYER_NAME_L,I\LINE,T\LINE,G\GRID    O:SHOW;I\TO_BUYER,T\TO_NAME_DESC,I\RETURNS,I\LIMITD,I\DM_OSBALD,L\INSTR,L\INSTR2    O:ENABLEINPUT;G\GRID      U:UPDATE_LIMI

$VALIDATE  M:  C:UCASE    I:I\TO_BUYER;<>;  DO(EXITS)    F:DEBTOR_MAST;;;I\MAIN_DEBTOR=DM_MAIN_DEBTOR,I\DTT_DEBTOR=DM_DEBTOR;DM_MARKET='$I\MARKET$' AND DM_DEBTOR ='$I\TO_BUYER$'      I:I\MAIN_DEBTOR;<>;I\DT_DEBTOR    DO(MDER)      D:ENTER A VALID BUYER NUMBER;ERRORM;I\TO_BUYER    DOEND(MDER)      I:I\MAIN_DEBTOR;=;I\DT

$SELECT  A:VAR;16;I\DT_TRTYPE  A:VAR;16;I\DT_TYPE      I:I\TO_BUYER;=;  DO(CLOSE10)    U:UPDATE_LIMITS;CLEARGRID    A:CONST;;I\CFM,T\NAME,I\DM_VATNO,I\PERIOD,I\DM_OSBAL,D\DT_TRTYPE,T\TRTYPE,I\DT_PAYMTHD,T\PAYMETH,I\DT_TRVAL,I\DT_REFNO,I\ID,I\PIN,I\MAIN_DEBTOR,W\PASSWORD_REQUIRED,I\CONF_AMT,I\CORR_AMT,I\RECEIPT,I\DT_COR

$SELECT  I:I\TO_BUYER;=;  O:SETFOCUS;I\UPDATE    

$VALIDATE  I:I\SET_LIMIT;=;  A:CONST;N;I\SET_LIMIT    C:UCASE    V:Y;N    M:    '$CALCULATE    O:SETFOCUS;I\UPDATE      

$VALIDATE    I:I\RETURNS;=;  A:CONST;N;I\RETURNS    C:UCASE    V:Y;N    $CALCULATE  M:    I:I\RETURNS;=;N  DO(O1)    A:CONST;TRANSFER TO SUB BUYER;I\DT_REMARK    A:CONST;TRANSFER FROM MAIN BUYER;I\TO_REMARKS  DOEND(O1)    I:I\RETURNS;=;Y  DO(O2)    A:CONST;TRANSFER FROM SUB BUYER;I\DT_REMARK    A:CONST;TRANSFER TO MAIN

$VALIDATE  'MAKE THIS FIELD MANDATORY  M:    I:I\DT_TRVAL;=;0  D:THE LIMIT CHANGE CAN NOT BE 0;ERRORM;I\DT_TRVAL    'ROUND THE TOTAL TO THE NEAREST FIVE CENT  F:CLIENT_MAST;;;W\ROUND=CM_ROUND;CM_CODE='$I\MARKET$'  A:ROUND;I\DT_TRVAL,0.05,W\ROUND;W\ROUNDED;;#0.00    I:W\ROUNDED;=;0.00  A:VAR;I\DT_TRVAL;W\ROUNDED      A:

$SELECT  S:MAIN_BUYER;I\DT_DEBTOR