Unit Script;
Procedure Main;
var
tc:tclientdataset;
begin
tc:=tclientdataset.create(nil);
tc.data:=HOSxP_GetDataset('select * from referout where pttype = "" or pttype is null');
tc.first;
while not tc.eof do
begin
tc.edit;
if length(tc.fieldbyname('vn').asstring)=12 then
tc.fieldbyname('pttype').asstring:=vartostr(getsqldata('select pttype from ovst where vn = "'+tc.fieldbyname('vn').asstring+'"')) else
tc.fieldbyname('pttype').asstring:=vartostr(getsqldata('select pttype from ipt where an = "'+tc.fieldbyname('vn').asstring+'"')) ;
tc.post;
tc.next;
end;
if tc.changecount>0 then hosxp_updatedelta(tc.delta,'select * from referout where pttype = "" or pttype is null');
tc.free;
showmessage('done');
end;
end.