Problème avec windev et SQL

Problème avec windev et SQL - Divers - Programmation

Marsh Posté le 26-08-2008 à 09:11:10    

Bonjour,
 
la société dans lequel je suis stagiaire actuellement tourne avec un ERP développé avec windev ...
 
On avait besoin d'une fenêtre supplémentaire pour afficher des données en plus par rapport a ce que l ERP prévoit en natif, ces données sont stockées dans un fichier .mdb qu'on lisait ou modifiait avec une ligne SQL incluse dans la fenetre .
 
Bref tout ca marchait bien, et a la mise à jour suivante de l'ERP, les données sont lues, mais la requête update ne marche plus, pourtant, elle semble se faire correctement, c'est juste qu'elle n'écrit plus dans le fichier mdb ( dont l'accès est bien autorisé à tout le monde dans tous les sens ) ...
 
 
De plus quand on ouvre la fenêtre créée avec windev, il n'y a pas de problèmes, on la recompile, mais si on utilise la fenetre recompilée ( meme si on a rien modifié ) on se prend un erreur incompréhensible de la part de l'ERP si on essaye d'ouvrir cette fenetre ...
Donc je cherche en plus la raison de ce plantage de windev qui endommage ma fenetre ...
 
Voila le petit bout de code qui a créé la fenetre, mais je ne suis meme pas sur qu'il s agisse bien de la fenetre elle meme et pas du code déjà modifié par windev qui la fait planter si on la recompile ...

Code :
  1. //PROCEDURE FEN_INTERLO(nIPCLE,nPar=0)
  3. rVoeux est une chaîne="CNX"
  4. MaConnexion est une Connexion
  5. SI nPar=1 ALORS FenEtat(MaFenêtre,HorsEcran)
  7. //INITIALIATION DE FEN_INTERLO
  9. sReq est une chaîne
  10. i est un entier
  12. HLitRecherche(interlo,IPCLEUNIK,nIPCLE)
  13. HLitRecherche(prospect,procod,interlo.PROCOD)
  14. SI HTrouve(interlo) ET HTrouve(prospect) ALORS
  15. SAI_Société=SansEspace(prospect.NOM)
  16. SAI_Interlocuteur=SansEspace(INTERLO.intnom)+" "+SansEspace(interlo.INTPREN)
  17. SI SQLConnecte(ComplèteRep(RépertoireSociété)+"VoeuxSDMS.mdb","","","","Access" )>0 ALORS
  18.  SI nPar=1 ALORS
  19.   //Suppression de l'enregistrement et fermeture de la fenêtre
  20.   sReq="DELETE FROM TABLESDMS WHERE IPCLEUNIK="+nIPCLE
  21.   SQLExec(sReq,rVoeux)
  22.   Ferme()
  23.  SINON
  24.   sReq="SELECT * FROM TABLESDMS WHERE IPCLEUNIK="+nIPCLE
  25.   SQLExec(sReq,rVoeux)
  26.   SQLPremier(rVoeux)
  27.   SI PAS SQL.EnDehors ALORS
  28.    POUR i=1 A 5
  29.     {"SAI_VOEUX"+i,indChamp}=SQLCol(rVoeux,20+4*(i-1))
  30.     {"SAI_QTE"+i,indChamp}=SQLCol(rVoeux,21+4*(i-1))
  31.     {"SAI_DVD"+i,indChamp}=SQLCol(rVoeux,22+4*(i-1))
  32.     {"SAI_DIV"+i,indChamp}=SQLCol(rVoeux,23+4*(i-1))
  33.    FIN
  34.    INT_AdrPerso=SQLCol(rVoeux,40)
  35.   SINON
  36.    sReq="INSERT INTO TABLESDMS (IPCLEUNIK,NOMSOC,AD1,AD2,AD3,AD4,CP,VILLE,PAYS,TEL,FAX,NOM,PRENOM,ADP1,ADP2,CPP,VILLEP,PAYSP,EMAIL)"+...
  37.    "VALUES ("+nIPCLE+",'"+SansEspace(PROSPECT.NOM)+"','"+SansEspace(PROSPECT.PROAD1)+"','"+SansEspace(PROSPECT.PROAD2)+"','"+SansEspace(PROSPECT.PROAD3)+"','"+SansEspace(PROSPECT.PROAD4)+"','"+SansEspace(PROSPECT.PROCP)+"','"+SansEspace(PROSPECT.PROVIL)+"','"+SansEspace(PROSPECT.PAYS)+"','"+SansEspace(PROSPECT.PROTEL1)+"','"+SansEspace(PROSPECT.PROFAX)+"','"+SansEspace(INTERLO.INTNOM)+"','"+SansEspace(INTERLO.INTPREN)+"','"+SansEspace(INTERLO.INTAD1)+"','"+SansEspace(INTERLO.INTAD2)+"','"+SansEspace(INTERLO.INTCP)+"','"+SansEspace(INTERLO.INTVIL)+"','"+SansEspace(INTERLO.PAYS)+"','"+SansEspace(INTERLO.ADINTERNET)+"')"
  38.    SQLExec(sReq,rVoeux)
  39.   FIN
  40.  FIN
  41. SINON
  42.  Erreur("Problème de connexion",HErreurInfo(hErrComplet))
  43. FIN
  44. SINON
  45. Erreur("Le contact n'existe pas" )
  46. FIN
  48. //clic sur cancel
  49. SQLDéconnecte()
  51. //clic sur ok
  52. sReq est une chaîne
  54. sReq="UPDATE TABLESDMS SET NOMSOC='"+SansEspace(PROSPECT.NOM)+"', AD1='"+SansEspace(PROSPECT.PROAD1)+"', AD2='"+SansEspace(PROSPECT.PROAD2)+"', AD3='"+SansEspace(PROSPECT.PROAD3)+"', AD4='"+SansEspace(PROSPECT.PROAD4)+"', CP='"+SansEspace(PROSPECT.PROCP)+"', VILLE='"+SansEspace(PROSPECT.provil)+"',PAYS='"+SansEspace(PROSPECT.pays)+"',TEL='"+SansEspace(PROSPECT.PROTEL1)+"',FAX='"+SansEspace(PROSPECT.PROfax)+"',NOM='"+SansEspace(INTERLO.INTNOM)+"',PRENOM='"+SansEspace(interlo.INTPREN)+"',ADP1='"+SansEspace(INTERLO.INTAD1)+"',ADP2='"+SansEspace(INTERLO.INTAD2)+"',CPP='"+SansEspace(INTERLO.INTCP)+"',VILLEP='"+SansEspace(INTERLO.INTVIL)+"',PAYSP='"+SansEspace(INTERLO.PAYS)+"',EMAIL='"+SansEspace(INTERLO.ADINTERNET)+"', "+...
  55.      "VOEUX1='"+SAI_VOEUX1+"', VOEUX2='"+SAI_VOEUX2+"', VOEUX3='"+SAI_VOEUX3+"', VOEUX4='"+SAI_VOEUX4+"', VOEUX5='"+SAI_VOEUX5+"', "+...
  56.      "QTE1='"+SAI_QTE1+"', QTE2='"+SAI_QTE2+"', QTE3='"+SAI_QTE3+"', QTE4='"+SAI_QTE4+"', QTE5='"+SAI_QTE5+"', "+...
  57.      "DVD1='"+SAI_DVD1+"', DVD2='"+SAI_DVD2+"', DVD3='"+SAI_DVD3+"', DVD4='"+SAI_DVD4+"', DVD5='"+SAI_DVD5+"', "+...
  58.      "DIV1='"+SAI_DIV1+"', DIV2='"+SAI_DIV2+"', DIV3='"+SAI_DIV3+"', DIV4='"+SAI_DIV4+"', DIV5='"+SAI_DIV5+"', "+...
  59.      "ENVOIADRPERSO="+INT_AdrPerso+" "+...
  60.      "WHERE IPCLEUNIK="+nIPCLE
  61. Info(sReq,SQLExec(sReq,rVoeux))
  62. Ferme()
  66. Ferme()


 
En gros il s'agit d'un fichier qui référence à qui la société a envoyé des voeux ou cadeaux de fin d'année sur les années précédentes.
 
La fenetre ressemble à ca, et les champs d'appellent SAI_VOEUX, SAI_QTE ...
 
http://loic.admin-info.net/voeux.jpg
 
 
Bref je suis vraiment bloqué parce que je ne sais pas ce qui a foiré avec la mise à jour, si quelqu'un avait une idée ca m'arrangerait bien ...
 
 
Merci.

Reply

Marsh Posté le 26-08-2008 à 09:11:10   

Reply

Marsh Posté le 26-08-2008 à 09:23:00    

C'est pas un forum d'aide aux langages de merde ici, désolé :o
 
Va voir les forums officiels de ton outil démoniaque, normalement il y a du support avec la license.


---------------
Stick a parrot in a Call of Duty lobby, and you're gonna get a racist parrot. — Cody
Reply

Marsh Posté le 26-08-2008 à 09:27:59    

bon c est pas mon outil, je suis juste stagiaire, on m a collé ca dans les pattes et la prog franchement c est pas mon domaine ...
 
Doit bien y avoir quelqu'un ici qui connait un peu cette saleté non ?

Reply

Marsh Posté le 26-08-2008 à 10:07:16    

nan, personne ne connait cet outil de satan

 

:hello: GTT

 

edit : les derniers qui connaissait ont fini de bruler la semaine dernière


Message édité par flo850 le 26-08-2008 à 10:07:40
Reply

Marsh Posté le 26-08-2008 à 10:27:35    

:hello: Flo :D
 
 
Tu me diras, c est pas forcément plus mal qu'ils aient fini de bruler :D

Reply

Marsh Posté le 26-08-2008 à 10:54:40    

Citation :

Problème avec windev et SQL

La partie en bleu est un pléonasme.
A+,

Message cité 1 fois

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 26-08-2008 à 11:25:18    

Windev est un excellent langage, qui ne fait qu'exiger rigueur et bon sens dans le développement.  :o

Message cité 1 fois
Reply

Marsh Posté le 26-08-2008 à 11:26:50    


Bonne blague, mais un peu trop flagrante pour passer :o


---------------
Stick a parrot in a Call of Duty lobby, and you're gonna get a racist parrot. — Cody
Reply

Marsh Posté le 26-08-2008 à 11:28:46    

ce topic de vieux :eek:

Reply

Marsh Posté le 26-08-2008 à 11:35:58    

Ca plante à quel moment ?
 
vire des bouts de code pour isoler ce qui chie pitetre


---------------
You can't start a fire with moonlight
Reply

Marsh Posté le 26-08-2008 à 11:35:58   

Reply

Marsh Posté le 26-08-2008 à 11:47:20    

le probleme est que je ne peux meme plus éditer la fenetre sinon j'aurais déjà modifié ca pour tester ...
 
 
Quand je réouvre la fenetre avec windev, le simple fait de la sauvegarder la rend impossible à utiliser ... donc en plus d'avoir un bug avec la fenetre ( mais je ne vois pas pourquoi la mise a jour de l erp aurait changé la fenetre, du moins pour cette partie ) y a un bug avec windev ...

Message cité 1 fois
Reply

Marsh Posté le 26-08-2008 à 20:26:25    

GTTeamKiller a écrit :

le probleme est que je ne peux meme plus éditer la fenetre sinon j'aurais déjà modifié ca pour tester ...
 
 
Quand je réouvre la fenetre avec windev, le simple fait de la sauvegarder la rend impossible à utiliser ... donc en plus d'avoir un bug avec la fenetre ( mais je ne vois pas pourquoi la mise a jour de l erp aurait changé la fenetre, du moins pour cette partie ) y a un bug avec windev ...


 

gilou a écrit :

La partie en bleu est un pléonasme.
A+,


 
 
[:spamafote]

Reply

Marsh Posté le 26-08-2008 à 20:30:22    

Faut demander à stiffler, c'est pas lui qui bosse avec windev [:petrus75] ?


---------------
"About your cat Mr. Schrödinger : I have good news and bad news"
Reply

Marsh Posté le 26-08-2008 à 21:08:50    

aucune idée... moi je fait mon stage dessus :'( mais j'ai déjà du mal à le supporter pendant les horaires de travail, alors c'est pas pour en faire la [:ddr555]
et j'utilise pas le requetage sql directe dans le code comme ca :o
seul truc a la rigueur c'est de lancer un debug des le lancement de la fenetre, mais si ca plante a la compil, pas grand chose a faire...
surtout que parfois, suffit de supprimer la fenetre, de la refaire en remettant exactement le meme code pour que ca refonctionne... alors bon...

Message cité 1 fois
Reply

Marsh Posté le 27-08-2008 à 08:16:26    

e-TE a écrit :

aucune idée... moi je fait mon stage dessus :'( mais j'ai déjà du mal à le supporter pendant les horaires de travail, alors c'est pas pour en faire la [:ddr555]
et j'utilise pas le requetage sql directe dans le code comme ca :o
seul truc a la rigueur c'est de lancer un debug des le lancement de la fenetre, mais si ca plante a la compil, pas grand chose a faire...
surtout que parfois, suffit de supprimer la fenetre, de la refaire en remettant exactement le meme code pour que ca refonctionne... alors bon...


ben voila je fais aussi mon stage dessus ...
 
En fait j ai carrément fait sauter le projet et je l'ai recréé en copié-collé :pfff:  
 
 
bon j'arrive maintenant à l'éditer, mais je ne peux toujours pas accéder en écriture à ma base access .... la semaine dernière ca marchait tres bien, je ne sais pas pourquoi il ne veut plus écrire dedans ...

Reply

Marsh Posté le 27-08-2008 à 09:44:11    

Moi, je bosse malheureusement avec Windev. Enfin, plus que pour 3 jours ! \o/
 
M'enfin, il faut appeler le support Windev ! Faut pas hésiter à les appeler. Enfin, à le paremière heure ! Sinon, tu risque de te tapper le zique d'attente pourrie pendant un moment :/

Message cité 1 fois
Message édité par kao98 le 27-08-2008 à 09:46:34

---------------
Kao ..98 - Uplay (R6S) : kao98.7.62x39 - Origin (BF4, BF1) : kntkao98
Reply

Marsh Posté le 27-08-2008 à 09:51:20    

kao98 a écrit :

Moi, je bosse malheureusement avec Windev. Enfin, plus que pour 3 jours ! \o/
 
M'enfin, il faut appeler le support Windev ! Faut pas hésiter à les appeler. Enfin, à le paremière heure ! Sinon, tu risque de te tapper le zique d'attente pourrie pendant un moment :/


encore une semaine et 3 jours pour moi :sweat:  
 
 
mais pour le support windev, je les ai mailé hier en milieu d'aprem et je vais les appeler si j'ai pas de réponses à 10h30, la je peux encore faire 2 ou 3 essais en essayant notamment avec un acces via l'ODBC plutot qu'en direct mais c est galère je ne connais pas assez le langage ...

Reply

Marsh Posté le 27-08-2008 à 09:58:13    

Appelle les à 14h. Là, à 10h30, tu risques d'avoir à peu près 1h d'attente.


---------------
Kao ..98 - Uplay (R6S) : kao98.7.62x39 - Origin (BF4, BF1) : kntkao98
Reply

Marsh Posté le 27-08-2008 à 10:16:03    

ah ok :sweat:
 
 
merci pour le conseil :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed