UPDATE `cargo_card` SET
`id`=:id,
`contract_cargo_sub_id`=:contract_cargo_sub_id,
`sender_id`=:sender_id,
`receiver_id`=:receiver_id,
`scales_id`=:scales_id,
`shipment_id`=:shipment_id,
`cargo_marking_id`=:cargo_marking_id,
`object_type`=:object_type,
`cargo_card_number`=:cargo_card_number,
`pauzka`=:pauzka,
`cooperated`=:cooperated,
`weight_tara`=:weight_tara,
`weight_netto`=:weight_netto,
`total_weight_brutto`=:total_weight_brutto,
`weight_netto_doc`=:weight_netto_doc,
`weight_brutto_doc`=:weight_brutto_doc,
`cargo_places_doc`=:cargo_places_doc,
`weight_tara_doc`=:weight_tara_doc,
`weight_netto_fact`=:weight_netto_fact,
`weight_brutto_fact`=:weight_brutto_fact,
`cargo_places_fact`=:cargo_places_fact,
`gtn_number`=:gtn_number,
`gtn_date`=:gtn_date,
`conosament_number`=:conosament_number,
`customs_contract_number`=:customs_contract_number,
`customs_contract_date`=:customs_contract_date,
`customs_declaration`=:customs_declaration,
`additional_conditions`=:additional_conditions,
`fact_cost`=:fact_cost,
`dkd`=:dkd,
`sertificate_number`=:sertificate_number,
`currency_code`=:currency_code,
`finished`=:finished,
`owner_is_changed`=:owner_is_changed,
`created_at`=:created_at,
`updated_at`=:updated_at
WHERE (`id`=573831)

  if FFind then
    begin // Найдено
      Q.SQL.Text := 'UPDATE `' + FTableName + '` SET';
      for I := 0 to FData.Count - 1 do
        begin
          if I < FData.Count-1 then
            s := ','
          else
            s := '';
          Q.SQL.Add('`' + FData[I] + '`=:' + FData[I] + s);
        end;

//      Q.SQL.Add(',`updated_at`=''' + updated_at + '''');

      if FWhere <> '' then
        Q.SQL.Add('WHERE ' + FWhere);

      for I := 0 to FData.Count - 1 do
        begin
          DataVal := PQValue(FData.Objects[I])^;
          case DataVal.TypeVal of
            0: begin
                 Q.ParamByName(FData[I]).AsString := DataVal.VString;
                 if DataVal.VString = '' then
                   Q.ParamByName(FData[I]).Value := Null;
               end;
            1: Q.ParamByName(FData[I]).LoadFromStream(DataVal.VStream, ftBlob);
            2: Q.ParamByName(FData[I]).AsDateTime := DataVal.VDateTime;
          end;
        end;

      try
        if not Q.Prepared then
          Q.Prepare;
//                 q.SQL.SaveToFile('e:\sql.txt');
        Q.ExecSQL;
        if rec_id > 0 then
          Result := rec_id
        else
          Result := 1;
      except
        on E: Exception do
          Error := ('error: ' + IntToStr(E.HelpContext) + ' text: ' + E.Message);

      end;
      Q.Close;
    end