IF WVISIBLE("properties")
HIDE WINDOW ("properties")
endi
SELECT 1
USE
SELECT 2
USE
SELECT 3
USE
v_mod = .F.
v_crea=.F.
v_supr=.F.
v_numero=15
v_recno_res=1

USE frz!articles ALIAS ar2 IN 5

PUBLIC ARRAY reserv_lg (19,1)

USE frz!sdarti ORDER codeart ALIAS AR shared IN 1


USE frz!pgclient ORDER nomcli ALIAS CL EXCLUSIVE IN 2

USE frz!reserv ORDER nomcli ALIAS res EXCLUSIVE IN 3

USE frz!pgrep ORDER cdrep ALIAS rep EXCLUSIVE IN 4

SELECT res
SET RELATION TO codearti inTO ar
SET DELETED ON
GO top
v_res_filtre_nom=SPACE(5)
v_res_filtre_prod=SPACE(5)
v_rech_res= "  "
v_rech_prod=SPACE(5)
v_rech=SPACE(20)
v_tot_arti_bt=0.00
v_tot_arti_mg=0.00
v_tot_arti_lit = 0.00
v_tot_rescli_bt=0.00
v_tot_rescli_mg=0.00
v_tot_rescli_lit=0.00
v_titre_rap ="PRODUIT"
SET EXACT OFF

SCATTER TO reserv_lg
DO FORM f_reserv_list

SELECT 1
USE
SELECT 2
USE
SELECT 3
USE
SELECT 4
USE

SELECT 5
USE