Re: [fr-users] Attribuer une valeur à un champ d'un rapport en LibO Basic

Bonjour Alex

J'ai trouvé la solution.
On suppose que le rapport à un contrôle de type texte (référencé dans le
code par la valeur 0 dans la méthode getByName)

sub ouvreRapport(sNomRapport as string)

    dim oNewReport as object

'On vérife que le rapport existe
     if ThisDatabaseDocument.ReportDocuments.hasByName(sNomRapport) then

 oNewReport=ThisDatabaseDocument.ReportDocuments.getByNAme(sNomRapport)
     else
   end
     end if

' Ouvre le rapport en mode design
  oNewReport.opendesign
' Modifie le Label du control 0 (getByIndex(0)
   oNewReport.getComponent().PageHeader.getByIndex(0).Label="Label du
contrôle 0"
' Sauvegarde le rapport et quitte le mode design
   oNewReport.store
    oNewReport.close
' Ouvre le rapport
  oNewReport.open
end sub

Merci de ton aide
Daniel



Le 7 août 2013 14:29, Daniel toutatis <dtoutatis@gmail.com> a écrit :

> Hello
>
> Le code n'est pas encore parfait. J'ai enlever le test et corrigé la
> requête.
>
> Je travaille avec la version Version: 4.1.0.4 Build ID:
> 89ea49ddacd9aa532507cbf852f2bb22b1ace28 sous OSX
>
> Daniel
>
>
>
>
> Le 7 août 2013 12:35, Alexander Thurgood <alex.thurgood@gmail.com> a
> écrit :
>
>  Bonjour Daniel,
> > Je ne comprends pas ce test dans ton code :
> > v_DateDebut = v_Form.getByName("DateDebut").Text
> > v_DateFin = v_Form.getByName("DateFin").Text
> >
> > ' On vérifie que la date de début soit plus petie que la date de fin
> > if v_DateDebut > v_DateFin then
> >     MsgBox("Date de début ("& v_DateDebut & ") plus grande que date de
> > fin ("& v_DateFin &")",16)
> > else
> >
> > Là, tu es en train de comparer des chaînes de caractères au lieu de dates
> > ?
> >
> > La valeur du contrôle, ce n'est pas plutôt :
> >
> > v_DateDebut = v_Form.getByName("DateDebut").currentvalue
> >
> > ou
> >
> > v_DateDebut = v_Form.getByName("DateDebut").getDate
> >
> >
> >
> > http://api.libreoffice.org/docs/common/ref/com/sun/star/form/component/DateField.html
> >
> > http://api.libreoffice.org/docs/common/ref/com/sun/star/awt/UnoControlDateFieldModel.html#Date
> >
> > http://api.libreoffice.org/docs/common/ref/com/sun/star/awt/XDateField.html
> >
> >
> > Alex

-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés