select goods_mass,
       (case
       when substr((GOODS_MASS - substr(GOODS_MASS, 1, instr(GOODS_MASS, ',',1,1) - 1)), 2, 1) is null then GOODS_MASS
       when GOODS_MASS < 10 then round(GOODS_MASS,1)
       when GOODS_MASS > 10 then substr(GOODS_MASS, 1, instr(GOODS_MASS, ',',1,1)-1)+1 
       end)as mass_r;

  Update Dtj_Reestr T
     Set (T.Ktj_Summ, T.Koef_Vpk, T.Tariff_Summ, T.Mass_round, T.Summ_round) =
         (Select T.Goods_Mass * Dt.Tariff * 151, Dt.Koefficent, Dt.Tariff,
              case
              when substr((GOODS_MASS - substr(GOODS_MASS, 1, instr(GOODS_MASS, ',',1,1) - 1)), 2, 1) is null then GOODS_MASS
              when GOODS_MASS < 10 then round(GOODS_MASS,1)
              when GOODS_MASS > 10 then substr(GOODS_MASS, 1, instr(GOODS_MASS, ',',1,1)-1)+1
              end,         
              case 
              when substr((GOODS_MASS - substr(GOODS_MASS, 1, instr(GOODS_MASS, ',',1,1) - 1)), 2, 1) is null 
              then GOODS_MASS * Dt.Tariff*151 
              when GOODS_MASS < 10 then round(GOODS_MASS,1) * Dt.Tariff *151
              when GOODS_MASS > 10 then (substr(GOODS_MASS, 1, instr(GOODS_MASS, ',',1,1)-1)+1) * Dt.Tariff*151
              end         
            From Dtj_Tariff2 Dt
           Where t.distance_id=dt.distance_id
             AND t.direction_id=dt.direction_id
             And T.Moving_Type_Id = Dt.Moving_Type_Id
             AND t.good_group_id = dt.goods_group_id
             AND t.date_order between dt.period_date and dt.period_end)
   Where T.Vagon_Registers_Id = P_Vagon_Registers_Id
     And (T.Goods_Code_Id <> 2000 Or T.Goods_Code_Id <> 3000) AND t.distance_id=1 ;