*RECHERCHE DAA       NUMERO
SET TALK OFF
pol1=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s12H"+chr(27)+"(s10V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
pol2=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s19H"+chr(27)+"(s12V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
pol3=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s1P"+chr(27)+"(s5H"+chr(27)+"(s24V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s6T"
pol4=CHR(27)+"&l0O"+chr(27)+"(s12U"+chr(27)+"(s0P"+chr(27)+"(s10H"+chr(27)+"(s12V"+chr(27)+"(s0S"+chr(27)+"(s0B"+chr(27)+"(s3T"
TITRE="EDITION DE DEMANDE DE DAA"
SELECT 1
USE &cldb INDEX &clndx1,&clndx2  ALIAS CL
SELE 2
USE SDFACTUR INDEX SDFACTUR,FACTURN ALIAS FC
SELE 3
USE SDARTI INDEX SDARTI ALIAS AR
SELE 4
USE SDLIGNES INDEX SDLIGNES,SDLIGNE2 ALIAS LG
DO WHILE .T.
DO TITRE
NUMDEB=0
NUMFIN=99
@ 12,2 SAY"NUMERO " GET NUMDEB
READ
IF NUMDEB=0
EXIT                                 
ENDI                                 
SET ESCA ON                                 
NLFAC=40
NLPG=66
NLET=5
*ET ESCAP OFF
TITRE = "DEMANDE DE DAA"
rep="N"            
SELE FC
SET ORDER TO 2           
SEEK NUMDEB
IF .NOT.EOF()
RECFIC=RECNO()
VNUMTMP=NUMERO
rep="N"
@ 16,2 say" VOULEZ VOUS COMPLETER LES DONNEES O/N" get rep picture "!"
read
if rep = "O"
do bgdebfac
endi
********
@ 7,0 clear
v7l1=idtvacli
v7l2=fc->entete+" "+trim(fc->nomcli)+" "+trim(fc->prenomcli)
v7l2=ltrim(v7l2)
v7l2=v7l2+space(55-len(v7l2))
v7l3=trim(FC->ad1cli)
if v7l3=""
v7l3=space(55)
else
v7l3=trim(v7l3)
v7l3=v7l3+space(55-len(v7l3))
endi
v7l4=trim(fc->ad2cli)
if v7l4=""
v7l4=space(55)
else
v7l4=trim(v7l4)
v7l4=v7l4+space(55-len(v7l4))
endi
v7al1=trim(fc->cpcli)+" "+fc->villecli
v7al1=v7al1+space(55-len(v7al1))
v7al2=space(55)
v7al3=space(55)

v8l1="Recette locale des Douanes 13 rue Thiers 21200 BEAUNE"
v8l2=""
v13=space(3)
v9l1=space(25)
v9l2=space(25)
v10="CA Beaune Nø 21/1902"
v11=space(30)
v12="FR"
v13="    "
v26=v13
if fc->type="C"
 v13=fc->payscli
 else
 v26=fc->payscli
endi
v15="BEAUNE"
v14=""
vh1=val(substr(time(),1,2))
vheure=str(vh1+2,2,0)+" h"
v16=dtoc(date())+" "+vheure+"   "
v17="HUIT JOURS             "
v24l1 =societe
v24l2=vtelsoc
v24l3="A. F. GROS"
v24l4="BEAUNE"+" le, "+dtoc(date())
*v18al1=space(25)
* extraction des valeurs possibles
vtotlit=0000
vtotbt=0000
vnbcb=0000
vnbbtb=12
vnbcr=0000
vnbbtr=12
sele fc
*v19a ="2204     21     13"
v20a=vnbcb*vnbbtb*0.75
v21a=2*v20a
v22a=v20a
v19b ="2204     21     43"
v20b=vnbcr*vnbbtr*.75
v21b=2*v20b
v22b=v20b
v18al2="E 13% ou MOINS "
vcase18bl1=space(25)
v18bl2="VIN ROUGE DE BOURGOGNE DE 13% ou MOINS "
*saisie
@ 8,2 say "case 7 destinataire 1" get v7l1 picture "@!"
@ 9,2 say "case 7 destinataire 2" get v7l2 picture "@!"
@ 10,2 say "case 7 destinataire 3" get v7l3 picture "@!"
@ 11,2 say "case 7 destinataire 4" get v7l4 picture "@!"
@ 12,2 say "case 7a   livraison 1" get v7al1 picture "@!"
@ 13,2 say "case 7a   livraison 2" get v7al2 picture "@!"
@ 14,2 say "case 7a   livraison 3" get v7al3 picture "@!"
@ 15,2 say "case 9l 1 TRANSPORTEUR" get v9l1 picture "@!"
@ 16,2 say "case 9 MATRICUL CAMION" get v9l2 picture "@!"
@ 17,2 say "case 11 PRECISIONS ex (sortie le havre) " get v11 picture "@!"
@ 18,2 say "case 13 PAYS CEE " get v13 picture "@!"
@ 19,2 say "case 16 DATE EXPEDITION + heure " get v16 picture "@!"
@ 20,2 say "case 17 DUREE TRANSPORT " get v17 picture "@!"
@ 21,2 say "case 24 SIGNATAIRE      " get v24l3 picture "@!"
@ 22,2 say "case 24 LIEU DATE       " get v24l4 picture "@!"
@ 23,2 say "case 26 pays FINAL      "get v26 picture "@!"
read
*impression
vnbpage=6
page=0
@ 7,0 clear
@ 12,2 say"nombre de pages " get vnbpage
read
if vnbpage>0
 set print on
 ??chr(27)+"&l0L"
 eject
 set print off
endi
@ 12,2 say"placez les IMPRIMES"
wait
 do while page<vnbpage
 vlit=0
 vcar=0
 vpoids=0
 set print on
 ??chr(27)+"&l26A"+chr(27)+"&l0L"+chr(27)+"&a400V"+pol2
 set margin to 18
 ? chr(27)+"&a18C"+dtoc(fc->datefact)+CHR(27)+"&a69C"+str(vnumtmp,5,0)+chr(27)+"&a120C"+FC->daa
 ?
 ?"                  ID TVA : "+vidtva+chr(27)+"&a75C"+"1"+chr(27)+"&a90C"+vaccise
 ?
 ? societe
 ? "16 rue, Pierre Joigneaux "
 ? "21200 BEAUNE"+chr(27)+"&a90C"+v10
 ?
 ?
 ? v15
 ?
 ? v8l1+chr(27)+"&a90C"+v14
 ? v8l2
 ? chr(27)+"&a50C"+v7l1
 ? v7l2+chr(27)+"&a90C"+v9l1
 ? v7l3+chr(27)+"&a90C"+v9l2
 ? v7l4
 ?
 ? fc->acciscli+chr(27)+"&a55C"+v13+chr(27)+"&a90C"+v11
 ?
 ? v7al1+chr(27)
 ? v7al2
 ? v7al3+chr(27)+"&a55C"+v26+chr(27)+"&a90C"+v16+chr(27)+"&a125C"+v17
 set margin to 5
 ?
 ?
 ?
 sele lg
 set relation to codearti into AR
 go top
 seek vnumtmp
 vcd7=0
  do while lg->numfact = vnumtmp
   if lg->quantite<>0 .and. lg->colisage<>0
    vtotlit=int(lg->quantite*lg->colisage)
     if lg->cartonage>0
      vnbbtb=lg->cartonage
      else    
      do case    
						 case lg->colisage=0.375
       vnbbtb=24
       case lg->colisage=0.75
       vnbbtb=12
       case lg->colisage=1.5
       vnbbtb=6
      endcase
     endi
    vnbcb=int(quantite/vnbbtb)
    vtotbt=quantite
    vlign=0
    vnlign=int(quantite/vnbbtb)
    vcar=vcar+vnbcb
    vlit=vlit+vtotlit
    vpoids=vpoids+val(str(vtotlit*1.89,4,0))
    ? str(vnlign,5,0)+" x "+str(vnbbtb,3,0)+"     "+str(lg->colisage,5,3)+chr(27)+"&a28C"+ar->degre
    ??chr(27)+"&a50C"+substr(ar->designart,1,37)+chr(27)+"&a88C"+str(vtotlit,4,0)+"     "+substr(ar->cddaa,1,11)
    ?? chr(27)+"&a114C"+substr(ar->cddaa,13,1)
    ??chr(27)+"&a125C"+str(vtotlit,4,0)+chr(27)+"&a153C"+str(vtotlit*1.89,4,0)
   endi
   if .not.eof()
    skip
    else
    exit
   endi
  enddo
  do while prow() <46 
   ?
  enddo
  ? str(vcar,4,0)+chr(27)+"&a125C"+str(vlit,5,0)+chr(27)+"&a153C"+str(vpoids,5,0)
  ?
  ?
  ?chr(27)+"&a68C"+"Le pr‚sent document vaut attestation d'appellation d'origine"
  ?chr(27)+"&a68C"+"pour les VQPRD y figurant."
  ?
  ?
  ?
  ?
  ?
  ? chr(27)+"&a96C"+v24l1
  ?
  ? chr(27)+"&a96C"+v24l2
  ?
  ? chr(27)+"&a96C"+v24l3
  ?
  ? chr(27)+"&a96C"+v24l4
  eject
  page=page+1
 enddo
endif
enddo
 ? chr(27)+"E"
 set margin to 0
 set print off
 sET ESCA OFF
 sele 1    
 use          
 close DATA
 RETU