topic Re: Macro don't work properly in QlikView

Macro don't work properly

ecolomer — Mon, 22 Sep 2014 13:43:21 GMT

I have a macro that works well in a QV file but not in other.

The macro in question is:

sub InLote

SelVal=ActiveDocument.Evaluate("=getFieldSelections(NumPedido, ';', 25)")

NReg=ActiveDocument.Evaluate("=getSelectedCount(NumPedido)")

for k = 1 to NReg

InValue = ActiveDocument.Evaluate("=Subfield(SelVal, ';' ,"&k&")")

ActiveDocument.GetApplication.Sleep 100

ActiveDocument.DynamicUpdateCommand("UPDATE LOTE SET LoteFab=$(vLote) WHERE NumPedido="&InValue&"")

ActiveDocument.GetApplication.Sleep 100

end sub

The statement that it is not running: is marked in blod. But in other QV the same statement work's perfectly

Any help

Re: Macro don't work properly

ecolomer — Mon, 22 Sep 2014 15:13:22 GMT

Any help?

Re: Macro don't work properly

jerem1234 — Mon, 22 Sep 2014 16:31:37 GMT

What is happening is that SelVal is not a field/variable in your application. So for example you can do 3 things:

1. Add the variable SelVal into your qvw (Variable Overview...) and use the expression in the variable as =getFieldSelections(NumPedido, ';', 25) and then use:

InValue = ActiveDocument.Evaluate("=Subfield(SelVal, ';' ,"&k&")")

2. Return the text part of your variable SelVal in the vbscript and enclose with quotes:

InValue = ActiveDocument.Evaluate("=Subfield(" & chr(39) &SelVal & chr(39) & ", ';' ," & k & ")")

3. Or you can just evaluate the getfieldselections in the same statement like:

InValue = ActiveDocument.Evaluate("=Subfield(getFieldSelections(NumPedido, ';', 25), ';' ," & k & ")")

Hope this helps!

Re: Macro don't work properly

ecolomer — Mon, 22 Sep 2014 19:16:40 GMT

Yes is good, but now in the expression:

ActiveDocument.DynamicUpdateCommand("UPDATE LOTE SET LoteFab=$(vLote) WHERE NumPedido="&InValue&"")

no works properly ¿¿?? any idea??

vLote are a Variable defined in the QV and used in a input mode

Re: Macro don't work properly

jerem1234 — Mon, 22 Sep 2014 20:00:40 GMT

Try something like:

ActiveDocument.DynamicUpdateCommand("UPDATE LOTE SET LoteFab='$(vLote)' WHERE NumPedido='" &InValue & "'")

In case you don't see it, i've enclosed InValue with single quotes, as well as $(vLote). If you are expecting string values coming through, you need single quotes so it knows they are text.

Hope this helps!

Re: Macro don't work properly

ecolomer — Mon, 22 Sep 2014 20:21:56 GMT

No, no works, I'm sorry

Re: Re: Macro don't work properly

jerem1234 — Mon, 22 Sep 2014 20:30:20 GMT

Hmm. I've attached below an example I have that pretty much uses the same code you have. Maybe you can take a look and see if there might be something wrong with the data you are using.

Re: Macro don't work properly

ecolomer — Mon, 22 Sep 2014 20:45:35 GMT

Muchas Gracias

Many Thank's

I will look your example and revise my data

Re: Re: Re: Macro don't work properly

ecolomer — Mon, 22 Sep 2014 20:56:10 GMT

Your example runs perfectly, but I copy the same in my file and don't run.

Can you see them

Re: Re: Re: Re: Macro don't work properly

jerem1234 — Tue, 23 Sep 2014 13:16:49 GMT

Ah you have an extra space in your table name:

sub InLote

SelVal=ActiveDocument.Evaluate("=getFieldSelections(NumPedido, ';', 25)")

NReg=ActiveDocument.Evaluate("=getSelectedCount(NumPedido)")

for k = 1 to NReg

InValue = ActiveDocument.Evaluate("=Subfield(SelVal, ';' ,"&k&")")

ActiveDocument.GetApplication.Sleep 100

ActiveDocument.DynamicUpdateCommand("UPDATE F_ LOTE SET LoteFab='$(vLote)' WHERE NumPedido='" &InValue & "'")

ActiveDocument.GetApplication.Sleep 100

end sub

Delete that space, and that should get it working:

sub InLote

SelVal=ActiveDocument.Evaluate("=getFieldSelections(NumPedido, ';', 25)")

NReg=ActiveDocument.Evaluate("=getSelectedCount(NumPedido)")

for k = 1 to NReg

InValue = ActiveDocument.Evaluate("=Subfield(SelVal, ';' ,"&k&")")

ActiveDocument.GetApplication.Sleep 100

ActiveDocument.DynamicUpdateCommand("UPDATE F_LOTE SET LoteFab='$(vLote)' WHERE NumPedido='" &InValue & "'")

ActiveDocument.GetApplication.Sleep 100

end sub

Hope this helps!

Re: Re: Re: Macro don't work properly

ecolomer — Tue, 23 Sep 2014 16:41:25 GMT

yes, it is true, but does not work

I do not understand, because your file worked perfectly and I see where I was wrong. I am furious with myself.

Thank you for all the help you are giving me.

Re: Re: Re: Macro don't work properly

ecolomer — Tue, 23 Sep 2014 17:17:45 GMT

YA ESTÁ !!!!!!

That is ok, now.

Is a ' diferent

I'm sorry to disturb you, and many thank's for all

Re: Macro don't work properly

jerem1234 — Tue, 23 Sep 2014 17:48:25 GMT

You're welcome! I've had plenty of times when something so simple had me stumped for awhile(just like a wrong quote), so i feel your pain!

Glad I could help!