*pgetq0 edition des etiquettes d'exp‚dition
*nombre en fonction des bouteilles ???
*base commandes et lignes de commandes
titre = "EDITION DES ETIQUETTES"
NIVEAU = 2
DO WHILE .t.
DO titre
vnom=space(30)
vnumcom =0
@ 8,2 SAY "Num‚ro de la commande "GET vnumcom
READ
IF vnumcom=0
@ 10,2 SAY"nom client" GET vnom picture "@!"
READ
IF vnom=SPACE(30)
EXIT
ENDI
ENDI
************************
SET ESCAP OFF
sele 1
USE &cldb INDEX &clndx1,&clndx2 ALIAS cl
SELE 2
USE pgcom INDEX pgcomnom,pgcomnu,pgcomcd,pgcomdate ALIAS FC
SELE 4
USE pgLIGNES INDEX pgLIGNE1,pgLIGNE2 ALIAS LG
@ 6,0 CLEAR
CLEAR TYPE
IF vnom <> SPACE(30)
sele cl
find &vnom          
prg="pgprcli.prg"
do pgficar
rep="O"
@ 22 ,10 SAY "Est ce le bon O/N" GET REP
READ
IF REP="N"
LOOP
ENDI
vnom = nomcli
vcdcli=cl->codecli
SELE FC
set order to 1
find &vnom
*********************
NLFAC=40
NLPG=66
NLET=5
SET ESCAP OFF
WSET window clients TO 7,10,17,79
WSET window articles TO 7,0,17,33
WSET window saisie TO 19,1,24,78
WSELE 3
WUSE SAISIE
WSELE 2
WUSE articles
WSELE 1
WUSE clients
WSELE 1
champs ="substr(nomclient,1,30),numcom"
ligne="substr(nomclient,1,30),numcom"
*ligne = "quantite,codearti"
WL=11
sele fc
DO pgpresw1
IF  CAR =KEYCR
vnumcom=numcom
WSELE 0
WRELEASE ALL
endi
endi
sele fc
SET ORDER TO 2
SEEK VNUMCOM
? vnumcom
SET esca ON
IF .NOT. EOF()
sele lg
seek vnumcom
if eof()
exit
endi
* calcul du nombre
nbbt=1
do while numcom=vnumcom
nbbt=nbbt+lg->quantite
skip     
enddo
nbbt = int(nbbt/12)+1       
sele fc
fr="1"
nbe=0
@15,0 clear                                                                  
@ 16,2 say"client : "
@ 16,12 say fc->nomclient
wait
@ 22,2 say "fournisseur 1 AFG 2 SAAF 3 PG 4 PA" get fr picture "9"
@ 23,2 say "nombre d‚tiquettes" get nbbt
read
@ 22,0 clear           
@ 22,2 say " CALLEZ LE PAPIER "
do uncar
do while nbe < nbbt
do case
case fr="1"
*label form pgetq1 for numcom=vnumcom to print
set print on           
lv=0
?
?
? chr(27)+chr(119)+chr(49)+"             DOMAINE A. F. GROS"
? chr(27)+chr(119)+chr(48)+"  LA GARELLE Route d'Ivry"
? "             "+chr(27)+chr(69)+"21630 POMMARD "+chr(27)+chr(70)+"/ FRANCE"
?                                                                                       
? "  "+chr(15)+"T‚l: 80 22 61 85"+chr(18)+"                       "+chr(15)+"FAX: 80 24 03 16"+chr(18)
case fr="2"
set print on           
lv=0
?
?
? chr(27)+chr(119)+chr(49)+"             SA DOMAINE A. F. GROS"
? chr(27)+chr(119)+chr(48)+"  LA GARELLE Route d'Ivry"
? "             "+chr(27)+chr(69)+"21630 POMMARD "+chr(27)+chr(70)+"/ FRANCE"
?                                                                                       
? "  "+chr(15)+"T‚l: 80 22 61 85"+chr(18)+"                       "+chr(15)+"FAX: 80 24 03 16"+chr(18)
case fr="3"
set print on           
lv=0
?
?
? chr(27)+chr(119)+chr(49)+"             SA DOMAINE PARENT"
? chr(27)+chr(119)+chr(48)+"             Place de l'Eglise"
? "             "+chr(27)+chr(69)+"21630 POMMARD "+chr(27)+chr(70)+"/ FRANCE"
?                                                                                       
? "  "+chr(15)+"T‚l: 80 22 15 08 ou 80 22 61 85"+chr(18)+"        "+chr(15)+"FAX: 80 24 19 33"+chr(18)
case fr="4"
set print on
lv=0
?
?
? chr(27)+chr(119)+chr(49)+"             SA JACQUES PARENT "
? chr(27)+chr(119)+chr(48)+"             Pace de l'Eglise"
? "             "+chr(27)+chr(69)+"21630 POMMARD "+chr(27)+chr(70)+"/ FRANCE"
?                                                                                       
? "  "+chr(15)+"T‚l: 80 22 15 08 ou 80 22 61 85"+chr(18)+"        "+chr(15)+"FAX: 80 24 19 33"+chr(18)
endcase
?
if fc->entete<>""
? chr(27)+chr(119)+chr(49)+"              "+trim(fc->entete)+" "+substr(fc->nomliv,1,27)
else
? chr(27)+chr(119)+chr(49)+"              "+substr(fc->nomliv,1,33)
endi 
?
? chr(27)+chr(119)+chr(48)+"              "+fc->ad1liv
if fc->ad2liv <>""
? "              "+fc->ad2liv
else        
lv =lv+1
endi
if fc->ad3liv <>""
? "              "+fc->ad3liv
else        
lv =lv+1
endi
?chr(27)+chr(69)+"              "+fc->codliv+" "+fc->villeliv+chr(27)+chr(70)
?
? "              "+fc->paysliv
for l=1to lv+2
?
next l
nbe=nbe+1
enddo
endi     
set print off     
ENDDO
CLOSE DATA
RETU