*rapatriement de sarlfrz
SET DEFAULT TO c:\dbxl\sarlfrz
IF FILE("v:\sarlfrz\sdarti.dbf") then
l_frz=1
SET SAFETY OFF
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
GO top
USE
*COPY FILE v:\sarlfrz\bgbanque.dbf TO c:\dbxl\sarlfrz\bgbanquefrz.dbf
*USE frz!bgbanque ALIAS bq exclusive IN 1
*SELECT bq
*ZAP
*APPEND FROM c:\dbxl\sarlfrz\bgbanquefrz.dbf
*reindex
*GO top
*USE
COPY FILE v:\sarlfrz\bglireg.dbf TO c:\dbxl\sarlfrz\bgliregfrz.dbf
USE frz!bglireg ALIAS rg exclusive IN 1
SELECT rg
ZAP
APPEND FROM c:\dbxl\sarlfrz\bgliregfrz.dbf
reindex
GO top
USE
****
COPY FILE v:\sarlfrz\bglireg.dbf TO c:\dbxl\sarlfrz\bgliregfrz.dbf
USE frz!bglireg ALIAS rg exclusive IN 1
SELECT rg
ZAP
APPEND FROM c:\dbxl\sarlfrz\bgliregfrz.dbf
reindex
GO top
USE
****
COPY FILE v:\sarlfrz\bgmvsto.dbf TO c:\dbxl\sarlfrz\bgmvstofrz.dbf
USE frz!bgmvsto ALIAS mv exclusive IN 1
SELECT mv
ZAP
APPEND FROM c:\dbxl\sarlfrz\bgmvstofrz.dbf
reindex
GO top
USE
***
COPY FILE v:\sarlfrz\bgregd.dbf TO c:\dbxl\sarlfrz\bgregdfrz.dbf
USE frz!bgregd ALIAS rd exclusive IN 1
SELECT rd
ZAP
APPEND FROM c:\dbxl\sarlfrz\bgregdfrz.dbf
reindex
GO top
USE
***
COPY FILE v:\sarlfrz\bgrgt.dbf TO c:\dbxl\sarlfrz\bgrgtfrz.dbf
USE frz!bgrgt ALIAS rgt exclusive IN 1
SELECT rgt
ZAP
APPEND FROM c:\dbxl\sarlfrz\bgrgtfrz.dbf
reindex
GO top
****
USE
COPY FILE v:\sarlfrz\DAA.dbf TO c:\dbxl\sarlfrz\DAAfrz.dbf
USE frz!DAA ALIAS da exclusive IN 1
SELECT da
ZAP
APPEND FROM c:\dbxl\sarlfrz\DAAfrz.dbf
reindex
GO top
USE
***
COPY FILE v:\sarlfrz\FP_COM.dbf TO c:\dbxl\sarlfrz\FP_COMfrz.dbf
USE frz!FP_COM ALIAS com exclusive IN 1
SELECT com
ZAP
APPEND FROM c:\dbxl\sarlfrz\FP_COMfrz.dbf
reindex
GO top
USE
***
COPY FILE v:\sarlfrz\FP_DA_LG.dbf TO c:\dbxl\sarlfrz\FP_DA_LGfrz.dbf
USE frz!FP_DA_LG ALIAS dal exclusive IN 1
SELECT dal
ZAP
APPEND FROM c:\dbxl\sarlfrz\FP_DA_LGfrz.dbf
reindex
GO top
USE
***
COPY FILE v:\sarlfrz\FP_DAC.dbf TO c:\dbxl\sarlfrz\FP_DACfrz.dbf
USE frz!FP_DAC ALIAS dac exclusive IN 1
SELECT dac
ZAP
APPEND FROM c:\dbxl\sarlfrz\FP_DACfrz.dbf
reindex
GO top
USE
***
COPY FILE v:\sarlfrz\SDFACTUR.dbf TO c:\dbxl\sarlfrz\SDFACTURfrz.dbf
USE frz!SDFACTUR ALIAS fc exclusive IN 1
SELECT fc
ZAP
APPEND FROM c:\dbxl\sarlfrz\SDFACTURfrz.dbf
reindex
GO top
USE
***
COPY FILE v:\sarlfrz\SDLIGNES.dbf TO c:\dbxl\sarlfrz\SDLIGNESfrz.dbf
USE frz!SDLIGNES ALIAS lg exclusive IN 1
SELECT lg
ZAP
APPEND FROM c:\dbxl\sarlfrz\SDLIGNESfrz.dbf
reindex
GO top
USE
***
*COPY FILE v:\sarlfrz\bgregd.dbf TO c:\dbxl\sarlfrz\bgregdfrz.dbf
*USE frz!bgregd ALIAS rd exclusive IN 1
*SELECT rd
*ZAP
*APPEND FROM c:\dbxl\sarlfrz\bgregdfrz.dbf
*reindex
*GO top
*USE
***
SET SAFETY on
ELSE 
l_frz=0
endi
CLOSE DATABASES