PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WEBDEV 2024 → Etat basée sur 2 requêtes
Etat basée sur 2 requêtes
Iniciado por benoit.apex, mar., 04 2004 12:02 PM - Sem resposta
#1
Publicado em março, 04 2004 - 12:02 PM
Bonjour,

Débutant en webdev, je tente de baser la construction d'un état sur 2 requêtes.
Le problème c'est que je n'arrive pas à le faire!!!
Je n'ai sans doute pas compris le principe au niveau de l'état de la "lecture
des données" dans l'aide.
En effet, lorsque je trace le code, je passe indéfiniment dans la lecture
des données. Et je n'obtiens aucun document!
Vous pouvez trouver le code ci-desssous.

Merci d'avance pour vos solutions.

Bien à vous,

Benoit


//Page appelant l'état à imprimer
Clic de Imprimer(Serveur)
// prévisualisation de l'état table sous forme de PDF
sNomPDF est une chaîne = sGenereNomPDF()
iAperçu(iPDF,sNomPDF)
iImprimeEtat(DepartAffectation1)
// Affichage du fichier PDF
FichierAffiche(sNomPDF,"application/pdf")
// Suppression du fichier PDF
SI fRep(sNomPDF,frFichier)<>"" ALORS
// Suppression effective
fSupprime(sNomPDF)
FIN


//DepartAffectation est le nom de mon état
Ouverture de DepartAffectation1(Serveur)
GLOBAL
strIdPartieVehicule est un caractère
intIdCar est un entier
//Passage du paramètre de la première requête
DepartAffectation.ParamIdAffectation = 3


Lecture des données de DepartAffectation1(Serveur)
//Cette requête renvoie un seul enregistrement
HExécuteRequête(DepartAffectation,hRequêteDéfaut)
HLitPremier(DepartAffectation,IDAffectation)
NumAffect=DepartAffectation.NumAffect
Model=DepartAffectation.Model
intIdCar=DepartAffectation.IdCar

//Passage du paramètre de la 2ème requête basé sur l'identifiant de la voiture
de la 1ère requête
DepartAffectationEtatVehicule.ParamIdCar=intIdCar
// Cette requête peut renvoyer de 0 à n enregisterments
HExécuteRequête(DepartAffectationEtatVehicule,hRequêteDéfaut)
HLitPremier(DepartAffectationEtatVehicule)
SI PAS HEnDehors(DepartAffectationEtatVehicule) ALORS
TANTQUE PAS HEnDehors(DepartAffectationEtatVehicule)
strIdPartieVehicule = DepartAffectationEtatVehicule.IDPartieVehicule
{"LIBELLE" + strIdPartieVehicule}=DepartAffectationEtatVehicule.PartieFR
{"EtatVehicule" + strIdPartieVehicule}=DepartAffectationEtatVehicule.DescriptionEtatFR
HLitSuivant(DepartAffectationEtatVehicule,IdCar)
FIN
FIN
→ Voltar para WEBDEV 2024