if guid <> '' then
begin
TSQLDataSet(DataSetBroker_CZP.DataSet).SQLFiltered := False ;
TSQLDataSet(DataSetBroker_CZP.DataSet).SQLFilter := 'gzpguid = ''' + guid + '''';
TSQLDataSet(DataSetBroker_CZP.DataSet).SQLFiltered := True;
DataSetBroker_CZP.DataSet.open;
if DataSetBroker_CZP.DataSet.RecordCount > 0 then
begin
self.InfoBroker_GZP.Info.DataSetByID('CB').Delete;
self.InfoBroker_GZP.Info.DataSetByID('CB').ApplyUpdates;
end;
end;