PROCEDURE TXDR
* txdr
clear
anz=2
@ 5,5 say "Wie oft drucken ?" get anz pict "9"
read
zaehler=0
do while .t.

zaehler=zaehler+1
if zaehler>anz
   exit
endif

set device to print
set margin to 0
if adrschl="serie"
   schlbest=substr(n1,1,6)
   letzt=substr(n2,1,6)
   select 1
   find &schlbest
   if eof()
      clear
      wait "Achtung!!! Auftrags-Nr -von- nicht vorhanden ... ENTER"
      clear
      set device to screen
      select 8
      return
   endif
endif
do while .t.
select 8
if adrschl="serie"
   select 1
   if eof().or.auftrnr>val(letzt)
      exit
   endif
   select 1
   @ 12,8 say ansp_anr
   @ 13,8 say trim(ansp_vname)+" "+ansp_name
   @ 14,8 say ansp_str
   @ 16,8 say ansp_ort
else
   select 8
   @ 12,8 say n1
   @ 13,8 say n2
   @ 14,8 say str
   @ 16,8 say ort
endif
select 8
zzdate=dtoc(datum)
zzdate=substr(zzdate,1,6)+substr(zzdate,7,4)
if kennz="  "
   @ 20,65 say zzdate
else
   @ 20,65 say zzdate+"/"+kennz
endif
@ 23,8 say betrz
@ 24,8 say betrz2
@ 25,8 say betrz3

@ 29,8 say z1
@ 30,8 say z2
@ 31,8 say z3
@ 32,8 say z4
@ 33,8 say z5
@ 34,8 say z6
@ 35,8 say z7
@ 36,8 say z8
@ 37,8 say z9
@ 38,8 say z10
@ 39,8 say z11
@ 40,8 say z12
@ 41,8 say z13
@ 42,8 say z14
@ 43,8 say z15
@ 44,8 say z16
@ 45,8 say z17
@ 46,8 say z18
@ 47,8 say z19
@ 48,8 say z20
@ 49,8 say z21
@ 50,8 say z22
@ 51,8 say z23
@ 52,8 say z24
@ 53,8 say z25
@ 54,8 say z26
@ 55,8 say z27
@ 56,8 say z28
@ 57,8 say z29
@ 58,8 say z30
@ 59,8 say z31
@ 60,8 say z32
@ 61,8 say z33
eject
if adrschl="serie"
   select 1
   skip
   loop
else
   exit
endif
enddo
enddo
set device to screen
select 8
return