// VVBB.prg     - Setzt Zeilennummern in das BB-Feld der VV-Datei
PROCEDURE VVBB
            SELECT 2
            USE VV EXCLUSIVE
            SET INDEX TO xvvauf
            GO TOP
            nZeile := 1
            DO WHILE .NOT. Eof()
               nAuf := Auftrnr
               IF BB = "  "
//                  REPLACE BB WITH "X"
//               ELSEIF BB = "X"
                  REPLACE BB WITH LTrim(Str( nZeile,2,0 ))
               ELSE
                  ? "Auftrag "+Str(nauf,6,0)+" hat schon Zeilennr. "+bb
//                  wait
               ENDIF
               SKIP
               IF nAuf == Auftrnr
                  ++nZeile
               ELSE
                  nZeile := 1
               ENDIF
            ENDDO
            USE
RETURN