procedure TEdOfertaFrm.PzDsDataChange(Sender: TObject; Field: TField);
begin
if DgBGrid1.Columns.Count>=6 then
if (trim(PzOfertas.FieldByName('TIPOM').AsString)<>'') then
if (PzOfertas.FieldByName('VCORTE').AsFloat<>0) or
(PzOfertas.FieldByName('VPz').AsFloat<>0) then
DbGrid1.Columns[5].Readonly := true
else
DbGrid1.Columns[5].Readonly := false
else
DbGrid1.Columns[5].Readonly := false ;
end;