update empresas set emcontr = 81 where emibcod = '03';
select emibcod,emibden,emcontr from empresas;
commit;