Функция ПолучитьФайлХранилища(UID1C, StorageID, RowID) Экспорт
	  ФайлКакСтрока="";
	  Попытка
	  guidVal=Новый УникальныйИдентификатор(UID1C);
	  Если StorageID="ДиагностическийЛист" Тогда
		 Ссылка=Документы.ДиагностическийЛист.ПолучитьСсылку(guidVal); 
		 Док=Ссылка.ПолучитьОбъект();
		 ТекСтрока = Док.СписокФайлов[Число(RowID) - 1];
		 СсылкаФайл = ТекСтрока.Файл.Файл.Получить();
	 КонецЕсли;
	 
	 Если ТипЗнч(СсылкаФайл) = Тип("ДвоичныеДанные") Тогда
		ФайлКакСтрока=Base64Строка(СсылкаФайл);
	 ИначеЕсли ТипЗнч(СсылкаФайл.Хранилище) <> Тип("ДвоичныеДанные") Тогда
		ФайлКакСтрока=Base64Строка(СсылкаФайл.Хранилище.Получить());
	 Иначе
		ФайлКакСтрока=Base64Строка(СсылкаФайл.Хранилище);
 	 КонецЕсли;
	    
	  Возврат ФайлКакСтрока;
  	Исключение
	   Возврат ФайлКакСтрока;
	КонецПопытки;
	
КонецФункции

CREATE FUNCTION [dbo].[RRefToGuid1c](@UUID binary(16))
RETURNS CHAR(36)
WITH SCHEMABINDING 
AS
BEGIN
declare @buffer varchar(40)
select @buffer = replace(convert(varchar(40),cast(@UUID as uniqueidentifier)), '-', '')

RETURN right(@buffer, 8) + '-' +
substring(@buffer, 21, 4) + '-' +
substring(@buffer, 17, 4) + '-' +
substring(@buffer, 7, 2) +
substring(@buffer, 5, 2) + '-' +

substring(@buffer, 3, 2) +
substring(@buffer, 1, 2) +
substring(@buffer, 11, 2) +
substring(@buffer, 9, 2) +
substring(@buffer, 15, 2) +
substring(@buffer, 13, 2)
END

GO

  <WebMethod()> _
    Public Function GetPhotoFromDiagnosticLeaf(UID1C As String, RowID As String) As String
        Dim sImage As String = vbNullString
        Try
            Dim MyWS As wrStorageValues.StorageValues = New wrStorageValues.StorageValues
            Dim MyAuth As NetworkCredential
            MyAuth = New NetworkCredential
            MyAuth.UserName = "Пользователь"
            MyAuth.Password = "Пароль"
            MyWS.Credentials = MyAuth
            sImage = MyWS.GetFile(UID1C, "ДиагностическийЛист", RowID)
        Catch ex As Exception
            Dim httpResponse = HttpContext.Current.Response
            httpResponse.Clear()
            httpResponse.StatusCode = 500
            httpResponse.StatusDescription = ex.Message
        End Try
        Return (sImage)
    End Function