RESERVATION_MAN_PRT

$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  'A:TIMER_ON;1000    'U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\ST_DOCNO,I\CON,I\COMM,I\AQTY,I\QTY,I\PRICE,I\ST_ORIG_QTY:H,I\ST_ORIG_PRICE:H,I\DELDATE:H,I\VAT,I\VALUE  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\ST_DOCNO,I\CON,I\COMM,I\AQTY,I\QTY,I\PRICE,I\ST_ORIG_QTY:

'SELECTING BUYER NUMBER FROM DEBTOR_MAST TABLE FOR F5 FUNCTION  $SELECT  S:BUYER_NUMBER;I\DM_DEBTOR

'$VALIDATE  'O:SETFOCUS;I\PRICE      'I:I\ST_DOCNO;=;  'DO(002)  'I:I\ST_ORIG_PRICE;<>;I\PRICE  'D:YOU NOT ALLOWED TO CHANGE PALLET PRICE;I\PRICE  'DOEND(002)        'I:I\ST_DOCNO;=;  'DO(002)  'U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE  'O:DISABLEINPUT;I\PRICE  'O:SETFOCUS;I\LINE  'A:CONST;;I\LINE,I\ST_DOCNO,I\CON,I

  '$GRID_VALIDATE   COMMENTED ON JANET'S REQUEST ON 14082009  '$GRID_VALIDATE     'U:RESERVATION_GRID_PRETORIA;VALIDATE_PRICE;G\GRID,I\DM_DEBTOR,I\MARKET,I\AGENT      'U:ZZGRID_SPLIT;GRID_SUM;G\GRID;I\VALUE,I\TOTAL  'U:ZZGRID_SPLIT;GRID_SUM;G\GRID;I\VAT,I\TOTALVALUEVAT    'U:BUYER_RESERVATION_GRID_PRETORIA;TOTAL_VALUES

'$CALCULATE  'U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE  'O:SETFOCUS;I\LINE  'A:CONST;;I\LINE,I\ST_DOCNO,I\CON,I\COMM,I\AQTY,I\QTY,I\PRICE,I\VAT,I\VALUE        $ESC  O:SETFOCUS;I\QTY        $CALCULATE  A:CONST;;I\ACPT_PRICE      'GET SUPPLIER CODE  F:AGENT_MAST;;;I\TMP=AM_DEL_LEN;AM_CODE='$I\AGENT$'  A:LEFT;I\CON,I\T

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET      'LOAD MARKET  NAME  'F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CHK_CREDIT=CM_RESV_CRLCHK,I\CM_ROUND=CM_ROUND,I\CM_VATNO=CM_VATNO,I\CM_DKT_COMMENT=CM_DKT_COMMENT  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CHK_CREDIT=CM_RESV_DEBTOR_UPD,I\CM_DUES=CM_DUES,I\CM_VATCODE=CM_VA

'RETRIVING AGENT NAME  $DEFAULT  A:ORGS;I\AGENT  F:AGENT_MAST;;AM_CODE;T\AGENT1=AM_NAME,I\NOREM_PRINT=AM_NOREM_PRN,I\NOINV_PRINT=AM_NOINV_PRN,I\AM_VATREG=AM_VATREG;AM_CODE='$I\AGENT$'    A:USERIP;;I\IP    F:IP_MAST;;;I\PORT=IM_PORT;IM_IP='$I\IP$'          A:VAR;I\AGENT;I\ORGS  I:I\AGENT;=;  DO(AGN)  O:ENABLEINPUT;I\AGE

$ESC  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD    'SELECTING BUYER NUMBER FROM DEBTOR_MAST TABLE FOR F5 FUNCTION  $SELECT  S:BUYER_NUMBER;I\DM_DEBTOR    'CHANGE TEXT CASE TO UPPER CASE AND SET THIS FIELD MANDATORY  '$VALIDATE  'M:      $CALCULATE  A:CONST;;I\DM_VATNO,I\MESSAGE,I\TOTAL,I\CRED,I\DM_GROUP,T\DM_GROUP1

$DEFAULT  A:ORG

$ESC  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD    $SELECT    S:SLS_ACCESS_PORT;I\SECTION;I\AGENT;I\PORT        $CALCULATE  A:CONST;;G\GRID,I\TOTAL,I\CRED,W\PORT    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\ST_DOCNO,I\CON,I\COMM,I\AQTY,I\QTY,I\PRICE,I\ST_ORIG_QTY:H,I\ST_ORIG_PRICE:H,I\ORIG_VAT:H,I\DELDATE:H,I\PALLET

$SELECT    S:SLS_ACCESS_PORT;I\SECTION;I\AGENT;I\PORT

$CALCULATE  I:I\LINE;=;  DO(001)   O:SETFOCUS;C\CREATE   O:BACKCOLOR;C\CREATE;YELLOW   O:DISABLEINPUT;I\QTY,I\PRICE    A:CONST;;I\QTY,I\PRICE  DOEND(001)    I:I\LINE;<>;  DO(002)   U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LINE   O:ENABLEINPUT;I\LINE,I\QTY,I\PRICE   O:SETFOCUS;I\QTY  DOEND(002)

$ESC  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD    $UPDATE    F:AGENT_MAST;;;I\TMP=AM_PIN_SALES;AM_CODE='$I\AGENT$'  I:I\TMP;=;1  DO(PIN_SALES)  I:I\DM_PIN_SALES;=;Y  DO(PIN_CHK)   I:I\DM_PINNO;<>;   DO(001)    U:RESERVATION_MAN_PRT;BUYER_PIN_NO    I:I\INVALID_BUYER_PIN;=;Y    DO(CHK)     I:I\CLEAR_SCREEN;=;Y      

$EXIT  U:BUYER_RESERVATION_GRID_PRETORIA;UNFLAG_CARD