>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
> 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...
If it's not broken, fix it until it is.
My Blog