Je souhaite ajouter un QRCODE sur un rapport BASE, pour faire des etiquettes. Mais le plugin ne permet pas d'accéder facilement à ses paramètres. or cela fonctionne bien via le menu, il doit donc exister façon dev, une solution pour intégrer et mettre a jour un Qrcode... au moins sur le formulaire.. enfin je l'espere...

j'ai trouvé ce code, que je n'ai pas réussi a faire fonctionner, quelqu'un aurrais t'il des pistes a suivre ?

' ╔═══════════════════════════════════════════════════════════════════════════════════════════════════════════════╗
' ║ QRCODE GENERATION
' ╚═══════════════════════════════════════════════════════════════════════════════════════════════════════════════╝█
' ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
' ne fonctionne pas !!!
'
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub AddQrcode
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim args1(2) as new com.sun.star.beans.PropertyValue
rem ----------------------------------------------------------------------
rem get access to the document
 
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
args1(0).Name ="Payload"
args1(0).Value = "Ananas"
args1(1).Name = "Border"
args1(1).Value = 2
args1(2).Name = "ErrorCorrection"
args1(2).Value = 2
dispatcher.executeDispatch(document, ".uno:InsertQrCode", "", 0,args1())
End sub