(in)Civilité ?

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

Modérateur: Vilains modOOs

Règles du forum
FactOOor a été testé sur la version officielle de Openoffice.org (Windows et Linux) et non sur les versions packagées par les distributions Linux. 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).
Si vous souhaitez des modifications sur le fonctionnement (ajout de fonctionnalité par exemple) ou sur l'aspect, merci de contacter en direct les développeurs.

(in)Civilité ?

Messagepar papy88140 » 11 Mars 2010 10:13

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 édition par Oukcha le 11 Mars 2010 22:05, édité 1 fois.
Raison: Attachement signature
Ubuntu 8.04
Office 3.1
papy88140
Fraîchement OOthentifié
 
Message(s) : 2
Inscrit le : 11 Mars 2010 10:09

Re: (in)Civilité ?

Messagepar Marijani » 18 Mars 2010 21:08

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
Marijani
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 19
Inscrit le : 27 Fév 2010 14:34

Re: (in)Civilité ?

Messagepar papy88140 » 19 Mars 2010 12:07

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
papy88140
Fraîchement OOthentifié
 
Message(s) : 2
Inscrit le : 11 Mars 2010 10:09

Re: (in)Civilité ?

Messagepar Marijani » 19 Mars 2010 15:22

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   AgrandirRéduire
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
Marijani
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 19
Inscrit le : 27 Fév 2010 14:34


Retour vers FactOOor

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 1 invité