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