Salut à tous,

J'ai le problème suivant: j'ai déclaré une requete.
Quand je fais
HLitPremier(Marequete,Marequete.IDFAC)ou HLitPremier(Marequete,IDFAC) le système genère une erreure. Dans le premier cas, il accepte le champ clé de parcours et dans le second, il ne reconnait même pas la clé de parcours

Marequete est une Source de Données
HExécuteRequêteSQL(Marequete, "SELECT IDFAC, DateFacture, IDMOD_REG, ECHEANCE, Q_FAC, PrixTTC FROM Facture, Li_Fac where Facture.IDFAC=li_fac.IDFAC")

Bonjour

Dans le cadre d'une requête le paramètre Rubrique de Parcours n'est pas pris en compte. Si vous voulez effectuer un tri, modifier votre requête en integrant une clause OrderBy.

Tiré de l'aide WD9 :



Mickael

Essaye :
HLitPremier(Marequete,Marequete.IDFAC..Nom)

Ce qui correspond à écrire :
HLitPremier(Marequete,"IDFAC")

c'est tjrs moi.
Quand je fais HLitPremier(Marequete), l'erreur suivante s'affiche:Le fichier Marequete n'est pas reconnu dans l'analyse et quand je fais HLitPremier(Marequete,Marequete.IDFAC..Nom) il affiche le message suivant:
Propriété interdite

Merci d'avance

MaRequete doit être déclarée comme source de données. Comme dans l'exemple donné.

Mickael

Oui je l'avais declaré comme soure de données. Et quand ça n'a pas marché, j'avais essayé externe.
PS:je travaille sur windev 8.

Pouvez-vous donner le code complet que vous utilisez ?

Mickael

Marequete est une Source de Données
HExécuteRequêteSQL(Marequete, "SELECT IDFAC, DateFacture, IDMOD_REG, ECHEANCE, Q_FAC, PrixTTC FROM Facture, Li_Fac where Facture.IDFAC=li_fac.IDFAC")

SI nomFic="" OU devise="" OU version="" ALORS
Info("Veillez renseigner les champs nom du fichier, version et devise SVP!!!")
RETOUR
FIN
SI fFichierExiste(fRepExe+nomFichier) ALORS
Message("le fichier du même nom a été déjà importé")
IdFichier = fCrée(fRepExe+nomFichier)
SINON
IdFichier = fCrée(fRepExe+nomFichier)
FIN
// Affichage du message d'erreur si la création n'a pas été effectuée
SI IdFichier = -1 ALORS
Erreur(ErreurInfo(errMessage))
SINON
// Traitements et écriture dans le fichier créé
fEcritLigne(IdFichier,"#FLG 000")
fEcritLigne(IdFichier,"#VER "+version)
fEcritLigne(IdFichier,"#DEV "+devise)
//pour tout JOURNAL
// info(JOURNAL.DAt)
// info(ladate)

HLitPremier(Marequete,Marequete.IDFAC..Nom)
TANTQUE PAS HEnDehors
// resut est une chaine= chaineVersDate(JOURNAL.DAt) <= chaineVersDate(ladate)
// si resut=1 alors
fEcritLigne(IdFichier,"#MECG")
codJournal = Marequete.IDFAC
codJournal = SansEspace(codJournal)
fEcritLigne(IdFichier,codJournal)
datesaisie=Marequete.DateFacture
datesaisie=SansEspace(datesaisie)
fEcritLigne(IdFichier,datesaisie)
fEcritLigne(IdFichier,DateVersChaine(DateSys(),"JJMMAA"))
// numPiece = Marequete.
// numPiece = SansEspace(numPiece)
// fEcritLigne(IdFichier,numPiece)
fEcritLigne(IdFichier,"")
// refPiece = JOURNAL.REF_PCE
// refPiece = SansEspace(refPiece)
// fEcritLigne(IdFichier,refPiece)
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
// nuCompteGen = JOURNAL.NUM_CPTE_GEN
// nuCompteGen = SansEspace(nuCompteGen)
// fEcritLigne(IdFichier,nuCompteGen)
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
// nuCompteTier = JOURNAL.NUM_CPTE_TIERS
// nuCompteTier = SansEspace(nuCompteTier)
// fEcritLigne(IdFichier,nuCompteTier)
fEcritLigne(IdFichier,"")
// intitule = JOURNAL.INTITULE
// intitule = SansEspace(intitule)
// fEcritLigne(IdFichier,intitule)
fEcritLigne(IdFichier,"")
numReg =Marequete.IDMOD_REG
numReg = SansEspace(numReg)
fEcritLigne(IdFichier,numReg)
dateEcheance =Marequete.ECHEANCE
dateEcheance = SansEspace(dateEcheance)
fEcritLigne(IdFichier,dateEcheance)
fEcritLigne(IdFichier,"0")
quantite=Marequete.Q_FAC
quantite=SansEspace(quantite)
fEcritLigne(IdFichier,"0")
fEcritLigne(IdFichier,"")
montant =Marequete.PrixTTC
montant = SansEspace(montant)
fEcritLigne(IdFichier,montant)
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"0")
fEcritLigne(IdFichier,"0")
fEcritLigne(IdFichier,"0")
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
HLitSuivant()
// fin
FIN
fEcritLigne(IdFichier,"#FIN")
fFerme(IdFichier)
Info("Exportation réalisée")
Info("le nom du fichier sur disque dans le repertoire courant est "+nomFic)
// Fin des traitements dans le fichier créé

FIN
HAnnuleDéclaration(Marequete)




gfnIdFichier = fOuvre(fRepExe+nomFichier, foLecture) // Ouvrir le fichier texte

SI gfnIdFichier = -1 ALORS

Erreur(ErreurInfo())


FIN
// Charger le contenu du fichier "C:\Temp\MonFichier.txt" dans
// le champ de saisie "Saisie1"
sFichierTexte = fChargeTexte(fRepExe+nomFichier)
iAperçu(i100, "Aperçu écran", Vrai)
iCréePolice(1, 16, iGras , iRoman )
iImprime(sFichierTexte)
iFinImprime()
//info(sFichierTexte)
fFerme(gfnIdFichier)

Modifier l'exécution de votre requête pour tracer les erreurs.

SI PAS HExécuteRequeteSQL (Marequete, "SELECT IDFAC, DateFacture, IDMOD_REG, ECHEANCE, Q_FAC, PrixTTC FROM Facture, Li_Fac where Facture.IDFAC=li_fac.IDFAC") alors
Erreur ( "Erreur d' initialisation de la requête" + RC + HErreurInfo ())
RETOUR
FIN

Mickael

La requete contient une erreur:
Le nom de la table n'est pas spécifié dans le éléments du SELECT et il existe IDFAC dans le 2 tables du FROM

Préfixer IDFAC par le nom de la table dans votre clause SELECT

Mickael

Merci Michael. C'était la requete qui marchait pas.
Là ça marche bien.
Une fois de plus merci