Re: [libreoffice-users] LO WRITER BASIC : inserting a table using the dispatcher

I googled for a couple of hours to find this for a similar problem:
'probably this is due to the sometimes asynchroneous nature of the 
dispatch calls, try inserting a wait command'

So I changed the start of the code to:

                if chapters.getBoolean(6) then
                    wait(120)
                    args4(0).Name = "TableName"
                    ...

and that solved my problem !

Thanks to all that helped me in getting my macro to work,

Greetings,
Alain


On 20-08-13 11:56, Alain Van Utterbeeck wrote:
> Hello,
>
> I have the following code in a macro:
>
>                 if chapters.getBoolean(6) then
>                     args4(0).Name = "TableName"
>                     args4(0).Value = "Tabel1"
>                     args4(1).Name = "Columns"
>                     args4(1).Value = 3
>                     args4(2).Name = "Rows"
>                     args4(2).Value = 2
>                     args4(3).Name = "Flags"
>                     args4(3).Value = 11
>                     dispatcher.executeDispatch(document, 
> ".uno:InsertTable", "", 0, args4())
>                     args1(0).Name = "Text"
>                     args1(0).Value = "Product"
>                     dispatcher.executeDispatch(document, 
> ".uno:InsertText", "", 0, args1())
>                     dispatcher.executeDispatch(document, 
> ".uno:JumpToNextCell", "", 0, Array())
>                     args1(0).Name = "Text"
>                     args1(0).Value = "Hoev."
>                     dispatcher.executeDispatch(document, 
> ".uno:InsertText", "", 0, args1())
>                     dispatcher.executeDispatch(document, 
> ".uno:JumpToNextCell", "", 0, Array())
>                     args1(0).Name = "Text"
>                     args1(0).Value = "Prijs"
>                     dispatcher.executeDispatch(document, 
> ".uno:InsertText", "", 0, args1())
>                     sale_order_lines=DBsql4.executeQuery("SELECT name, 
> product_uom_qty, " + _
>                                         "(product_uom_qty * 
> price_unit) AS amount, " + _
>                                         "(SELECT seq_document from 
> product_product where product_product.id = sale_order_line.product_id) 
> AS seq " + _
>                                         " FROM sale_order_line WHERE " 
> + _
>                                         "order_id = " + sale_order_id 
> + " ORDER BY seq")
>
>                     While sale_order_lines.next
>                         naam=sale_order_lines.getString(1)
>                         qty=sale_order_lines.getString(2)
>                         amount=sale_order_lines.getString(3)
>                         args1(0).Name = "Text"
>                         args1(0).Value = naam
>                         dispatcher.executeDispatch(document, 
> ".uno:JumpToNextCell", "", 0, Array())
>                         dispatcher.executeDispatch(document, 
> ".uno:InsertText", "", 0, args1())
>                         args1(0).Name = "Text"
>                         args1(0).Value = qty
>                         dispatcher.executeDispatch(document, 
> ".uno:JumpToNextCell", "", 0, Array())
>                         dispatcher.executeDispatch(document, 
> ".uno:InsertText", "", 0, args1())
>                         dispatcher.executeDispatch(document, 
> ".uno:NumberFormatDecimal", "", 0, Array())
>                         args1(0).Name = "Text"
>                         args1(0).Value = amount
>                         dispatcher.executeDispatch(document, 
> ".uno:JumpToNextCell", "", 0, Array())
>                         dispatcher.executeDispatch(document, 
> ".uno:InsertText", "", 0, args1())
>                         dispatcher.executeDispatch(document, 
> ".uno:NumberFormatDecimal", "", 0, Array())
>                     Wend
>                     mCurs.gotoEnd(False)
>                 end if
>
> The result that I get is:
>
>
>
> Does anybody have an idea why the dispatcher.executeDispatch(document, 
> ".uno:JumpToNextCell", "", 0, Array()) is not working?
>
> The crazy thing is that if I put a breakpoint on the first line of 
> this code, and go through it step by step, it works fine  and I get :
>
>
> Another strange thing is that the third column containing the price is 
> set to 0 while in the first screenprint, if you look closely at the 
> contents that is completely in the first cell, the prices are not 0 !!!
>
> Any ideas please?
>
> Thanks in advance for any help...
>
> Greetings,
> Alain


--
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted