simra » FoxPro

DBF reparieren und bearbeiten

admin — Tue, 12 Jan 2010 09:04:25 +0000

Ein sehr praktisches Tool zum Reparieren und Bearbeiten von dBase III, dBase IV, FoxPro, Visual FoxPro, Dbf und dBase Level 7 Dateien.

http://www.whitetown.com/download/cdbfw.zip

Z.B. bei der folgenden Fehlermeldung:

Table “name” has become corrupted. The table will need to be repaired before using again. (Error 2091)

Modulo 11 Prüfziffer in FoxPro

admin — Wed, 23 Dec 2009 13:12:58 +0000

Hier eine kleine FoxPro Funktion zum Berechnen der «Modulo 11» Prüffziffer.

PROCEDURE modulo_11 (s)
LOCAL x,z,t, c,r,y
t=0
c=7
FOR x = LEN(s) TO 1 STEP -1
z = VAL(SUBSTR(s,x,1))
t = t + c*z
c=c-1
IF c<2
c=7
ENDIF
ENDFOR
r = int(t/11)
r = t-(r*11)
IF r<=9
y="0"+ALLTRIM(STR(r))
ELSE
y=ALLTRIM(STR(r))
ENDIF
RETURN y
ENDIF