Currency __Declspec (dllexport) bmove (tComponent * Owner, TTable * D, TTable * r) {// Add a table to another table (with BatchMove)
File: // aistring mdate = "sdate =" now (). DateString (); tbatchmove * bm = new tbatchmove (Owner); currency cr = 0; for (r-> first () ;! r-> EOF; R-> Next ()) {Cr = r-> FieldByname ("tprice") -> ascurrency; bm-> source = r; bm-> destination = d; bm-> mappings-> clear (); bm- > Mappings-> add ("price = tprice"); bm-> mappings-> add ("pruno = pruno"); file: // bm-> mappings-> add (mdate); bm-> mapings-> add ("UPRICE = UPRICE"); bm-> mappings-> add ("pcs = pcs"); bm-> mode = BataPpend; bm-> execute ();} delete bm; return (cr);}
