When i am trying to take backup of navision database, we are getting the error (1204 in module 19)
Table : Customer
Company:
Key Fields: No.
Please help me asap, becoz i am not able to do any thing becoz of that error.
I have tried that code......
RecRef.OPEN(DATABASE::"YourCorruptTable");
IF RecRef.FIND('-') THEN
REPEAT
FOR I := 1 TO RecRef.FIELDCOUNT DO BEGIN
FldRef := RecRef.FIELDINDEX(I);
IF (UPPERCASE(FORMAT(FldRef.TYPE)) = 'CODE') AND (UPPERCASE(FORMAT(FldRef.CLASS)) = 'NORMAL') THEN
BEGIN
str:=UPPERCASE(FldRef.VALUE);
FldRef.VALUE := DELCHR(str,'<>');
END;
END;
RecRef.MODIFY;
But couldn't suceed, any suggestion?
UNTIL RecRef.NEXT = 0;
Comments
i have tested this also, but couldn't succeed. DO you have any other idea for that.
Did you try exactly what the linked post said?
http://www.BiloBeauty.com
http://www.autismspeaks.org
RecRef.OPEN(DATABASE::"YourCorruptTable");
IF RecRef.FIND('-') THEN
REPEAT
FOR I := 1 TO RecRef.FIELDCOUNT DO BEGIN
FldRef := RecRef.FIELDINDEX(I);
IF (UPPERCASE(FORMAT(FldRef.TYPE)) = 'CODE') AND (UPPERCASE(FORMAT(FldRef.CLASS)) = 'NORMAL') THEN
BEGIN
str:=UPPERCASE(FldRef.VALUE);
FldRef.VALUE := DELCHR(str,'<>');
END;
END;
RecRef.MODIFY;
But couldn't suceed, any suggestion?
UNTIL RecRef.NEXT = 0;