What means Err_DB_FrontLenTooLong DB_Err(1204)

Internal Error 1204 in module 19:
#Err_DB_FrontLenTooLong

This error is only valid for CODE fields.

When a Code field is saved in the database then it is saved with an information byte.
If the Code field only contains numbers (123..) then the information byte contains the length of the numbers, if there is saved 5 numbers in a field then the information byte will be 5.
If alphanumerically signs are in the field then the information byte will always be 255.

The error occurs when the information byte for alphanumerically fields not is 255.
The error can be due to harddisk error or other program that have changed in the database.


LOCATE THE FIELDS WITH THE ERROR:
A DBTEST will tell you in which table the error is.

To localize in which field the error is, you must make a report with the following code for ALL Code fields in table with the error.

1. Make a report with the variable NEWCODE (type Code, length 132)
2. For all Code fields in table with the error, the following lines must be run.
EVALUATE(NEWCODE,FORMAT(Code field))
IF NEWCODE <> CodeField then (print 'here is an error') use for an example genSELECTLINES.

HOW TO CORRECT THE ERROR:
When knowing the fields with the error, then just retype the information in the fields.
If there is a lot of fields the make a report that will modify the field with NEWCODE, but remeber to print out what will be modified in the field, because the new contents might not be understandable.

I think, my solution in this topic (http://www.mibuso.com/forum/viewtopic.php?p=13312#13312) could fix the error:

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 
        FldRef.VALUE := DELCHR(UPPERCASE(FldRef.VALUE),'<>'); 
    END; 
    RecRef.MODIFY; 
  UNTIL RecRef.NEXT = 0;