unit YINDEETAN;
procedure main;
var
tc,tc1:tclientdataset;
i:integer;
begin
i:=0;
tc:=Tclientdataset.create(nil);
tc1:=Tclientdataset.create(nil);
tc.data:=Hosxp_Getdataset('select vn,hn,vstdate,smoking_type_id,drinking_type_id '+
'from opdscreen '+
'where ((smoking_type_id is not null) or (drinking_type_id is not null)) '+
'order by vstdate');
ShowDebugText('Found Data import '+inttostr(tc.recordcount)+' Records.');
tc1.data:=Hosxp_Getdataset('select * from smoke_screen');
tc1.open;
while not tc.eof do
begin
i:=i+1;
tc1.insert;
tc1['smoke_screen_id']:=getserialnumber('smoke_screen_id');
tc1['hn']:=tc['hn'];
tc1['drinking_type_id']:=tc['drinking_type_id'];
tc1['smoking_type_id']:=tc['smoking_type_id'];
tc1['date_screen']:=tc['vstdate'];
tc1['vn']:=tc['vn'];
tc1.post;
ShowDebugText('no.'+inttostr(i)+' vn='+tc['vn']+' hn='+ tc['hn']+' vstdate='+datetostr(tc['vstdate'])+'...Data Insert OK');
tc.next;
end;
if tc1.ChangeCount > 0 then
HOSxP_UpdateDelta(tc1.Delta,'select * from smoke_screen ');
ShowDebugText('Import Data '+inttostr(tc.recordcount)+' Records Complete');
ShowDebugText('Process Done;');
tc.free;
tc1.free;
end;
end.