arhstock

SET DELETED ON
SET DATE germ
SET SAFETY OFF
SET ENGINEBEHAVIOR 70
PUBLIC PochDate

USE arstock
PochDate=date
USE

*USE salinh.dbf SHARED
*APPEND FROM salinhop.dbf
*APPEND FROM salinhT.dbf

*USE salinld.dbf excl
*APPEND FROM salinldop.dbf
*APPEND FROM salinldT.dbf
*DELETE ALL FOR Salinld.localcode="                    " or  Salinld.localcode="2                   "
*PACK
*use

SELECT Salouth.date, Saloutld.qty, Saloutld.localcode;
 FROM ;
     saloutld ;
    LEFT OUTER JOIN salouth ;
   ON  Saloutld.invoice_no = Salouth.invoice_no;
union all;
SELECT Salinh.date, Salinld.qty*(-1) as qty, Salinld.localcode;
 FROM ;
     salinld ;
    LEFT OUTER JOIN salinh ;
   ON  Salinld.invoice_no = Salinh.invoice_no;
   into cursor obig

SELECT "3                   " as WAREH_code, obig.localcode as localcode,;
        "                    " as lot_id,;
        obig.qty as stock, obig.date as date;
FROM obig;
INTO CURSOR OBIG

PUBLIC MaxDate, MinDate, RecnMax, NumStr, PromDate
MaxDate=obig.date
MinDate=obig.date

GO bott
recnmax=RECNO()
FOR Numstr=1 TO recnMax STEP 1
    GO numstr
    MaxDate=MAX(maxDate, obig.date)
    MinDate=Min(minDate, obig.date)
endf

SELECT arstock.*;
FROM arstock;
WHERE arstock.DATE=PochDate;
INTO CURSOR STOCK


SELECT obig.*;
FROM obig;
WHERE obig.DATE<PochDate;
UNION all;
SELECT stock.*;
FROM stock;
INTO CURSOR OBIG

PromDate=MaxDate

DO while PromDate>=MinDate
    SELECT stock.*;
    FROM stock;
    UNION all;
    SELECT OBIG.WAREH_CODE, obig.localcode, OBIG.lot_id,;
        OBIG.STOCK, PROMDATE AS DATE;
    FROM obig;
    WHERE OBIG.DATE>=PROMDATE;
    INTO CURSOR stock


    promdate=promdate-1
endd

SELECT stock.WAREH_CODE, stock.localcode, stock.lot_id,;
        SUM(stock.STOCK) AS STOCK, stock.DATE;
    FROM stock;
    GROUP BY stock.DATE, stock.LOCALCODE;
    ORDER BY DATE DESC;
    INTO TABLE ARstock


USE outlets
REPLACE ALL outlets.address WITH RIGHT(Outlets.address,len(Outlets.address)-1)
REPLACE ALL outlets.deliv_addr WITH RIGHT(Outlets.deliv_addr,len(Outlets.deliv_addr)-1)
u
*USE salinh.dbf SHARED
*APPEND FROM salinhop.dbf
*APPEND FROM salinhT.dbf

*USE salinld.dbf excl
*APPEND FROM salinldop.dbf
*APPEND FROM salinldT.dbf
*DELETE ALL FOR Salinld.localcode="                    " or  Salinld.localcode="2                   "
*PACK
*use

SELECT Salouth.date, Saloutld.qty, Saloutld.localcode;
 FROM ;
     saloutld ;
    LEFT OUTER JOIN salouth ;
   ON  Saloutld.invoice_no = Salouth.invoice_no;
union all;
SELECT Salinh.date, Salinld.qty*(-1) as qty, Salinld.localcode;
 FROM ;
     salinld ;
    LEFT OUTER JOIN salinh ;
   ON  Salinld.invoice_no = Salinh.invoice_no;
   into cursor obig

SELECT "3                   " as WAREH_code, obig.localcode as localcode,;
        "                    " as lot_id,;
        obig.qty as stock, obig.date as date;
FROM obig;
INTO CURSOR OBIG

PUBLIC MaxDate, MinDate, RecnMax, NumStr, PromDate
MaxDate=obig.date
MinDate=obig.date

GO bott
recnmax=RECNO()
FOR Numstr=1 TO recnMax STEP 1
    GO numstr
    MaxDate=MAX(maxDate, obig.date)
    MinDate=Min(minDate, obig.date)
endf

SELECT arstock.*;
FROM arstock;
WHERE arstock.DATE=PochDate;
INTO CURSOR STOCK


SELECT obig.*;
FROM obig;
WHERE obig.DATE<PochDate;
UNION all;
SELECT stock.*;
FROM stock;
INTO CURSOR OBIG

PromDate=MaxDate

DO while PromDate>=MinDate
    SELECT stock.*;
    FROM stock;
    UNION all;
    SELECT OBIG.WAREH_CODE, obig.localcode, OBIG.lot_id,;
        OBIG.STOCK, PROMDATE AS DATE;
    FROM obig;
    WHERE OBIG.DATE>=PROMDATE;
    INTO CURSOR stock


    promdate=promdate-1
endd

SELECT stock.WAREH_CODE, stock.localcode, stock.lot_id,;
        SUM(stock.STOCK) AS STOCK, stock.DATE;
    FROM stock;
    GROUP BY stock.DATE, stock.LOCALCODE;
    ORDER BY DATE DESC;
    INTO TABLE ARstock


USE outlets
REPLACE ALL outlets.address WITH RIGHT(Outlets.address,len(Outlets.address)-1)
REPLACE ALL outlets.deliv_addr WITH RIGHT(Outlets.deliv_addr,len(Outlets.deliv_addr)-1)
u
*APPEND FROM salinhop.dbf
*APPEND FROM salinhT.dbf

*USE salinld.dbf excl
*APPEND FROM salinldop.dbf
*APPEND FROM salinldT.dbf
*DELETE ALL FOR Salinld.localcode="                    " or  Salinld.localcode="2                   "
*PACK
*use

SELECT Salouth.date, Saloutld.qty, Saloutld.localcode;
 FROM ;
     saloutld ;
    LEFT OUTER JOIN salouth ;
   ON  Saloutld.invoice_no = Salouth.invoice_no;
union all;
SELECT Salinh.date, Salinld.qty*(-1) as qty, Salinld.localcode;
 FROM ;
     salinld ;
    LEFT OUTER JOIN salinh ;
   ON  Salinld.invoice_no = Salinh.invoice_no;
   into cursor obig

SELECT "3                   " as WAREH_code, obig.localcode as localcode,;
        "                    " as lot_id,;
        obig.qty as stock, obig.date as date;
FROM obig;
INTO CURSOR OBIG

PUBLIC MaxDate, MinDate, RecnMax, NumStr, PromDate
MaxDate=obig.date
MinDate=obig.date

GO bott
recnmax=RECNO()
FOR Numstr=1 TO recnMax STEP 1
    GO numstr
    MaxDate=MAX(maxDate, obig.date)
    MinDate=Min(minDate, obig.date)
endf

SELECT arstock.*;
FROM arstock;
WHERE arstock.DATE=PochDate;
INTO CURSOR STOCK


SELECT obig.*;
FROM obig;
WHERE obig.DATE<PochDate;
UNION all;
SELECT stock.*;
FROM stock;
INTO CURSOR OBIG

PromDate=MaxDate

DO while PromDate>=MinDate
    SELECT stock.*;
    FROM stock;
    UNION all;
    SELECT OBIG.WAREH_CODE, obig.localcode, OBIG.lot_id,;
        OBIG.STOCK, PROMDATE AS DATE;
    FROM obig;
    WHERE OBIG.DATE>=PROMDATE;
    INTO CURSOR stock


    promdate=promdate-1
endd

SELECT stock.WAREH_CODE, stock.localcode, stock.lot_id,;
        SUM(stock.STOCK) AS STOCK, stock.DATE;
    FROM stock;
    GROUP BY stock.DATE, stock.LOCALCODE;
    ORDER BY DATE DESC;
    INTO TABLE ARstock


USE outlets
REPLACE ALL outlets.address WITH RIGHT(Outlets.address,len(Outlets.address)-1)
REPLACE ALL outlets.deliv_addr WITH RIGHT(Outlets.deliv_addr,len(Outlets.deliv_addr)-1)
u
*APPEND FROM salinhT.dbf

*USE salinld.dbf excl
*APPEND FROM salinldop.dbf
*APPEND FROM salinldT.dbf
*DELETE ALL FOR Salinld.localcode="                    " or  Salinld.localcode="2                   "
*PACK
*use

SELECT Salouth.date, Saloutld.qty, Saloutld.localcode;
 FROM ;
     saloutld ;
    LEFT OUTER JOIN salouth ;
   ON  Saloutld.invoice_no = Salouth.invoice_no;
union all;
SELECT Salinh.date, Salinld.qty*(-1) as qty, Salinld.localcode;
 FROM ;
     salinld ;
    LEFT OUTER JOIN salinh ;
   ON  Salinld.invoice_no = Salinh.invoice_no;
   into cursor obig

SELECT "3                   " as WAREH_code, obig.localcode as localcode,;
        "                    " as lot_id,;
        obig.qty as stock, obig.date as date;
FROM obig;
INTO CURSOR OBIG

PUBLIC MaxDate, MinDate, RecnMax, NumStr, PromDate
MaxDate=obig.date
MinDate=obig.date

GO bott
recnmax=RECNO()
FOR Numstr=1 TO recnMax STEP 1
    GO numstr
    MaxDate=MAX(maxDate, obig.date)
    MinDate=Min(minDate, obig.date)
endf

SELECT arstock.*;
FROM arstock;
WHERE arstock.DATE=PochDate;
INTO CURSOR STOCK


SELECT obig.*;
FROM obig;
WHERE obig.DATE<PochDate;
UNION all;
SELECT stock.*;
FROM stock;
INTO CURSOR OBIG

PromDate=MaxDate

DO while PromDate>=MinDate
    SELECT stock.*;
    FROM stock;
    UNION all;
    SELECT OBIG.WAREH_CODE, obig.localcode, OBIG.lot_id,;
        OBIG.STOCK, PROMDATE AS DATE;
    FROM obig;
    WHERE OBIG.DATE>=PROMDATE;
    INTO CURSOR stock


    promdate=promdate-1
endd

SELECT stock.WAREH_CODE, stock.localcode, stock.lot_id,;
        SUM(stock.STOCK) AS STOCK, stock.DATE;
    FROM stock;
    GROUP BY stock.DATE, stock.LOCALCODE;
    ORDER BY DATE DESC;
    INTO TABLE ARstock


USE outlets
REPLACE ALL outlets.address WITH RIGHT(Outlets.address,len(Outlets.address)-1)
REPLACE ALL outlets.deliv_addr WITH RIGHT(Outlets.deliv_addr,len(Outlets.deliv_addr)-1)
u
*USE salinld.dbf excl
*APPEND FROM salinldop.dbf
*APPEND FROM salinldT.dbf
*DELETE ALL FOR Salinld.localcode="                    " or  Salinld.localcode="2                   "
*PACK
*use

SELECT Salouth.date, Saloutld.qty, Saloutld.localcode;
 FROM ;
     saloutld ;
    LEFT OUTER JOIN salouth ;
   ON  Saloutld.invoice_no = Salouth.invoice_no;
union all;
SELECT Salinh.date, Salinld.qty*(-1) as qty, Salinld.localcode;
 FROM ;
     salinld ;
    LEFT OUTER JOIN salinh ;
   ON  Salinld.invoice_no = Salinh.invoice_no;
   into cursor obig

SELECT "3                   " as WAREH_code, obig.localcode as localcode,;
        "                    " as lot_id,;
        obig.qty as stock, obig.date as date;
FROM obig;
INTO CURSOR OBIG

PUBLIC MaxDate, MinDate, RecnMax, NumStr, PromDate
MaxDate=obig.date
MinDate=obig.date

GO bott
recnmax=RECNO()
FOR Numstr=1 TO recnMax STEP 1
    GO numstr
    MaxDate=MAX(maxDate, obig.date)
    MinDate=Min(minDate, obig.date)
endf

SELECT arstock.*;
FROM arstock;
WHERE arstock.DATE=PochDate;
INTO CURSOR STOCK


SELECT obig.*;
FROM obig;
WHERE obig.DATE<PochDate;
UNION all;
SELECT stock.*;
FROM stock;
INTO CURSOR OBIG

PromDate=MaxDate

DO while PromDate>=MinDate
    SELECT stock.*;
    FROM stock;
    UNION all;
    SELECT OBIG.WAREH_CODE, obig.localcode, OBIG.lot_id,;
        OBIG.STOCK, PROMDATE AS DATE;
    FROM obig;
    WHERE OBIG.DATE>=PROMDATE;
    INTO CURSOR stock


    promdate=promdate-1
endd

SELECT stock.WAREH_CODE, stock.localcode, stock.lot_id,;
        SUM(stock.STOCK) AS STOCK, stock.DATE;
    FROM stock;
    GROUP BY stock.DATE, stock.LOCALCODE;
    ORDER BY DATE DESC;
    INTO TABLE ARstock


USE outlets
REPLACE ALL outlets.address WITH RIGHT(Outlets.address,len(Outlets.address)-1)
REPLACE ALL outlets.deliv_addr WITH RIGHT(Outlets.deliv_addr,len(Outlets.deliv_addr)-1)
u
*APPEND FROM salinldop.dbf
*APPEND FROM salinldT.dbf
*DELETE ALL FOR Salinld.localcode="                    " or  Salinld.localcode="2                   "
*PACK
*use

SELECT Salouth.date, Saloutld.qty, Saloutld.localcode;
 FROM ;
     saloutld ;
    LEFT OUTER JOIN salouth ;
   ON  Saloutld.invoice_no = Salouth.invoice_no;
union all;
SELECT Salinh.date, Salinld.qty*(-1) as qty, Salinld.localcode;
 FROM ;
     salinld ;
    LEFT OUTER JOIN salinh ;
   ON  Salinld.invoice_no = Salinh.invoice_no;
   into cursor obig

SELECT "3                   " as WAREH_code, obig.localcode as localcode,;
        "                    " as lot_id,;
        obig.qty as stock, obig.date as date;
FROM obig;
INTO CURSOR OBIG

PUBLIC MaxDate, MinDate, RecnMax, NumStr, PromDate
MaxDate=obig.date
MinDate=obig.date

GO bott
recnmax=RECNO()
FOR Numstr=1 TO recnMax STEP 1
    GO numstr
    MaxDate=MAX(maxDate, obig.date)
    MinDate=Min(minDate, obig.date)
endf

SELECT arstock.*;
FROM arstock;
WHERE arstock.DATE=PochDate;
INTO CURSOR STOCK


SELECT obig.*;
FROM obig;
WHERE obig.DATE<PochDate;
UNION all;
SELECT stock.*;
FROM stock;
INTO CURSOR OBIG

PromDate=MaxDate

DO while PromDate>=MinDate
    SELECT stock.*;
    FROM stock;
    UNION all;
    SELECT OBIG.WAREH_CODE, obig.localcode, OBIG.lot_id,;
        OBIG.STOCK, PROMDATE AS DATE;
    FROM obig;
    WHERE OBIG.DATE>=PROMDATE;
    INTO CURSOR stock


    promdate=promdate-1
endd

SELECT stock.WAREH_CODE, stock.localcode, stock.lot_id,;
        SUM(stock.STOCK) AS STOCK, stock.DATE;
    FROM stock;
    GROUP BY stock.DATE, stock.LOCALCODE;
    ORDER BY DATE DESC;
    INTO TABLE ARstock


USE outlets
REPLACE ALL outlets.address WITH RIGHT(Outlets.address,len(Outlets.address)-1)
REPLACE ALL outlets.deliv_addr WITH RIGHT(Outlets.deliv_addr,len(Outlets.deliv_addr)-1)
u
*APPEND FROM salinldT.dbf
*DELETE ALL FOR Salinld.localcode="                    " or  Salinld.localcode="2                   "
*PACK
*use

SELECT Salouth.date, Saloutld.qty, Saloutld.localcode;
 FROM ;
     saloutld ;
    LEFT OUTER JOIN salouth ;
   ON  Saloutld.invoice_no = Salouth.invoice_no;
union all;
SELECT Salinh.date, Salinld.qty*(-1) as qty, Salinld.localcode;
 FROM ;
     salinld ;
    LEFT OUTER JOIN salinh ;
   ON  Salinld.invoice_no = Salinh.invoice_no;
   into cursor obig

SELECT "3                   " as WAREH_code, obig.localcode as localcode,;
        "                    " as lot_id,;
        obig.qty as stock, obig.date as date;
FROM obig;
INTO CURSOR OBIG

PUBLIC MaxDate, MinDate, RecnMax, NumStr, PromDate
MaxDate=obig.date
MinDate=obig.date

GO bott
recnmax=RECNO()
FOR Numstr=1 TO recnMax STEP 1
    GO numstr
    MaxDate=MAX(maxDate, obig.date)
    MinDate=Min(minDate, obig.date)
endf

SELECT arstock.*;
FROM arstock;
WHERE arstock.DATE=PochDate;
INTO CURSOR STOCK


SELECT obig.*;
FROM obig;
WHERE obig.DATE<PochDate;
UNION all;
SELECT stock.*;
FROM stock;
INTO CURSOR OBIG

PromDate=MaxDate

DO while PromDate>=MinDate
    SELECT stock.*;
    FROM stock;
    UNION all;
    SELECT OBIG.WAREH_CODE, obig.localcode, OBIG.lot_id,;
        OBIG.STOCK, PROMDATE AS DATE;
    FROM obig;
    WHERE OBIG.DATE>=PROMDATE;
    INTO CURSOR stock


    promdate=promdate-1
endd

SELECT stock.WAREH_CODE, stock.localcode, stock.lot_id,;
        SUM(stock.STOCK) AS STOCK, stock.DATE;
    FROM stock;
    GROUP BY stock.DATE, stock.LOCALCODE;
    ORDER BY DATE DESC;
    INTO TABLE ARstock


USE outlets
REPLACE ALL outlets.address WITH RIGHT(Outlets.address,len(Outlets.address)-1)
REPLACE ALL outlets.deliv_addr WITH RIGHT(Outlets.deliv_addr,len(Outlets.deliv_addr)-1)
u
*DELETE ALL FOR Salinld.localcode="                    " or  Salinld.localcode="2                   "
*PACK
*use

SELECT Salouth.date, Saloutld.qty, Saloutld.localcode;
 FROM ;
     saloutld ;
    LEFT OUTER JOIN salouth ;
   ON  Saloutld.invoice_no = Salouth.invoice_no;
union all;
SELECT Salinh.date, Salinld.qty*(-1) as qty, Salinld.localcode;
 FROM ;
     salinld ;
    LEFT OUTER JOIN salinh ;
   ON  Salinld.invoice_no = Salinh.invoice_no;
   into cursor obig

SELECT "3                   " as WAREH_code, obig.localcode as localcode,;
        "                    " as lot_id,;
        obig.qty as stock, obig.date as date;
FROM obig;
INTO CURSOR OBIG

PUBLIC MaxDate, MinDate, RecnMax, NumStr, PromDate
MaxDate=obig.date
MinDate=obig.date

GO bott
recnmax=RECNO()
FOR Numstr=1 TO recnMax STEP 1
    GO numstr
    MaxDate=MAX(maxDate, obig.date)
    MinDate=Min(minDate, obig.date)
endf

SELECT arstock.*;
FROM arstock;
WHERE arstock.DATE=PochDate;
INTO CURSOR STOCK


SELECT obig.*;
FROM obig;
WHERE obig.DATE<PochDate;
UNION all;
SELECT stock.*;
FROM stock;
INTO CURSOR OBIG

PromDate=MaxDate

DO while PromDate>=MinDate
    SELECT stock.*;
    FROM stock;
    UNION all;
    SELECT OBIG.WAREH_CODE, obig.localcode, OBIG.lot_id,;
        OBIG.STOCK, PROMDATE AS DATE;
    FROM obig;
    WHERE OBIG.DATE>=PROMDATE;
    INTO CURSOR stock


    promdate=promdate-1
endd

SELECT stock.WAREH_CODE, stock.localcode, stock.lot_id,;
        SUM(stock.STOCK) AS STOCK, stock.DATE;
    FROM stock;
    GROUP BY stock.DATE, stock.LOCALCODE;
    ORDER BY DATE DESC;
    INTO TABLE ARstock


USE outlets
REPLACE ALL outlets.address WITH RIGHT(Outlets.address,len(Outlets.address)-1)
REPLACE ALL outlets.deliv_addr WITH RIGHT(Outlets.deliv_addr,len(Outlets.deliv_addr)-1)
u
*PACK
*use

SELECT Salouth.date, Saloutld.qty, Saloutld.localcode;
 FROM ;
     saloutld ;
    LEFT OUTER JOIN salouth ;
   ON  Saloutld.invoice_no = Salouth.invoice_no;
union all;
SELECT Salinh.date, Salinld.qty*(-1) as qty, Salinld.localcode;
 FROM ;
     salinld ;
    LEFT OUTER JOIN salinh ;
   ON  Salinld.invoice_no = Salinh.invoice_no;
   into cursor obig

SELECT "3                   " as WAREH_code, obig.localcode as localcode,;
        "                    " as lot_id,;
        obig.qty as stock, obig.date as date;
FROM obig;
INTO CURSOR OBIG

PUBLIC MaxDate, MinDate, RecnMax, NumStr, PromDate
MaxDate=obig.date
MinDate=obig.date

GO bott
recnmax=RECNO()
FOR Numstr=1 TO recnMax STEP 1
    GO numstr
    MaxDate=MAX(maxDate, obig.date)
    MinDate=Min(minDate, obig.date)
endf

SELECT arstock.*;
FROM arstock;
WHERE arstock.DATE=PochDate;
INTO CURSOR STOCK


SELECT obig.*;
FROM obig;
WHERE obig.DATE<PochDate;
UNION all;
SELECT stock.*;
FROM stock;
INTO CURSOR OBIG

PromDate=MaxDate

DO while PromDate>=MinDate
    SELECT stock.*;
    FROM stock;
    UNION all;
    SELECT OBIG.WAREH_CODE, obig.localcode, OBIG.lot_id,;
        OBIG.STOCK, PROMDATE AS DATE;
    FROM obig;
    WHERE OBIG.DATE>=PROMDATE;
    INTO CURSOR stock


    promdate=promdate-1
endd

SELECT stock.WAREH_CODE, stock.localcode, stock.lot_id,;
        SUM(stock.STOCK) AS STOCK, stock.DATE;
    FROM stock;
    GROUP BY stock.DATE, stock.LOCALCODE;
    ORDER BY DATE DESC;
    INTO TABLE ARstock


USE outlets
REPLACE ALL outlets.address WITH RIGHT(Outlets.address,len(Outlets.address)-1)
REPLACE ALL outlets.deliv_addr WITH RIGHT(Outlets.deliv_addr,len(Outlets.deliv_addr)-1)
u
*use

SELECT Salouth.date, Saloutld.qty, Saloutld.localcode;
 FROM ;
     saloutld ;
    LEFT OUTER JOIN salouth ;
   ON  Saloutld.invoice_no = Salouth.invoice_no;
union all;
SELECT Salinh.date, Salinld.qty*(-1) as qty, Salinld.localcode;
 FROM ;
     salinld ;
    LEFT OUTER JOIN salinh ;
   ON  Salinld.invoice_no = Salinh.invoice_no;
   into cursor obig

SELECT "3                   " as WAREH_code, obig.localcode as localcode,;
        "                    " as lot_id,;
        obig.qty as stock, obig.date as date;
FROM obig;
INTO CURSOR OBIG

PUBLIC MaxDate, MinDate, RecnMax, NumStr, PromDate
MaxDate=obig.date
MinDate=obig.date

GO bott
recnmax=RECNO()
FOR Numstr=1 TO recnMax STEP 1
    GO numstr
    MaxDate=MAX(maxDate, obig.date)
    MinDate=Min(minDate, obig.date)
endf

SELECT arstock.*;
FROM arstock;
WHERE arstock.DATE=PochDate;
INTO CURSOR STOCK


SELECT obig.*;
FROM obig;
WHERE obig.DATE<PochDate;
UNION all;
SELECT stock.*;
FROM stock;
INTO CURSOR OBIG

PromDate=MaxDate

DO while PromDate>=MinDate
    SELECT stock.*;
    FROM stock;
    UNION all;
    SELECT OBIG.WAREH_CODE, obig.localcode, OBIG.lot_id,;
        OBIG.STOCK, PROMDATE AS DATE;
    FROM obig;
    WHERE OBIG.DATE>=PROMDATE;
    INTO CURSOR stock


    promdate=promdate-1
endd

SELECT stock.WAREH_CODE, stock.localcode, stock.lot_id,;
        SUM(stock.STOCK) AS STOCK, stock.DATE;
    FROM stock;
    GROUP BY stock.DATE, stock.LOCALCODE;
    ORDER BY DATE DESC;
    INTO TABLE ARstock


USE outlets
REPLACE ALL outlets.address WITH RIGHT(Outlets.address,len(Outlets.address)-1)
REPLACE ALL outlets.deliv_addr WITH RIGHT(Outlets.deliv_addr,len(Outlets.deliv_addr)-1)
use