* VFP current code IF LEN(Deleted.memofield)>=LEN(inserted.memofield) && with MSSQL language * overwrite memo with inserted.memofield ELSE * move the memo's DBF pointer to end of file, * append the inserted.memofield ( the old block is a zombi file area ) ENDIF * set Length of memo (in bytes) ( memo block header 04-07 ) to new LEN(inserted.memofield) ENDIFbecause the memo file is a file of pages = N*SYS(2012),
* VFP expected correct code IF SYS(2012)*CEILING(LEN(Deleted.memofield)/SYS(2012))>=LEN(inserted.memofield) * overwrite memo with inserted.memofield ELSE * move the memo's DBF pointer to end of file, * append the inserted.memofield ( the old block is a zombi file area ) ENDIF * set Length of memo (in bytes) ( memo block header 04-07 ) to new LEN(inserted.memofield) ENDIFif this coding is used, my repro program return a fixed 1.00,