VBScript: Сохранение скрипта Script.qvs и QlikView без данных QVW

06.12.201929.11.2019 от Qlik Expert Russia

Пример на VBScript

С помощью скрипта в VBScript можно сохранить все приложения QlikView без данных. Плюс вынести скрипт в текстовый файл QVS.

Почему-то проблема со значком “&” в коде.

Скачать пример (ANSI формат текста): CreateBackUp_QlikView_Apps.vbs

rem === ПЕРЕМЕННЫЕ ===
Dim vToday, targetPath, targetFolder, targetScriptFolder, sourceFolder
Dim oFSO
Dim arrFolders

rem === ОБЪЕКТЫ ===
set Qv = CreateObject("QlikTech.QlikView")
set shell = createobject("wscript.shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

rem === ЗАДАЕМ ПЕРЕМЕННЫЕ ===
arrFolders = Array("AppManual","Apps1","Apps2","Apps3")
vToday = Date
targetPath = "\\QlikServer\c$\Qlik\Backup\Apps_" &amp; vToday

rem === СОЗДАЕМ ДИРЕКТОРИЮ Path===
  If Not oFSO.FolderExists(targetPath) Then
    oFSO.CreateFolder targetPath
  End If
  
For Each elementFolder In arrFolders
  
  rem === ОПРЕДЕЛЯЕМ ДИРЕКТОРИИ ===
  targetFolder = targetPath &amp; "\" &amp; elementFolder
  sourceFolder = "C:\Qlik\Apps\" &amp; elementFolder &amp; "\"
  targetScriptFolder = targetFolder &amp; "\Scripts\"
  
  
  rem === СОЗДАЕМ ДИРЕКТОРИЮ AppTier ===
  If Not oFSO.FolderExists(targetFolder) Then
    oFSO.CreateFolder targetFolder
  End If
  
  rem === СОЗДАЕМ ДИРЕКТОРИЮ Scripts ===
  If Not oFSO.FolderExists(targetScriptFolder) Then
    oFSO.CreateFolder targetScriptFolder
  End If
  
  rem === В ЦИКЛЕ ОТПРАВЛЯЕМ ПРИЛОЖЕНИЯ БЕЗ ДАННЫХ НА 2 СЕРВЕР В НОВУЮ ПАПКУ ===
  For Each oFile In oFSO.GetFolder(sourceFolder).Files
    If UCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then

    success = shell.appactivate("Qlikview - [Start Page]")
    Set docObj = Qv.OpenDoc(oFile,3,false)
    docObj.ClearAll
    docObj.RemoveAllData
    docObj.SaveAs targetFolder &amp; "\" &amp; oFile.Name
    
    rem === ПИШЕМ SCRIPT ФАЙЛ QVS ===
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set qvsFile = fs.CreateTextFile(targetScriptFolder &amp; oFSO.GetBaseName(oFile.Name) &amp; ".qvs", 2, True)
    qvsFile.Write(docObj.GetProperties.Script)
    qvsFile.Close

    docObj.CloseDoc
    
    rem === ОПЦИЯ ДЛЯ ТЕСТИРОВАНИЯ - по одному qvw в каждой директории ===
    rem Exit For

    End if
  Next
  
Next

Qv.Quit

rem === ПЕРЕМЕННЫЕ ===

Dim vToday, targetPath, targetFolder, targetScriptFolder, sourceFolder

Dim oFSO

Dim arrFolders

rem === ОБЪЕКТЫ ===

set Qv = CreateObject("QlikTech.QlikView")

set shell = createobject("wscript.shell")

Set oFSO = CreateObject("Scripting.FileSystemObject")

rem === ЗАДАЕМ ПЕРЕМЕННЫЕ ===

arrFolders = Array("AppManual","Apps1","Apps2","Apps3")

vToday = Date

targetPath = "\\QlikServer\c$\Qlik\Backup\Apps_" & vToday

rem === СОЗДАЕМ ДИРЕКТОРИЮ Path===

If Not oFSO.FolderExists(targetPath) Then

oFSO.CreateFolder targetPath

End If

For Each elementFolder In arrFolders

rem === ОПРЕДЕЛЯЕМ ДИРЕКТОРИИ ===

targetFolder = targetPath & "\" & elementFolder

sourceFolder = "C:\Qlik\Apps\" & elementFolder & "\"

targetScriptFolder = targetFolder & "\Scripts\"

rem === СОЗДАЕМ ДИРЕКТОРИЮ AppTier ===

If Not oFSO.FolderExists(targetFolder) Then

oFSO.CreateFolder targetFolder

End If

rem === СОЗДАЕМ ДИРЕКТОРИЮ Scripts ===

If Not oFSO.FolderExists(targetScriptFolder) Then

oFSO.CreateFolder targetScriptFolder

End If

rem === В ЦИКЛЕ ОТПРАВЛЯЕМ ПРИЛОЖЕНИЯ БЕЗ ДАННЫХ НА 2 СЕРВЕР В НОВУЮ ПАПКУ ===

For Each oFile In oFSO.GetFolder(sourceFolder).Files

If UCase(oFSO.GetExtensionName(oFile.Name)) = "QVW" Then

success = shell.appactivate("Qlikview - [Start Page]")

Set docObj = Qv.OpenDoc(oFile,3,false)

docObj.ClearAll

docObj.RemoveAllData

docObj.SaveAs targetFolder & "\" & oFile.Name

rem === ПИШЕМ SCRIPT ФАЙЛ QVS ===

Set fs = CreateObject("Scripting.FileSystemObject")

Set qvsFile = fs.CreateTextFile(targetScriptFolder & oFSO.GetBaseName(oFile.Name) & ".qvs", 2, True)

qvsFile.Write(docObj.GetProperties.Script)

qvsFile.Close

docObj.CloseDoc

rem === ОПЦИЯ ДЛЯ ТЕСТИРОВАНИЯ - по одному qvw в каждой директории ===

rem Exit For

End if

Qv.Quit

Пример на VB.NET Visual Studio 2018

Module Module1

    Sub Main()

        '=== ОБЪЯВЛЯЕМ ПЕРЕМЕННЫЕ ===
        Dim fi As Object
        Dim extn As String, fileName As String

        Dim vToday, targetPath, targetFolder, targetScriptFolder, sourceFolder
        Dim arrFolders As Array
        Dim Qv As Object, Shell As Object, oFSO As Object, docObj As Object, fs As Object, qvsFile As Object
        Dim success As Object

        '=== СОЗДАЕМ ОБЪЕКТЫ, КОТОРЫЕ В ДАЛЬНЕЙШЕМ БУДЕМ ИСПОЛЬЗОВАТЬ ===

        Qv = CreateObject("QlikTech.QlikView")
        Shell = CreateObject("wscript.shell")
        oFSO = CreateObject("Scripting.FileSystemObject")

        '=== ЗАДАЕМ ПЕРЕМЕННЫЕ ===
        'arrFolders = {"AppDataPublic","AppManual","AppTelegram","AppTier1","AppTier2","AppTier3","AppTier4","AppTierNP","Служебные"}
        arrFolders = {"AppDataPublic", "AppManual", "AppTelegram", "AppTier1", "AppTier2", "AppTier3", "AppTier4", "AppTierNP", "Служебные"}
        vToday = Today
        targetPath = "\\Server-qv2\c$\QVProject\QVBackup\SERVER-QV\QVApp_" &amp; vToday

        '=== СОЗДАЕМ ДИРЕКТОРИЮ Path===
        If Not oFSO.FolderExists(targetPath) Then
            oFSO.CreateFolder(targetPath)
        End If

        For Each elementFolder In arrFolders

            '=== ОПРЕДЕЛЯЕМ ДИРЕКТОРИИ ===
            targetFolder = targetPath &amp; "\" &amp; elementFolder
            sourceFolder = "C:\QVProject\QVApp\" &amp; elementFolder &amp; "\"
            targetScriptFolder = targetFolder &amp; "\Scripts\"


            '=== СОЗДАЕМ ДИРЕКТОРИЮ AppTier ===
            If Not oFSO.FolderExists(targetFolder) Then
                oFSO.CreateFolder(targetFolder)
            End If

            '=== СОЗДАЕМ ДИРЕКТОРИЮ Scripts ===
            If Not oFSO.FolderExists(targetScriptFolder) Then
                oFSO.CreateFolder(targetScriptFolder)
            End If

            '=== В ЦИКЛЕ ОТПРАВЛЯЕМ ПРИЛОЖЕНИЯ БЕЗ ДАННЫХ НА 2 СЕРВЕР В НОВУЮ ПАПКУ ===
            For Each oFile In oFSO.GetFolder(sourceFolder).Files


                fi = New IO.FileInfo(oFile.Name)
                extn = fi.Extension
                fileName = Replace(fi.Name, ".qvw", "")

                If extn.ToLower() = ".qvw" Then

                    'success = Shell.appactivate("Qlikview - [Start Page]")
                    docObj = Qv.OpenDoc(oFile, 3, False)
                    docObj.ClearAll
                    docObj.RemoveAllData
                    docObj.SaveAs(targetFolder &amp; "\" &amp; oFile.Name)

                    '=== ПИШЕМ SCRIPT ФАЙЛ QVS ===
                    fs = CreateObject("Scripting.FileSystemObject")
                    qvsFile = fs.CreateTextFile(targetScriptFolder &amp; fileName &amp; ".qvs", 2, True)
                    qvsFile.Write(docObj.GetProperties.Script)
                    qvsFile.Close

                    docObj.CloseDoc

                    '=== ОПЦИЯ ДЛЯ ТЕСТИРОВАНИЯ - по одному qvw в каждой директории ===
                    'Exit For


                End If
            Next

        Next

        Qv.Quit


    End Sub

End Module

Module Module1

Sub Main()

'=== ОБЪЯВЛЯЕМ ПЕРЕМЕННЫЕ ===

Dim fi As Object

Dim extn As String, fileName As String

Dim vToday, targetPath, targetFolder, targetScriptFolder, sourceFolder

Dim arrFolders As Array

Dim Qv As Object, Shell As Object, oFSO As Object, docObj As Object, fs As Object, qvsFile As Object

Dim success As Object

'=== СОЗДАЕМ ОБЪЕКТЫ, КОТОРЫЕ В ДАЛЬНЕЙШЕМ БУДЕМ ИСПОЛЬЗОВАТЬ ===

Qv = CreateObject("QlikTech.QlikView")

Shell = CreateObject("wscript.shell")

oFSO = CreateObject("Scripting.FileSystemObject")

'=== ЗАДАЕМ ПЕРЕМЕННЫЕ ===

'arrFolders = {"AppDataPublic","AppManual","AppTelegram","AppTier1","AppTier2","AppTier3","AppTier4","AppTierNP","Служебные"}

arrFolders = {"AppDataPublic", "AppManual", "AppTelegram", "AppTier1", "AppTier2", "AppTier3", "AppTier4", "AppTierNP", "Служебные"}

vToday = Today

targetPath = "\\Server-qv2\c$\QVProject\QVBackup\SERVER-QV\QVApp_" & vToday

'=== СОЗДАЕМ ДИРЕКТОРИЮ Path===

If Not oFSO.FolderExists(targetPath) Then

oFSO.CreateFolder(targetPath)

End If

For Each elementFolder In arrFolders

'=== ОПРЕДЕЛЯЕМ ДИРЕКТОРИИ ===

targetFolder = targetPath & "\" & elementFolder

sourceFolder = "C:\QVProject\QVApp\" & elementFolder & "\"

targetScriptFolder = targetFolder & "\Scripts\"

'=== СОЗДАЕМ ДИРЕКТОРИЮ AppTier ===

If Not oFSO.FolderExists(targetFolder) Then

oFSO.CreateFolder(targetFolder)

End If

'=== СОЗДАЕМ ДИРЕКТОРИЮ Scripts ===

If Not oFSO.FolderExists(targetScriptFolder) Then

oFSO.CreateFolder(targetScriptFolder)

End If

'=== В ЦИКЛЕ ОТПРАВЛЯЕМ ПРИЛОЖЕНИЯ БЕЗ ДАННЫХ НА 2 СЕРВЕР В НОВУЮ ПАПКУ ===

For Each oFile In oFSO.GetFolder(sourceFolder).Files

fi = New IO.FileInfo(oFile.Name)

extn = fi.Extension

fileName = Replace(fi.Name, ".qvw", "")

If extn.ToLower() = ".qvw" Then

'success = Shell.appactivate("Qlikview - [Start Page]")

docObj = Qv.OpenDoc(oFile, 3, False)

docObj.ClearAll

docObj.RemoveAllData

docObj.SaveAs(targetFolder & "\" & oFile.Name)

'=== ПИШЕМ SCRIPT ФАЙЛ QVS ===

fs = CreateObject("Scripting.FileSystemObject")

qvsFile = fs.CreateTextFile(targetScriptFolder & fileName & ".qvs", 2, True)

qvsFile.Write(docObj.GetProperties.Script)

qvsFile.Close

docObj.CloseDoc

'=== ОПЦИЯ ДЛЯ ТЕСТИРОВАНИЯ - по одному qvw в каждой директории ===

'Exit For

End If

Qv.Quit

End Sub

End Module

Пример как распилить 1 выгруженный скрипт по 1 приложению на несколько скриптов .qvs в VB.NET Visual Studio

Module Module1

    Sub Main()

        Dim sourceObjFile, strLine, NewFileName, FileCount, newFile, newIncludeFile
        Dim oFSO
        Dim fi As Object
        Dim extn As String, fileName As String

        Dim sourcePath, sourceArrayFolders, sourceFolder
        Dim targetPath, targetAppTierFolder, targetAppFolder

        Dim objStreamUTF8

        sourcePath = "\\Server-qv2\c$\QVProject\QVBackup\SERVER-QV\QVApp_06.12.2019\"
        sourceArrayFolders = {"AppDataPublic", "AppManual", "AppTelegram", "AppTier1", "AppTier2", "AppTier3", "AppTier4", "AppTierNP", "Служебные"}

        targetPath = "C:\QVProject\QVScript\"

        oFSO = CreateObject("Scripting.FileSystemObject")

        For Each elementFolder In sourceArrayFolders
            sourceFolder = sourcePath &amp; elementFolder &amp; "\Scripts"

            '1. Создаем папку уровня AppTier в targetPath
            targetAppTierFolder = targetPath &amp; elementFolder

            '=== СОЗДАЕМ ДИРЕКТОРИЮ СЛОЯ ===
            If Not oFSO.FolderExists(targetAppTierFolder) Then
                oFSO.CreateFolder(targetAppTierFolder)
            End If

            '2. В цикле проходим по всем скриптам-приложениям.qvs в директории sourceFolder 
            '   и создаем отдельные подпапки на каждое приложение
            For Each oFile In oFSO.GetFolder(sourceFolder).Files


                fi = New IO.FileInfo(oFile.Name)
                extn = fi.Extension
                fileName = Replace(fi.Name, ".qvs", "")



                If extn.ToLower() = ".qvs" Then

                    'Название директории-приложения
                    targetAppFolder = targetAppTierFolder &amp; "\" &amp; fileName

                    '=== СОЗДАЕМ ДИРЕКТОРИЮ ПРИЛОЖЕНИЯ ===
                    If Not oFSO.FolderExists(targetAppFolder) Then
                        oFSO.CreateFolder(targetAppFolder)
                    End If

                    sourceObjFile = oFSO.OpenTextFile(oFile, 1, False, -1)
                    newIncludeFile = oFSO.CreateTextFile(targetAppFolder &amp; "\0. ListOfAllScriptsWith_MustInclude.qvs", True, False)

                    NewFileName = ""
                    FileCount = 0

                    Do Until sourceObjFile.AtEndOfStream
                        strLine = sourceObjFile.readline
                        If Left(strLine, 7) = "///$tab" Then

                            If Len(NewFileName) &gt; 0 Then
                                With objStreamUTF8
                                    .SaveToFile(targetAppFolder &amp; "\" &amp; NewFileName, 2)
                                    .Flush
                                    .Close
                                End With
                            End If

                            FileCount = FileCount + 1

                            NewFileName = Replace(strLine, "///$tab", "")
                            NewFileName = Replace(NewFileName, "\", "")
                            NewFileName = Replace(NewFileName, "/", "")
                            NewFileName = Replace(NewFileName, "*", "")
                            NewFileName = Replace(NewFileName, "!", "")
                            NewFileName = Replace(NewFileName, "?", "")
                            NewFileName = Replace(NewFileName, "&gt;", "")
                            NewFileName = Replace(NewFileName, "&lt;", "")
                            NewFileName = Replace(NewFileName, "✽", "")
                            NewFileName = Replace(NewFileName, "★", "")
                            NewFileName = Replace(NewFileName, "⇨", "")
                            NewFileName = Replace(NewFileName, "⇦", "")
                            NewFileName = Replace(NewFileName, """", "")
                            NewFileName = FileCount &amp; ". " &amp; Trim(NewFileName) &amp; ".qvs"

                            REM MsgBox(NewFileName) rem Отладка

                            'newFile = oFSO.CreateTextFile(targetAppFolder &amp; "\" &amp; NewFileName, 2, True)
                            objStreamUTF8 = CreateObject("ADODB.Stream")
                            With objStreamUTF8
                                .CharSet = "UTF-8"
                                .Type = 2
                                .Open
                            End With

                            newIncludeFile.WriteLine("$(Must_Include=" &amp; targetAppFolder &amp; "\" &amp; NewFileName &amp; ");")
                        Else
                            'newFile.WriteLine(strLine)
                            With objStreamUTF8
                                .WriteText(strLine)
                                .WriteText(vbCrLf)
                            End With
                        End If
                    Loop

                    objStreamUTF8.SaveToFile(targetAppFolder &amp; "\" &amp; NewFileName, 2)
                    objStreamUTF8.Flush
                    objStreamUTF8.Close

                    sourceObjFile.Close
                    newIncludeFile.Close

                End If

            Next

        Next

    End Sub


End Module

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

Module Module1

Sub Main()

Dim sourceObjFile, strLine, NewFileName, FileCount, newFile, newIncludeFile

Dim oFSO

Dim fi As Object

Dim extn As String, fileName As String

Dim sourcePath, sourceArrayFolders, sourceFolder

Dim targetPath, targetAppTierFolder, targetAppFolder

Dim objStreamUTF8

sourcePath = "\\Server-qv2\c$\QVProject\QVBackup\SERVER-QV\QVApp_06.12.2019\"

sourceArrayFolders = {"AppDataPublic", "AppManual", "AppTelegram", "AppTier1", "AppTier2", "AppTier3", "AppTier4", "AppTierNP", "Служебные"}

targetPath = "C:\QVProject\QVScript\"

oFSO = CreateObject("Scripting.FileSystemObject")

For Each elementFolder In sourceArrayFolders

sourceFolder = sourcePath & elementFolder & "\Scripts"

'1. Создаем папку уровня AppTier в targetPath

targetAppTierFolder = targetPath & elementFolder

'=== СОЗДАЕМ ДИРЕКТОРИЮ СЛОЯ ===

If Not oFSO.FolderExists(targetAppTierFolder) Then

oFSO.CreateFolder(targetAppTierFolder)

End If

'2. В цикле проходим по всем скриптам-приложениям.qvs в директории sourceFolder

' и создаем отдельные подпапки на каждое приложение

For Each oFile In oFSO.GetFolder(sourceFolder).Files

fi = New IO.FileInfo(oFile.Name)

extn = fi.Extension

fileName = Replace(fi.Name, ".qvs", "")

If extn.ToLower() = ".qvs" Then

'Название директории-приложения

targetAppFolder = targetAppTierFolder & "\" & fileName

'=== СОЗДАЕМ ДИРЕКТОРИЮ ПРИЛОЖЕНИЯ ===

If Not oFSO.FolderExists(targetAppFolder) Then

oFSO.CreateFolder(targetAppFolder)

End If

sourceObjFile = oFSO.OpenTextFile(oFile, 1, False, -1)

newIncludeFile = oFSO.CreateTextFile(targetAppFolder & "\0. ListOfAllScriptsWith_MustInclude.qvs", True, False)

NewFileName = ""

FileCount = 0

Do Until sourceObjFile.AtEndOfStream

strLine = sourceObjFile.readline

If Left(strLine, 7) = "///$tab" Then

If Len(NewFileName) > 0 Then

With objStreamUTF8

.SaveToFile(targetAppFolder & "\" & NewFileName, 2)

.Flush

.Close

End With

End If

FileCount = FileCount + 1

NewFileName = Replace(strLine, "///$tab", "")

NewFileName = Replace(NewFileName, "\", "")

NewFileName = Replace(NewFileName, "/", "")

NewFileName = Replace(NewFileName, "*", "")

NewFileName = Replace(NewFileName, "!", "")

NewFileName = Replace(NewFileName, "?", "")

NewFileName = Replace(NewFileName, ">", "")

NewFileName = Replace(NewFileName, "<", "")

NewFileName = Replace(NewFileName, "✽", "")

NewFileName = Replace(NewFileName, "★", "")

NewFileName = Replace(NewFileName, "⇨", "")

NewFileName = Replace(NewFileName, "⇦", "")

NewFileName = Replace(NewFileName, """", "")

NewFileName = FileCount & ". " & Trim(NewFileName) & ".qvs"

REM MsgBox(NewFileName) rem Отладка

'newFile = oFSO.CreateTextFile(targetAppFolder & "\" & NewFileName, 2, True)

objStreamUTF8 = CreateObject("ADODB.Stream")

With objStreamUTF8

.CharSet = "UTF-8"

.Type = 2

.Open

End With

newIncludeFile.WriteLine("$(Must_Include=" & targetAppFolder & "\" & NewFileName & ");")

Else

'newFile.WriteLine(strLine)

With objStreamUTF8

.WriteText(strLine)

.WriteText(vbCrLf)

End With

End If

Loop

objStreamUTF8.SaveToFile(targetAppFolder & "\" & NewFileName, 2)

objStreamUTF8.Flush

objStreamUTF8.Close

sourceObjFile.Close

newIncludeFile.Close

End If

End Sub

End Module

Найти таблицу и поле по значению MS SQL – QlikView/Qlik Sense

06.08.2019 от Qlik Expert Russia

В этой статье я приведу код, с помощью которого можно выкачать все уникальные значения из таблиц с названиями полей. Решение очень помогает для поиска таблицы, в которой хранится то или иное значение. Большие таблицы фактов не рекомендуется загружать таким образом, т.к. будет долго работать и приложение получится большим.

Я его использовал для поиска справочника в 1С Предприятие 8.3

ODBC CONNECT32 TO БазаДанных1СПредприятие (XUserId is INC54654654654564564bNA, XPassword is INC54654654654564564bNA);

//Загружаем только справочники 1С Предприятие 8.3
[Table Column]:
SQL 
Select TABLE_NAME, COLUMN_NAME 
From INFORMATION_SCHEMA.COLUMNS
Where TABLE_NAME like '_Reference%'
;

TableColumnValue:
LOAD * Inline [
	TempFieldForDel
];

FOR i=1 to NoOfRows('Table Column')

	LET vTableName = Peek('TABLE_NAME',$(i)-1,'Table Column');
	LET vColumnName = Peek('COLUMN_NAME',$(i)-1,'Table Column');
	
	Concatenate(TableColumnValue)
	LOAD Distinct
	     '$(vTableName)'		As TableName,
	     '$(vColumnName)' 		As ColumnName,
	     ColumnValue
	;
	SQL
		SELECT [$(vColumnName)] ColumnValue
		FROM [database-name].[dbo].[$(vTableName)]
	;

NEXT i

DROP Table [Table Column];
DROP Field TempFieldForDel;

ODBC CONNECT32 TO БазаДанных1СПредприятие (XUserId is INC54654654654564564bNA, XPassword is INC54654654654564564bNA);

//Загружаем только справочники 1С Предприятие 8.3

[Table Column]:

SQL

Select TABLE_NAME, COLUMN_NAME

From INFORMATION_SCHEMA.COLUMNS

Where TABLE_NAME like '_Reference%'

;

TableColumnValue:

LOAD * Inline [

TempFieldForDel

];

FOR i=1 to NoOfRows('Table Column')

LET vTableName = Peek('TABLE_NAME',$(i)-1,'Table Column');

LET vColumnName = Peek('COLUMN_NAME',$(i)-1,'Table Column');

Concatenate(TableColumnValue)

LOAD Distinct

'$(vTableName)' As TableName,

'$(vColumnName)' As ColumnName,

ColumnValue

;

SQL

SELECT [$(vColumnName)] ColumnValue

FROM [database-name].[dbo].[$(vTableName)]

;

NEXT i

DROP Table [Table Column];

DROP Field TempFieldForDel;

Получить настройки задач

26.06.2019 от Qlik Expert Russia

TASK

QUALIFY *;
UNQUALIFY ;

DocTask:
LOAD Name,
    Enabled,
    NameIsAutoGenerated,
    AllowPluginClient,
    AllowMobileClient,
    AllowZeroFootprintClient,
    AllowPDFGeneration,
    SendNotificationEmail,
    AlwaysOpenable,
    SourceDocumentID,
    ClearLocks,
    ClearAll,
    ClearAlwaysOneSelected,
    ReapplySelections,
    EnableAuditLogging,
    SetScript,
    SectionAccessUserName,
    SectionAccessPassword,
    OverrideXSSectionAccess,
    MaxOpenSessions,
    SessionTimeout,
    DocumentTimeout,
    ReloadOption,
    Distribute,
    DistributionServiceID,
    TaskTrack,
    TimeoutMinutes,
    NumberOfAttempts,
    CreationMode,
    DownloadAccess,
    ExportAccess,
    VersionID,
    EnableSessionCollaboration,
    ModifiedByUser,
    ModifiedTime,
    ID
FROM [C:\XML_SAVED\DocumentTask.xml] (XmlSimple, Table is [NewDataSet/DocumentTask]);

UNQUALIFY *;

QUALIFY *;

UNQUALIFY ;

DocTask:

LOAD Name,

Enabled,

NameIsAutoGenerated,

AllowPluginClient,

AllowMobileClient,

AllowZeroFootprintClient,

AllowPDFGeneration,

SendNotificationEmail,

AlwaysOpenable,

SourceDocumentID,

ClearLocks,

ClearAll,

ClearAlwaysOneSelected,

ReapplySelections,

EnableAuditLogging,

SetScript,

SectionAccessUserName,

SectionAccessPassword,

OverrideXSSectionAccess,

MaxOpenSessions,

SessionTimeout,

DocumentTimeout,

ReloadOption,

Distribute,

DistributionServiceID,

TaskTrack,

TimeoutMinutes,

NumberOfAttempts,

CreationMode,

DownloadAccess,

ExportAccess,

VersionID,

EnableSessionCollaboration,

ModifiedByUser,

ModifiedTime,

FROM [C:\XML_SAVED\DocumentTask.xml] (XmlSimple, Table is [NewDataSet/DocumentTask]);

UNQUALIFY *;

Управление данными Qlik Sense. Инструкция по работе с данными QlikSense

27.12.2018 от Qlik Expert Russia

Управление данными Qlik Sense. Инструкция по работе с данными QlikSense

Скачать (PDF, 3.99MB)

TSEEQ: The Structured ETL Engine For Qlik. March 15, 2018

26.10.2018 от Qlik Expert Russia

Скачать (PDF, 1.49MB)

Bug Fix: QlikView 12 и URL содержащий H и пробел

15.06.2018 от Qlik Expert Russia

Bug Fix: QlikView 12 и URL содержащий H и пробел

После переезда на новый QlikView 12 выявился баг при загрузке из URL, в котором находится пробел или пробел + H (латиница). Причем H именно в верхнем регистре. Нижний проходит нормально.

Не знаю с чем это связано, но любая попытка получить данные по обозначенному URL Заканчивалась неудачей, даже если поменять кодировку URL с помощью ApplyCodepage.

Как побороть эту нехорошую напасть?

Заменяем в URL пробел на ‘%20’;
Заменяем пробел + H, т.е. ” H”, на “_H”. Или изменить верхний регистр на нижний.

После этого все работает! Странный баг 🙂

Узкие места миграции QlikView Server 11 на QlikView Server 12 November

17.06.201813.06.2018 от Qlik Expert Russia

Узкие места миграции QlikView Server 11 на QlikView Server 12 November

ApplyMap (Если отсутствует меппинг, то ошибка. В 11 версии все работает без ошибки);
Более строгое поведение скрипта с форматами даты (надо менять формат даты принудительно на правильный); При формировании таблицы фактов в случае если в разных QVD разные форматы даты стоят, то QlikView может принудительно поменять дату (из-за чего может перестать работать Set Analysis);
Выполнение Execute из скрипта QlikView на сервере C:\Windows\System32\config\systemprofile\AppData\Roaming\QlikTech\QlikViewBatch\Settings.ini В этом файле надо поставить AllowExecuteCommand=1;
Перед инсталляцией QlikView Desktop клиента желательно удалить старый клиент, т.к. могут возникнуть проблемы, что QlikView 12 не до конца удалить 11 версию из регистра и приложение по-умолчанию будет отображаться как QlikView 11. При этом если у Вас в папке Program Files Будет лежать дистрибутив от 11 версии, то возможно винда станет даже запускать QlikView из-под файла 11 версии (данный кейс получен на практике, пришлось чистить регистр).

QlikView Script: Выгрузить из базы данных все таблицы в QVD

06.07.201808.06.2018 от Qlik Expert Russia

QlikView Script: Выгрузить из базы данных все таблицы в QVD

ODBC CONNECT TO DB_NAME (XUserId is ****************, XPassword is ****************);

tables:
sql
SELECT table_name FROM information_schema.tables;

FOR i=1 to NoOfRows('tables')

	LET vTableName = Peek('table_name',$(i)-1,'tables');
	

	[$(vTableName)]:
	SQL SELECT * FROM $(vTableName) WITH (NOLOCK);
	;
	

	IF NoOfRows('$(vTableName)')>1 then
		STORE [$(vTableName)] into 'C:\qlikview\qvd\$(vTableName).qvd' (qvd);
	ENDIF
	
	DROP Table [$(vTableName)];

NEXT i

DROP Table tables;

ODBC CONNECT TO DB_NAME (XUserId is ****************, XPassword is ****************);

tables:

sql

SELECT table_name FROM information_schema.tables;

FOR i=1 to NoOfRows('tables')

LET vTableName = Peek('table_name',$(i)-1,'tables');

[$(vTableName)]:

SQL SELECT * FROM $(vTableName) WITH (NOLOCK);

;

IF NoOfRows('$(vTableName)')>1 then

STORE [$(vTableName)] into 'C:\qlikview\qvd\$(vTableName).qvd' (qvd);

ENDIF

DROP Table [$(vTableName)];

NEXT i

DROP Table tables;

1С Предприятие 7.7: Утилиты, внешние разработки. Exe Efd Ert

08.06.2018 от Qlik Expert Russia

1С Предприятие 7.7: Утилиты, внешние разработки. Exe Efd Ert

>>> СКАЧАТЬ ОДНИМ ФАЙЛОМ <<<

ВНИМАНИЕ!!! Все файлы из архива, который скачиваете с сайта Вы используете на свой страх и риск. Рекомендую не запускать на боевом сервере, а использовать только исключительно в песочнице далеко от боевого сервера. Архив бы скачен с интернета и располагаю в своем блоге. БУДЬТЕ БДИТЕЛЬНЫ С ФАЙЛАМИ!!!

Qlik Sense Extensions Tutorial. Обучение по разработке расширений

07.06.2018 от Qlik Expert Russia

Qlik Sense Extensions Tutorial (Обучение)

Введение в Qlik Sense Extensions

Что такое расширение с концептуальной точки зрения?

Qlik Sense поставляется со стандартным набором объектов диаграмм, которые позволяют пользователям исследовать свои данные визуально. Гистограмма, линейная диаграмма и таблица являются примерами готовых объектов, к которым пользователи имеют доступ с помощью Qlik Sense. Эти объекты могут быть размещены на приборной панели, изменять свой размер в зависимости от экрана и могут быть интегрированы в Qlik Sense Stories. Тем не менее, эти диаграммы не могут отвечать на все вопросы, которые возникают у пользователя, особенно когда встречаются уникальные практические кейсы.

В рамках открытой экосистемы Qlik Qlik представила мощную концепцию Extension Objects, которая позволяет нам расширять возможности программы Qlik Sense пользовательскими объектами.

Объекты расширения (Extension Objects)

Объекты расширения (Extension Objects) – это настраиваемые объекты, интегрированные в Qlik Sense
Расширения (Extensions) – это настраиваемые объекты, созданные вне основного продукта Qlik. Они обычно используются для создания кастомных (нестандартных) визуализаций и форм диаграммы, которые недоступны в базовой графической библиотеке.

Однако эти пользовательские объекты не ограничиваются визуализацией данных и могут служить и другим целям. Например, мы могли бы построить расширение, которое реализует собственный механизм навигации для перехода от листа к листу в приборной панели Qlik Sense.

Они ведут себя как обычные объекты

Объекты расширения внедряются непосредственно в клиент Qlik Sense и, следовательно, чувствуют себя как компоненты “из коробки”. Пользователи добавляют их в панели мониторинга с тем же механизмом перетаскивания, что и любая другая функция Qlik Sense. Объекты реагируют на разрешение экрана и могут подключаться к динамическим данным Qlik (к модели данных Qlik, реагируя на выборки Selections). Это позволяет расширениям реагировать на изменение данных. Расширения полностью “приживаются” в модели аналитики Qlik Sense на принципах самообслуживания (self-service), что облегчает бизнес-пользователям использование дополнительных функций, которые они добавляют в инструмент Qlik.

Что такое расширения, технически?

Объекты расширения, с технической точки зрения, состоят из кода, который запускается в браузере. В частности, они используют:
HTML5 для рендеринга на страницу через divs, svgs и т.д.
JavaScript для добавления интерактивности к объекту, например, для фильтрации данных или динамического рисования диаграммы на основе входных данных.
JSON для определения метаданных, которые задают структуру для организации расширения, а также для возможности настройки конечным пользователем Extension.
CSS для стилизации объекта