while not DS_REP_RASH_TN_Cena.Eof do
   begin
     i := DS_REP_RASH_TN_Cena.FieldByName('R_ID').AsInteger;
     if i > 0 then
     begin
       if Form2.IBDataSet1.Locate('ID', i, []) then
       begin
         curr := Form2.IBDataSet1.FieldByName('G_PRICE').AsCurrency;

         DS_REP_RASH_TN_Cena.Edit;
         if (curr = 0) and (DS_REP_RASH_TN_Cena.Fields[1].AsCurrency > 0) then
           DS_REP_RASH_TN_Cena.Fields[1].AsCurrency := -1
         else
           DS_REP_RASH_TN_Cena.Fields[1].AsCurrency :=
             DS_REP_RASH_TN_Cena.Fields[1].AsCurrency * curr;

         i := 2;
         while i < iLen do
         begin
           if DBGrid2.Columns[i].Visible then
           begin
             if (curr = 0) and (DS_REP_RASH_TN_Cena.Fields[i].AsCurrency > 0) then
               DS_REP_RASH_TN_Cena.Fields[i].AsCurrency := -1
              else
               DS_REP_RASH_TN_Cena.Fields[i].AsCurrency :=
                 DS_REP_RASH_TN_Cena.Fields[i].AsCurrency * curr;
           end;
           if DBGrid2.Columns[i + 1].Visible then
           begin
             if (curr = 0) and
               (DS_REP_RASH_TN_Cena.Fields[i + 1].AsCurrency > 0) then
               DS_REP_RASH_TN_Cena.Fields[i + 1].AsCurrency := -1
             else
               DS_REP_RASH_TN_Cena.Fields[i + 1].AsCurrency :=
                 DS_REP_RASH_TN_Cena.Fields[i + 1].AsCurrency * curr;
           end;
           Inc(i, 2);
         end;
         DS_REP_RASH_TN_Cena.Post;
       end;
 
     end;
     DS_REP_RASH_TN_Cena.Next;
   end;