topic Re: Get Possible Values - Excluding? in QlikView

Get Possible Values - Excluding?

pkelly — Wed, 22 Jul 2015 07:43:30 GMT

Hi all...

Have the code below that loos through values in a field and transmits a PDF via e-mail.

"cus_Rpt09" field contains a blank value which does not require an e-mail to be sent.

Is there any way to exclude this from the Get Possible Values statement.

NB - Appreciate that the obvious route would be to exclude these from the data load but on this specific report I cannot do this as this is pass 2 out of 3 and excluding blanks on data load for this field would exclude non blanks from pass 1 and 3 which work from a different field.

Hope that makes sense!

Thanks in advance for any assistance...

Regards

Paul

'===========================================================================
sub SubmitReport2

ActiveDocument.ClearAll true

set v = ActiveDocument.Variables("varSubmission")
varSubmission = 2
v.SetContent varSubmission, true

Set val=ActiveDocument.Fields("cus_Rpt09").GetPossibleValues(20000)
For i = 0 to Val.count - 1

ActiveDocument.Fields("cus_Rpt09").Select val.item(i).Text

' set emailTo Variable

set ve = ActiveDocument.Variables("emailTo")
set vt = ActiveDocument.Fields("cus_Rpt09EmailAddress").GetPossibleValues

emailTo = vt.Item(0).text
ve.SetContent emailTo, true

' append Rpt09 to end of emailSubject variable

set v = ActiveDocument.Variables("emailSubject")
set vbase = ActiveDocument.Variables("emailSubjectBase")
set vname = ActiveDocument.Fields("cus_Rpt09Name").GetPossibleValues

emailsubject = vbase.GetContent.String + " - " + vname.Item(0).text

v.SetContent emailSubject, true

' Print Report

set doc = ActiveDocument.Variables("emailAttachment")

printReportPDF "RP01", doc.GetContent.String

' Email Report

SendMail

Next

ActiveDocument.ClearAll true

end sub

'===========================================================================

Re: Get Possible Values - Excluding?

m_woolf — Wed, 22 Jul 2015 12:02:35 GMT

Set val=ActiveDocument.Fields("cus_Rpt09").GetPossibleValues(20000)

For i = 0 to Val.count - 1

IF LEN( val.item(i).Text)>0 THEN

ActiveDocument.Fields("cus_Rpt09").Select val.item(i).Text

' set emailTo Variable

set ve = ActiveDocument.Variables("emailTo")

set vt = ActiveDocument.Fields("cus_Rpt09EmailAddress").GetPossibleValues

emailTo = vt.Item(0).text

ve.SetContent emailTo, true

' append Rpt09 to end of emailSubject variable

set v = ActiveDocument.Variables("emailSubject")

set vbase = ActiveDocument.Variables("emailSubjectBase")

set vname = ActiveDocument.Fields("cus_Rpt09Name").GetPossibleValues

emailsubject = vbase.GetContent.String + " - " + vname.Item(0).text

v.SetContent emailSubject, true

' Print Report

set doc = ActiveDocument.Variables("emailAttachment")

printReportPDF "RP01", doc.GetContent.String

' Email Report

SendMail

END IF

Re: Get Possible Values - Excluding?

pkelly — Thu, 23 Jul 2015 10:57:39 GMT

Thanks...will give it a go...