SET talk off
SELECT 0
use
SELECT 1
USE
SELECT 2
USE
SELECT 1
USE cavespriv!contenants ORDER numero ALIAS contenants SHARED 
SELECT 2
USE cavespriv!articles ORDER codeart ALIAS articles SHARED 
SELECT 3
USE cavespriv!lieux order zone ALIAS lieux SHARED

*SELECT 1
SELECT articles
*CURSORSETPROP('buffering', 5)
SELECT contenants
*CURSORSETPROP('buffering', 5)
SET RELATION TO codearti INTO articles,lieu INTO lieux additive
*SET TALK on
*LOCAL lobox as Character,locodearti as Character,lolieu as Character,loprop as Character,lofiltre as Character,locondfiltre as Character 
Lobox = "B001  "
Locodearti="BGO01"
Lolieu ="       "
Loprop ="A"
Lofiltre=SPACE(10)
Locondfiltre=SPACE(2)
*thisform.BindControls=.t.
*thisform.ControlBox= .T.
SET FILTER TO 
SET TALK off
DO FORM c:\dbxl\datacompriv\cont_rapide1
SET RELATION OFF INTO articles
SET RELATION OFF INTO lieux
SELECT 1
USE
SELECT 2
USE
SELECT 3
use
Do FORM c:\dbxl\datacompriv\f_menu_g
RETURN