Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement WinDev probleme dans code

probleme dans code

3 réponses
Avatar
trevloui
Bonjour voila mon code et il se plante chaque fois ici en me disant
que la
requete "qryInitDemCom" n'existe pas



SI VienDemande ALORS
SI PAS SQLExec("SELECT * FROM PositionDemandeAchat WHERE
IdSocieteDemande = " + socDem ,"qryInitDemCom") ALORS
ErreurSql("qryInitDemCom")
SINON
SQLPremier("qryInitDemCom")
//--On creer une commande pour cette societe
SI SQL.NbLig > 0 ALORS
SI PAS SQLExec("INSERT INTO CommandeFournisseur
(IdSocieteCommande,IdContactCommande,DateCommande) VALUES (" +
SQLCol("qryInitDemCom",15)+","+EstNull(SQLCol("qryInitDemCom",16))+","+
Quote(DateSys())+")" ,"qryIn") ALORS
ErreurSql("qryIn")
SINON
SQLFerme("qryIn")
FIN
//--on recupere l identifiant de cette commande
SI PAS SQLExec("SELECT MAX(KIdCommandeFournisseur) FROM
CommandeFournisseur","qryM") ALORS
ErreurSql("qryM")
SINON
SQLPremier("qryM")
SI PAS SQL.EnDehors ALORS
t est un entier = SQLCol("qryM",1)
FIN
SQLFerme("qryM")
FIN
//--on boucle pour ajouter les differentes positions venant des
differentes demandes d achat
TANTQUE SQL.NbLig > 0
//---idarticle
SI SQLCol("qryInitDemCom",3)<>"" ALORS
SI PAS SQLExec("INSERT INTO PositionFournisseur
(IdCommandeFournisseur,IdArticle, " +...
" Quantite, IdUnite,
DateLivraison,DateConfirmee,PrixUnitaire,IdUnitePrix,IdCompte,Remarques,NoDemandeAchat
) VALUES " +...
" ( " + t + "," + SQLCol("qryInitDemCom",3)+ "," +
SQLCol("qryInitDemCom",10) + "," + SQLCol("qryInitDemCom",11) +...
"," + SQLCol("qryInitDemCom",17) + "," +
SQLCol("qryInitDemCom",14) +","+ SQLCol("qryInitDemCom",12)+","+
SQLCol("qryInitDemCom",13)+","+ EstNull(SQLCol("qryInitDemCom
",19))+","+SQLCol("qryInitDemCom",9)+","+SQLCol("qryInitDemCom",2)+")","qryInsertArt")ALORS
ErreurSql("qryInsertArt")
SINON
SQLFerme("qryInsertArt")
FIN
FIN
//----idIDvers
SI SQLCol("qryInitDemCom",5)<>"" ALORS
SI PAS SQLExec("INSERT INTO PositionFournisseur
(IdCommandeFournisseur,IdDivers, "+...
" Quantite, IdUnite,
DateLivraison,DateConfirmee,PrixUnitaire,IdUnitePrix,IdCompte,Remarques,NoDemandeAchat
) VALUES " +...
" ( " + t + "," + SQLCol("qryInitDemCom",5)+ "," +
SQLCol("qryInitDemCom",10) + "," + SQLCol("qryInitDemCom",11) +...
"," + SQLCol("qryInitDemCom",17) + "," +
SQLCol("qryInitDemCom",14) +","+ SQLCol("qryInitDemCom",12)+","+
SQLCol("qryInitDemCom",13)+","+ SQLCol("qryInitDemCom
",19)+","+SQLCol("qryInitDemCom",9)+","+SQLCol("qryInitDemCom",2)+")","qryInsertDiv")ALORS
ErreurSql("qryInsertDiv")
SINON
SQLFerme("qryInsertDiv")
FIN
FIN
//---IdOp
SI SQLCol("qryInitDemCom",4)<>"" ALORS
SI PAS SQLExec("INSERT INTO PositionFournisseur
(IdCommandeFournisseur,IdOperationPlan, "+...
" Quantite, IdUnite,
DateLivraison,DateConfirmee,PrixUnitaire,IdUnitePrix,IdCompte,Remarques,NoDemandeAchat
) VALUES " +...
" ( " + t + "," + SQLCol("qryInitDemCom",4)+ "," +
SQLCol("qryInitDemCom",10) + "," + SQLCol("qryInitDemCom",11) +...
"," + SQLCol("qryInitDemCom",17) + "," +
SQLCol("qryInitDemCom",14) +","+ SQLCol("qryInitDemCom",12)+","+
SQLCol("qryInitDemCom",13)+","+ SQLCol("qryInitDemCom
",19)+","+SQLCol("qryInitDemCom",9)+","+SQLCol("qryInitDemCom",2)+")","qryInsertOP")ALORS
ErreurSql("qryInsertOP")
SINON
SQLFerme("qryInsertOP")
FIN
FIN
SQLSuivant("qryInitDemCom")
FIN
FIN
FIN
SQLFerme("qryInitDemCom")
FIN
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Yves.83
Je ne suis pas un expert du SQL mais il me semble
qu'il manque des débranchements dans ton code.

Si ErreurSQL() ne déroute pas le traitement alors on tombe
sur la ligne :
SI SQLCol("qryInitDemCom",4)<>"" ALORS
qui fait référence à la requête qui n'aurait pas pu
être mise en place.
Il faudrait savoir quelle est la ligne qui renvoie l'erreur

Yves



"Peace" a écrit dans le message de news:

Bonjour voila mon code et il se plante chaque fois ici en me disant
que la
requete "qryInitDemCom" n'existe pas



SI VienDemande ALORS
SI PAS SQLExec("SELECT * FROM PositionDemandeAchat WHERE
IdSocieteDemande = " + socDem ,"qryInitDemCom") ALORS
ErreurSql("qryInitDemCom")
SINON
SQLPremier("qryInitDemCom")
//--On creer une commande pour cette societe
SI SQL.NbLig > 0 ALORS
SI PAS SQLExec("INSERT INTO CommandeFournisseur
(IdSocieteCommande,IdContactCommande,DateCommande) VALUES (" +
SQLCol("qryInitDemCom",15)+","+EstNull(SQLCol("qryInitDemCom",16))+","+
Quote(DateSys())+")" ,"qryIn") ALORS
ErreurSql("qryIn")
SINON
SQLFerme("qryIn")
FIN
//--on recupere l identifiant de cette commande
SI PAS SQLExec("SELECT MAX(KIdCommandeFournisseur) FROM
CommandeFournisseur","qryM") ALORS
ErreurSql("qryM")
SINON
SQLPremier("qryM")
SI PAS SQL.EnDehors ALORS
t est un entier = SQLCol("qryM",1)
FIN
SQLFerme("qryM")
FIN
//--on boucle pour ajouter les differentes positions venant des
differentes demandes d achat
TANTQUE SQL.NbLig > 0
//---idarticle
SI SQLCol("qryInitDemCom",3)<>"" ALORS
SI PAS SQLExec("INSERT INTO PositionFournisseur
(IdCommandeFournisseur,IdArticle, " +...
" Quantite, IdUnite,



DateLivraison,DateConfirmee,PrixUnitaire,IdUnitePrix,IdCompte,Remarques,NoDe
mandeAchat
) VALUES " +...
" ( " + t + "," + SQLCol("qryInitDemCom",3)+ "," +
SQLCol("qryInitDemCom",10) + "," + SQLCol("qryInitDemCom",11) +...
"," + SQLCol("qryInitDemCom",17) + "," +
SQLCol("qryInitDemCom",14) +","+ SQLCol("qryInitDemCom",12)+","+
SQLCol("qryInitDemCom",13)+","+ EstNull(SQLCol("qryInitDemCom



",19))+","+SQLCol("qryInitDemCom",9)+","+SQLCol("qryInitDemCom",2)+")","qryI
nsertArt")ALORS
ErreurSql("qryInsertArt")
SINON
SQLFerme("qryInsertArt")
FIN
FIN
//----idIDvers
SI SQLCol("qryInitDemCom",5)<>"" ALORS
SI PAS SQLExec("INSERT INTO PositionFournisseur
(IdCommandeFournisseur,IdDivers, "+...
" Quantite, IdUnite,



DateLivraison,DateConfirmee,PrixUnitaire,IdUnitePrix,IdCompte,Remarques,NoDe
mandeAchat
) VALUES " +...
" ( " + t + "," + SQLCol("qryInitDemCom",5)+ "," +
SQLCol("qryInitDemCom",10) + "," + SQLCol("qryInitDemCom",11) +...
"," + SQLCol("qryInitDemCom",17) + "," +
SQLCol("qryInitDemCom",14) +","+ SQLCol("qryInitDemCom",12)+","+
SQLCol("qryInitDemCom",13)+","+ SQLCol("qryInitDemCom



",19)+","+SQLCol("qryInitDemCom",9)+","+SQLCol("qryInitDemCom",2)+")","qryIn
sertDiv")ALORS
ErreurSql("qryInsertDiv")
SINON
SQLFerme("qryInsertDiv")
FIN
FIN
//---IdOp
SI SQLCol("qryInitDemCom",4)<>"" ALORS
SI PAS SQLExec("INSERT INTO PositionFournisseur
(IdCommandeFournisseur,IdOperationPlan, "+...
" Quantite, IdUnite,



DateLivraison,DateConfirmee,PrixUnitaire,IdUnitePrix,IdCompte,Remarques,NoDe
mandeAchat
) VALUES " +...
" ( " + t + "," + SQLCol("qryInitDemCom",4)+ "," +
SQLCol("qryInitDemCom",10) + "," + SQLCol("qryInitDemCom",11) +...
"," + SQLCol("qryInitDemCom",17) + "," +
SQLCol("qryInitDemCom",14) +","+ SQLCol("qryInitDemCom",12)+","+
SQLCol("qryInitDemCom",13)+","+ SQLCol("qryInitDemCom



",19)+","+SQLCol("qryInitDemCom",9)+","+SQLCol("qryInitDemCom",2)+")","qryIn
sertOP")ALORS
ErreurSql("qryInsertOP")
SINON
SQLFerme("qryInsertOP")
FIN
FIN
SQLSuivant("qryInitDemCom")
FIN
FIN
FIN
SQLFerme("qryInitDemCom")
FIN


Avatar
noupieple2000
Salut,

Je pense qu tu dois verifier que la variable "qryInitDemCom" a bien
ete declare et de type "SOURCE DE DONNEES" je crois que ton probleme
viens de la.

Merci et Bonne Chance

Hugues




(Peace) wrote in message news:...
Bonjour voila mon code et il se plante chaque fois ici en me disant
que la
requete "qryInitDemCom" n'existe pas



SI VienDemande ALORS
SI PAS SQLExec("SELECT * FROM PositionDemandeAchat WHERE
IdSocieteDemande = " + socDem ,"qryInitDemCom") ALORS
ErreurSql("qryInitDemCom")
SINON
SQLPremier("qryInitDemCom")
//--On creer une commande pour cette societe
SI SQL.NbLig > 0 ALORS
SI PAS SQLExec("INSERT INTO CommandeFournisseur
(IdSocieteCommande,IdContactCommande,DateCommande) VALUES (" +
SQLCol("qryInitDemCom",15)+","+EstNull(SQLCol("qryInitDemCom",16))+","+
Quote(DateSys())+")" ,"qryIn") ALORS
ErreurSql("qryIn")
SINON
SQLFerme("qryIn")
FIN
//--on recupere l identifiant de cette commande
SI PAS SQLExec("SELECT MAX(KIdCommandeFournisseur) FROM
CommandeFournisseur","qryM") ALORS
ErreurSql("qryM")
SINON
SQLPremier("qryM")
SI PAS SQL.EnDehors ALORS
t est un entier = SQLCol("qryM",1)
FIN
SQLFerme("qryM")
FIN
//--on boucle pour ajouter les differentes positions venant des
differentes demandes d achat
TANTQUE SQL.NbLig > 0
//---idarticle
SI SQLCol("qryInitDemCom",3)<>"" ALORS
SI PAS SQLExec("INSERT INTO PositionFournisseur
(IdCommandeFournisseur,IdArticle, " +...
" Quantite, IdUnite,
DateLivraison,DateConfirmee,PrixUnitaire,IdUnitePrix,IdCompte,Remarques,NoDemandeAchat
) VALUES " +...
" ( " + t + "," + SQLCol("qryInitDemCom",3)+ "," +
SQLCol("qryInitDemCom",10) + "," + SQLCol("qryInitDemCom",11) +...
"," + SQLCol("qryInitDemCom",17) + "," +
SQLCol("qryInitDemCom",14) +","+ SQLCol("qryInitDemCom",12)+","+
SQLCol("qryInitDemCom",13)+","+ EstNull(SQLCol("qryInitDemCom
",19))+","+SQLCol("qryInitDemCom",9)+","+SQLCol("qryInitDemCom",2)+")","qryInsertArt")ALORS
ErreurSql("qryInsertArt")
SINON
SQLFerme("qryInsertArt")
FIN
FIN
//----idIDvers
SI SQLCol("qryInitDemCom",5)<>"" ALORS
SI PAS SQLExec("INSERT INTO PositionFournisseur
(IdCommandeFournisseur,IdDivers, "+...
" Quantite, IdUnite,
DateLivraison,DateConfirmee,PrixUnitaire,IdUnitePrix,IdCompte,Remarques,NoDemandeAchat
) VALUES " +...
" ( " + t + "," + SQLCol("qryInitDemCom",5)+ "," +
SQLCol("qryInitDemCom",10) + "," + SQLCol("qryInitDemCom",11) +...
"," + SQLCol("qryInitDemCom",17) + "," +
SQLCol("qryInitDemCom",14) +","+ SQLCol("qryInitDemCom",12)+","+
SQLCol("qryInitDemCom",13)+","+ SQLCol("qryInitDemCom
",19)+","+SQLCol("qryInitDemCom",9)+","+SQLCol("qryInitDemCom",2)+")","qryInsertDiv")ALORS
ErreurSql("qryInsertDiv")
SINON
SQLFerme("qryInsertDiv")
FIN
FIN
//---IdOp
SI SQLCol("qryInitDemCom",4)<>"" ALORS
SI PAS SQLExec("INSERT INTO PositionFournisseur
(IdCommandeFournisseur,IdOperationPlan, "+...
" Quantite, IdUnite,
DateLivraison,DateConfirmee,PrixUnitaire,IdUnitePrix,IdCompte,Remarques,NoDemandeAchat
) VALUES " +...
" ( " + t + "," + SQLCol("qryInitDemCom",4)+ "," +
SQLCol("qryInitDemCom",10) + "," + SQLCol("qryInitDemCom",11) +...
"," + SQLCol("qryInitDemCom",17) + "," +
SQLCol("qryInitDemCom",14) +","+ SQLCol("qryInitDemCom",12)+","+
SQLCol("qryInitDemCom",13)+","+ SQLCol("qryInitDemCom
",19)+","+SQLCol("qryInitDemCom",9)+","+SQLCol("qryInitDemCom",2)+")","qryInsertOP")ALORS
ErreurSql("qryInsertOP")
SINON
SQLFerme("qryInsertOP")
FIN
FIN
SQLSuivant("qryInitDemCom")
FIN
FIN
FIN
SQLFerme("qryInitDemCom")
FIN


Avatar
trevloui
(Hugues Benjamin) wrote in message news:...
Salut,

Je pense qu tu dois verifier que la variable "qryInitDemCom" a bien
ete declare et de type "SOURCE DE DONNEES" je crois que ton probleme
viens de la.

Merci et Bonne Chance

Hugues




Merci pour votre aide j ai finalement trouver, un bétise j avais
oublie de modifier l'analyse dans Windev apres avoir modifier un table
dans sqlserver
alala...

a bientot