topic Re: How to set a variable to 0 inside macro in QlikView

How to set a variable to 0 inside macro

stabben23 — Tue, 19 May 2015 14:04:19 GMT

Hi,

I Run a qlikview file from a batchload where I send a variable=1. This is a trigger that start a reload of the application and also send pdf files. In the end of the macro I would like to set this variable to 0. Because my variable is a OnOpen trigger, and the application runs everytime I forgot to hold Ctrl + Shift down.

Re: How to set a variable to 0 inside macro

crusader_ — Wed, 20 May 2015 07:17:08 GMT

Hi,

Try this one:

set v = ActiveDocument.Variables("Variable1") v.SetContent "123",true

Hope this helps.

Regards,

Andrei

Re: How to set a variable to 0 inside macro

stabben23 — Wed, 20 May 2015 09:05:05 GMT

I can see that it works, but I dont know where to add it into the script, can you help.

sub vecka

ActiveDocument.ClearAll True

SET x=ActiveDocument.GetVariable("vPdfVariable")
if x.GetContent.String=x.GetContent.String then
ActiveDocument.Reload
ActiveDocument.GetApplication.WaitForIdle

Set Prods = ActiveDocument.Fields("SäljareNamn").GetPossibleValues

For i = 0 to Prods.count -1

ActiveDocument.Fields("SäljareNamn").Select Prods.item(i).Text

DagRapport()

Next
ActiveDocument.ClearAll True
ActiveDocument.Save
ActiveDocument.GetApplication.Quit

End if

End Sub

Sub Dagrapport()

SET x=ActiveDocument.GetVariable("vPdfVariable")
if x.GetContent.String=x.GetContent.String then

set v=ActiveDocument.Fields("SäljareNamn").GetSelectedValues
set vmail=ActiveDocument.Fields("mail").GetPossibleValues

set vPrint=ActiveDocument.Fields("SäljareNamn").GetPossibleValues
End if

IF(v.Count = 1 and vPrint.item(i).Text = v(i).Text) Then

vReport = "RP0"& x.GetContent.String 'Set report

vName = (v(i).Text) 'Name of output pdf

ActiveDocument.PrintReport(vReport), "Bullzip PDF Printer", false 'Printreport
printReportPDF = "C:\xxxx\pdftest\"&vName&"\" & vName & x.GetContent.String&".pdf" 'Setting outputname
MyPrintPDFWithBullZip(printReportPDF) 'Call pdf printer
ActiveDocument.GetApplication.Sleep 10000

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = vName &" " & Date()
objMessage.From = """QlikViewserver"" <qlikview@xxx.xx>"
objMessage.To= vmail.item(i).Text
objMessage.AddAttachment "C:\xxxx\pdftest\"&vName&"\" & vName & x.GetContent.String&".pdf"

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxxxxxxxxxx"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxxxx"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = xxxxxxxxxxx

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = xxx

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = xx

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

Set objMessage = Nothing

end if
end sub

FUNCTION MyPrintPDFWithBullZip (pdfOutputFile)
set obj = CreateObject("Bullzip.PDFSettings")
obj.SetValue "Output" , pdfOutputFile
obj.SetValue "ConfirmOverwrite", "no"
obj.SetValue "ShowSaveAS", "never"
obj.SetValue "ShowSettings", "never"
obj.SetValue "ShowPDF", "no"
obj.SetValue "RememberLastFileName", "no"
obj.SetValue "RememberLastFolderName", "no"
obj.SetValue "ShowProgressFinished", "no"
obj.SetValue "ShowProgress", "no"
obj.WriteSettings True

Set WSHShell = CreateObject("WScript.Shell")

WSHShell.RegWrite "HKCU\Software\QlikViewPDF\OutputFile", pdfOutputFile, "REG_SZ"
WSHShell.RegWrite "HKCU\Software\QlikViewPDF\BypassSaveAs", "1", "REG_SZ"

Set WSHShell = nothing

End FUNCTION

Re: How to set a variable to 0 inside macro

jagan — Wed, 20 May 2015 09:11:55 GMT

Hi,

Check below link for lot of such macro code snippets

Useful Qlikview Macros

Hope this helps you.

Regards,

Jagan.

Re: How to set a variable to 0 inside macro

Anonymous — Wed, 20 May 2015 09:55:22 GMT

Hi ,

Use this code, It will assign variable value as 0 in UI.

Sub ChangeValue

ActiveDocument.Variables("variable").SetContent "0", true

End Sub

Let me know if your requirement is different.

Thanks

BKC

Re: How to set a variable to 0 inside macro

stabben23 — Wed, 20 May 2015 10:49:50 GMT

Hi,

All these answer works by them self, but not togheter with my script. The problem is that I don't know where to put it.

The requirement is that it should set the variable=0 when all loops and pdf/mail is ready, last thing before quit the application.

I have test and in some case the code stops because it get 0 in wrong place or doesent get 0 at all if I put it as a single Sub in the bottom. Any Idea, see script above.

Re: How to set a variable to 0 inside macro

stabben23 — Wed, 20 May 2015 12:42:32 GMT

Hi,

I Add ChangeValue() here to get it to work, thaks for putting me in the right direction.

sub vecka

ActiveDocument.ClearAll True

SET x=ActiveDocument.GetVariable("vPdfVariable")
if x.GetContent.String=x.GetContent.String then
ActiveDocument.Reload
ActiveDocument.GetApplication.WaitForIdle

Set Prods = ActiveDocument.Fields("SäljareNamn").GetPossibleValues

For i = 0 to Prods.count -1

ActiveDocument.Fields("SäljareNamn").Select Prods.item(i).Text

DagRapport()

Next
ActiveDocument.ClearAll True
ChangeValue()
ActiveDocument.Save
ActiveDocument.GetApplication.Quit

End if

End Sub

Re: How to set a variable to 0 inside macro

Anonymous — Wed, 20 May 2015 12:49:54 GMT

so now its working .. Good

Re: How to set a variable to 0 inside macro

Anonymous — Thu, 21 May 2015 05:37:39 GMT

if you want to set variable after all the work done just include

ActiveDocument.Variables("variable").SetContent "0", true

before END SUB

Thanks

BKC