>>The ERROR is
>>"1 File 'lockrec.prg' does not exist. 136 SHIPPING_MAIN.DESTROY"
>>
>>Exercpt of the code..................
>

>>  else
>>        repo form ship2 to prin
>>     endi
>>      NEXT                    &&TYPE P:&FF TO PRIN
>>    ENDI
>>
>>     SET CONS ON
>>     SET PRIN TO
>>     SET PRIN OFF
>>                       LINE 136 is HERE!
>>MACT = 'SHIPSRC0-2001'
>>USE &LD:JONTRANS
>>APPE BLAN
>>DO LOCKREC
>>IF OKTOSAVE
>> REPL ACTION WITH Mcall
>> REPL WHO WITH NAME
>> REPL THEDATE WITH DATE()
>

>
>Well, the error message is quite clear - the LockRec.prg is not found. Are you sure, you have this program in the project? Are you testing form alone? Is this prg in the set("path")?
>
>I think, you miscalculated the line or somehow the line returned shows incorrectly. It is obvious, that DO LOCKREC produces an error. Also the USE &LD:JONTRANS looks strange. What is the name of the table you want to use? I think, there is a typo in that line. Colon is not allowed in the table name.
>
>Finally, I think, it would be better to create a new method in the form called SaveChanges and use this method instead of Destroy...

The code has been working for long time, now this crazy error. happens only occasionally. When would method "SaveChanges" be executed and how? I ususally stick to standard methods.