Function grantCreditLot