procedure TDOCSERVICEFUNC.DoUploadProgress(Transfer: ITransfer);
var
lUpload: IUploadTransfer;
begin
if Transfer.State = TTransferState.tsStarted then
begin
// nothing todo
end
else if Transfer.State = TTransferState.tsAccomplished then
begin
// nothing todo
end
else if Transfer.State = TTransferState.tsFinished then
begin
lUpload := Transfer as IUploadTransfer;
TDocSystem.CheckInByQuery(TSystemCore.Operator.Context, lUpload.GetToFileName,
nil);