PMFJI, I'd like to propose a little modification to your code. I'm not a big fan of DO WHILE .T. ... EXIT, so, here's how I would have done it:
select DispChek
set order to dispchek
do while seek(lcDispatchNumber+DspCkItm.driver+lcdrvnum,'Dispchek','dispchek')
scatter memvar blank
gather memvar
enddo
I have not tested it, but from a quick look, I think it would do the same as your code.
>Yes, that's what I intended to do. I just changed to program code, and it works. This is what I have now:
>
>select DispChek
>set order to dispchek
>do while .t.
> if seek(lcDispatchNumber+DspCkItm.driver+lcdrvnum,'Dispchek','dispchek')
> scatter memvar blank
> sather memvar
> else
> exit
> endif
>enddo
Sylvain Demers