if dxmx.findfield('BYZD6')<>nil then
begin
fm.MePlace.EditValue:=dxMx.fieldByname('BYZD6').Value;
strCFWZ:='BYZD6';
end
else if dxmx.findfield('CFWZ')<>nil then
begin
fm.MePlace.EditValue:=dxMx.fieldByname('CFWZ').Value;
strCFWZ:='CFWZ';
end
else
exit;
begin
fm.MePlace.EditValue:=dxMx.fieldByname('BYZD6').Value;
strCFWZ:='BYZD6';
end
else if dxmx.findfield('CFWZ')<>nil then
begin
fm.MePlace.EditValue:=dxMx.fieldByname('CFWZ').Value;
strCFWZ:='CFWZ';
end
else
exit;