*SET DEFAULT TO c:\dbxl\datacom
*rapatriement de sarlfrz
SET DEFAULT TO c:\dbxl\sarlfrz
IF FILE("v:\sarlfrz\sdarti.dbf") then
l_frz=1
COPY FILE v:\sarlfrz\sdarti.dbf TO c:\dbxl\sarlfrz\sdartifrz.dbf
USE frz!sdarti ALIAS ar exclusive IN 1
SELECT ar
ZAP
APPEND FROM c:\dbxl\sarlfrz\sdartifrz.dbf
REINDEX
replace ALL ar.groupcave WITH TRIM(ar.group)+ RIGHT(TRIM(ar.codeart),2)
GO top
USE
ELSE 
l_frz=0
endi
CLOSE DATABASES  
IF FILE("v:\saafjp\sdarti.dbf") then
l_af=1
COPY FILE v:\saafjp\sdarti.dbf TO c:\dbxl\saafjp\sdartiaf.dbf
SET DEFAULT TO c:\dbxl\saafjp
USE afg!sdarti ALIAS ar exclusive IN 1
SELECT ar
ZAP
APPEND FROM c:\dbxl\saafjp\sdartiaf.dbf
REINDEX
replace ALL ar.groupcave WITH TRIM(ar.group)+ RIGHT(TRIM(ar.codeart),2)
USE
CLOSE DATABASES
endi
SET DEFAULT TO c:\dbxl\datacom
IF l_frz=1 AND l_af=1
SELECT 1
USE caves!articles ALIAS ar exclusive
zap
APPEND FROM c:\dbxl\saafjp\sdarti FOR (famille="B")and quantite>0
*SET FILTER TO RIGHT(TRIM(ar.codeart),1)<>"F"
GO top
replace ALL ar.codeart WITH TRIM(ar.codeart)+"A" IN ar nooptimize
browse
*GO bott
CLOSE DATABASES
SET DEFAULT TO c:\dbxl\datacom
OPEN DATABASE c:\dbxl\datacom\caves EXCLUSIVE
SELECT 1
USE caves!articles ALIAS ar
APPEND FROM c:\dbxl\sarlfrz\sdarti FOR (famille="B")and quantite>0
replace ALL ar.codeart WITH TRIM(ar.codeart)+"F" FOR RIGHT(TRIM(ar.codeart),1) <> "A"
GO top
SET ORDER TO codeart
SEEK ""
IF NOT FOUND() then
APPEND BLANK
else
replace ar.designart WITH "VIDE"
ENDIF
SELECT 2
USE contenants ORDER codearti ALIAS ctn
SELECT 1
GO top
DO while NOT EOF()
SELECT 2
replace ALL ctn.group WITH ar.group FOR ctn.codearti=ar.codeart
SELECT 1
SKIP
enddo

SET FILTER TO 
BROWSE
CLOSE TABLES
SELECT 1
USE
SELECT 2
USE
SELECT 3
USE
SELECT 4
USE
CLOSE DATABASES 
endi
OPEN DATABASE c:\dbxl\datacom\caves shared
SET MULTILOCKS ON
*DO cave_presart
RETURN