TRANSFER_RESERVATION

$VALIDATE    C:UCASE    V:Y;N;    I:I\TRANSFER;=;  A:CONST;N;I\TRANSFER      U:TRANSFER_RESERVATIONS_PER_DOCKET;CONFIRM_PALLETS;G\GRID  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\VAT,I\VALUE,I\TRANSFER

$SELECT  S:DEBTOR;I\TO_BUYER

'$SELECT      'I:I\AGENT;=;  'D:AGENT CODE IS A MANDATORY FIELD;ERRORM;I\AGENT    'F:AGENT_MAST;Y;;T\AGENT1=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT      'I:I\FROM_BUYER;=;  'D:FROM BUYER IS A MANDATORY FIELD;ERRORM;I\FROM_BUYER    'F:DEBTOR_MAST;Y;;I\BLOCKED=DM_BLOCKED,T\FROM_BUYER1=DM_NAME;DM_DEBTOR='$I\FROM_BUYER$';I\FRO

$SELECT  S:DEBTOR;I\TO_BUYER    $CALCULATE  A:CONST;;I\BLOCKED1,I\DEBTOR_TYPE  A:CONST;;T\NAME_TO_BUYER,I\FIND_CHEP_SALES,I\TO_BUYER_CHEP_ACC,I\DM_ACTIVE2  M:  F:DEBTOR_MAST;Y;;I\DM_EXPORT_IND=DM_EXPORT_IND,I\BLOCKED1=DM_BLOCKED,T\NAME_TO_BUYER=DM_NAME,I\DEBTOR_TYPE=DM_ACCTYPE,I\DM_SC_UNSEC=DM_SC_UNSEC,I\DM_ACTIVE2=DM_

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

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

$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\QTY,I\PRICE,I\ST_ORIG_QTY:H,I\ST_ORIG_PRICE:H,I\ORIG_VAT:H,I\DELDATE:H,I\PALLET_CON:H,I\PALLET_DELDATE:H,I\DOC_MSG:H,I\ST_RECNO:H,I\ST_SMAN:H

$DEFAULT  A:ORG

$SELECT  S:DEBTOR;I\FROM_BUYER    'CHANGE TEXT CASE TO UPPER CASE AND SET THIS FIELD MANDATORY  $CALCULATE  A:CONST;;T\PROGRESS,I\DM_ACTIVE      A:CONST;;I\DM_VATNO,I\MESSAGE,I\TOTAL,I\CRED,I\DM_GROUP,T\DM_GROUP1,T\DM_NAME,I\MESSAGE  A:CONST;;I\DM_VATNO,I\MESSAGE,G\GRID,I\TOTAL,I\CRED,I\DM_GROUP,T\DM_GROUP1,T\DM_NAME,W

$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\CM_RESV_DEBTOR_UPD=CM_RESV_DEBTOR_UPD,I\CHK_CREDIT=CM_RESV_DEBTOR_

'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\A

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

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

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

$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\QTY,I\PRICE,I\ST_ORIG_QTY:H,I\ST_

$UPDATE  A:CONST;;I\FROM_BUYER_CHEP_ACC,I\TO_BUYER_CHEP_ACC,I\FIND_CHEP_SALES,I\MESSAGE  I:I\AGENT;=;  D:AGENT CODE IS A MANDATORY FIELD;ERRORM;I\AGENT    F:AGENT_MAST;Y;;T\AGENT1=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT      I:I\FROM_BUYER;=;  D:FROM BUYER IS A MANDATORY FIELD;ERRORM;I\FROM_BUYER    F:DEBTOR_MAST;Y;;I\BLOC