Currency __declspec(dllexport) BMove(TComponent* Owner,TTable *D,TTable *R)
{
//把一个表追加到另一个表中（用BatchMove)
file://AisiString 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->Mappings->Add("UPRICE=UPRICE");
BM->Mappings->Add("PCS=PCS");
BM->Mode=batAppend;
BM->Execute();
}
delete BM;
return(CR);
}
