DbfWebServer. Способ эффективной работы с таблицами DBFв среде Интернет. А. Шевелёв

      IF inT=0

      aDel (arrDbfRun,1)

      IF (ixB:=DbfBlo00-> (NaiSpr (iOrd,1,3))) =»»

      ixAddVal (ixB, iOrd, SubStr (iOrd,9),ixB:=«*»)

      ixB:=» {||.t.}»

      ELSEIF ixB=«*»

      ixB:=» {||.t.}»

      ELSEIF ixB=» {|»

      ELSE

      ixB:=» {||"+ixB+»}»

      ENDIF

      arrDbfRun [Int:=Len (arrDbfRun)]:= {iOrd,& (ixB)}

      END

      BEGIN SEQUENCE

      ixO:=iOrd

      reT:=eVal (arrDbfRun [inT,2])

      RECOVER

      eval (& (» {||.t.}»))

      errorblock (ErrorBlock ({||.t.}))

      END SEQUENCE

      RETURN reT

      *********************************************************