(in)Civilité ?

Discussion et problème sur le célèbre facturier réalisé sous OpenOffice

Modérateur : Vilains modOOs

Règles du forum
FactOOor a été testé sur la version officielle de Openoffice. Le support technique sur FactOOor est donc assuré pour la version en cours et n'ayant subi aucun changement quant à son contenu (formulaire, rapport ou code macro).
papy88140
Fraîchement OOthentifié
Messages : 2
Inscription : 11 mars 2010 10:09

(in)Civilité ?

Message par papy88140 »

Bonjour,

je commence juste à tester Factooor et une chose m'intrigue.

Dans la base de données clients, il est demandé la civilité, mais dans la facture,
elle n'apparait pas (ainsi que dans la liste affichée à droite)
Un oubli de ma part ou dans le programme ?
Le modérateur a écrit :Afin que l'on puisse vous répondre de façon correcte, ne détachez pas votre signature, cette information peut s'avérer essentielle.
Dernière modification par Oukcha le 11 mars 2010 22:05, modifié 1 fois.
Raison : Attachement signature
Ubuntu 8.04
Office 3.1
Marijani
NOOuvel adepte
NOOuvel adepte
Messages : 19
Inscription : 27 févr. 2010 14:34

Re: (in)Civilité ?

Message par Marijani »

Bonjour,

Je crois que vous devriez vérifier que vous utilisez la dernière version de FactOOor (3.02 si je ne m'abuse) car s'il existe bien une raison sociale et un titre (M., Mme, Melle), je ne vois pas de quoi vous voulez parler lorsque vous mentionnez "civilité" ; serait-ce dans une version antérieure ?
En tout cas, dans la version actuelle, tout s'affiche comme il se doit, raison sociale et titre.

A moins que quelqu'un ait un autre avis, mais ça ne semble pas se bousculer sur ce forum, j'espère avoir pu vous aider
OpenOffice 3.2 sur XP SP3
papy88140
Fraîchement OOthentifié
Messages : 2
Inscription : 11 mars 2010 10:09

Re: (in)Civilité ?

Message par papy88140 »

Oups, désolé, erreur de formulation.

En fait, ce que j'ai nommé "civilité" est intitulé "Titre" dans la base de Factoooor

Il apparait bien dans le formulaire d'insertion de client, mais pas dans la liste des clients qui est
utilisée pour remplir la facture.

Je suis peut-être le dernier à utiliser un titre pour éditer mes factures ... :?
Mais bon, une facture à M. Untel ça fait quand même mieux qu'à Untel.
Ubuntu 8.04
Office 3.1
Marijani
NOOuvel adepte
NOOuvel adepte
Messages : 19
Inscription : 27 févr. 2010 14:34

Re: (in)Civilité ?

Message par Marijani »

Autant pour moi... Je vous conseillais la dernière version et je viens d'essayer avec elle et... ça ne marche pas ! :oops:
Avec la précédente (que j'utilise), ça marche !!!... et c'est pour ça que je ne comprenais pas

Alors, rassurez-vous ce n'est pas bien grave, pour retrouver la civilité, il faut un peu mettre les mains dans le cambouis et modifier le code de la routine InscrireAdresse de la macro AppelBase ; pour plus de facilité, il vous suffit ce copier/coller le code modifié que je vous joins ci-dessous :

Code : Tout sélectionner

Sub InscrireAdresse
Dim leNom as String
Dim monForm as Object
Dim maListe as Object, maColonne as Object
Dim leNomClient as String
Dim maRSociale as String
Dim monTitre as string, monNom as String, monPrenom as String
Dim monAd1 as String, monAd2 as String
Dim monCP as String, maVille as String, monPays as String
Dim ligne as Integer, col as Integer, maCellule As Object
REM 
    maFacture = thisComponent.Sheets.getByName("Facture")
    monForm = maFacture.DrawPage.Forms.getByName("FormFacturier")
    maListe = monForm.getByName("TableClient")  
	maColonne = maListe.getByName("RaisonSociale")  
    leNomClient =  maColonne.getCurrentValue()
    If leNomClient = "" Then
    	maColonne = maListe.getByName("Nom")  
    	leNomClient =  maColonne.getCurrentValue()
    End If
    laRefClient =  ChercherRefClient(maFacture)
    maFacture.getCellRangeByName("K12:K17").clearContents(com.sun.star.sheet.CellFlags.STRING)
    instrSQL = "SELECT * FROM ""TClients"" WHERE ""RefClient"" = '" & laRefClient & "'"
    ConnecterSource
    maRequete = maConnexion.createStatement()
    On Error Goto ErrBase
	resuQuery = maRequete.executeQuery(instrSQL)
	On Error Goto 0
 		If resuQuery.next Then
 			maRSociale = resuQuery.Columns.getByName("RaisonSociale").string
 			monTitre = resuQuery.Columns.getByName("Titre").string
 			monNom = resuQuery.Columns.getByName("Nom").string
 			monPrenom = resuQuery.Columns.getByName("Prenom").string
 			monAd1 = resuQuery.Columns.getByName("Adresse1").string
 			monAd2 = resuQuery.Columns.getByName("Adresse2").string
 			monCP = resuQuery.Columns.getByName("CodePostal").string
 			maVille = resuQuery.Columns.getByName("Ville").string
 			monPays = resuQuery.Columns.getByName("Pays").string
 			col = 10
 			ligne = 11
 			If maRSociale <> "" Then
 				maFacture.getCellByPosition(col, ligne).setString(maRSociale)
 				ligne = ligne + 1
 			End If
 			If monNom <> "" Then
 				maFacture.getCellByPosition(col, ligne).setString(monTitre & " " & monNom & " " & monPrenom)
 				ligne = ligne + 1
 			End If
 			If monAd1 <> "" Then
 				maFacture.getCellByPosition(col, ligne).setString(monAd1)
 				ligne = ligne + 1
 			End If
 			If monAd2 <> "" Then
 				maFacture.getCellByPosition(col, ligne).setString(monAd2)
 				ligne = ligne + 1
 			End If
 			maFacture.getCellByPosition(col, ligne).setString(monCP & " " & maVille)
 			ligne = ligne + 1
 			If monPays <> "" Then maFacture.getCellByPosition(col, ligne).setString(monPays)
 		End If
 	DeconnecterSource
Exit Sub
	ErrBase:
	MsgBox("Erreur d'accès à la base ...", OK + AVERT, "Erreur ...")
	DeconnecterSource
	Stop
End Sub
Bonne continuation !
OpenOffice 3.2 sur XP SP3
Verrouillé