>Select Sales
>set relation into Substr(Dtos(Date),1,6)+Code to Open_Stock,  DTOS(DATE)+Code  to  Purchase
>

Select Sales
set relation to Substr(Dtos(Date),1,6)+Code into Open_Stock,  DTOS(DATE)+Code  into  Purchase