PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Phenomene bizzard - iImprimeEtat
Phenomene bizzard - iImprimeEtat
Started by Gérard - ASI, Mar., 30 2006 4:43 PM - 10 replies
Posted on March, 30 2006 - 4:43 PM
Bonjour,

Sur un bouton, j'ai un code de 7 lignes.
instruc 1
instruc 2
iAperçu( i100 )
iImprimeEtat( xxx )
Instruc 3
Instruc 4

-----Problème----------
Pour des raison que j'ignore, quelque fois, les instructions 3 et 4 ne sont
pas executées
D'après l'utilisateur, il n'y pas de message d'erreur lors de l'impression.

Avez vous déjà eu ce phenomène ?

Gérard.
Posted on March, 30 2006 - 2:09 AM
Georgy avait prétendu :
Bonjour
IImprimeEtat ouvre une nouvelle fenêtre indépendante, et le code ne continue
pas. (comme quand on ouvre une fenetre normale)

A+


Bonjour,

Pris d'un gros doute, je viens de tester: LE CODE CONTINUE
(heureusement pour moi)

donc si Gérard pouvait mettre son code peut être que?... l'on pourait
mieux l'aider

JD
Posted on March, 30 2006 - 8:08 AM
Bonjour,

Et si tu fais ça :

instruc 1
instruc 2
iAperçu( i100 )
iImprimeEtat( xxx )
ifinimprime() //<-----------------
Instruc 3
Instruc 4

--

Bon Dev.

Alidev7@yahoo.fr
Posted on March, 30 2006 - 10:48 AM
Oui, mais en principe, quand on ferme cette fenetre, le code apres le ouvre
se poursuit !...
Ce n'est pas comme un RepriseSaisie ?
D'ailleurs, des fois ça se pouirsuit ...

Gerard

"Georgy" <jfgeorgy@hispeed-sr.ch> a écrit dans le message de news:
442c0951$1@news.pcsoft.fr...
Bonjour
IImprimeEtat ouvre une nouvelle fenêtre indépendante, et le code ne
continue pas. (comme quand on ouvre une fenetre normale)

A+



Posted on March, 30 2006 - 10:48 AM
Des fois OUI, des fois NON ... c'est là le problème.

"jean daniel" <ns_jean-daniel.hoarau@laposte.net> a écrit dans le message de
news: mn.f5817d635d09609e.26715@laposte.net...
Georgy avait prétendu :
Bonjour
IImprimeEtat ouvre une nouvelle fenêtre indépendante, et le code ne
continue
pas. (comme quand on ouvre une fenetre normale)

A+

Bonjour,

Pris d'un gros doute, je viens de tester: LE CODE CONTINUE
(heureusement pour moi)

donc si Gérard pouvait mettre son code peut être que?... l'on pourait
mieux l'aider

JD
Posted on March, 30 2006 - 11:00 AM
Voilà le code ...
Pour info je suis un client SOAP, et l'appel
gclLeServ:ExecSOAth(sRet,"Nom_Procedure"[[,param]])
appel une procedure sur un serveur SOAP.


// Edition
SI PAS gclLeServ:ExecSOAth(sRet,"DataLanceTout",PtrIaPr) ALORS
Erreur(sRet)
RETOUR
FIN
i est un entier = 1
sLig est une chaîne
HCréation(LANCEMENT)
sLig = ExtraitChaîne(sRet,i,CRLF)
TANTQUE sLig <> EOT
LANCEMENT.IDAPRODUIRE = ExtraitChaîne(sLig,1)
LANCEMENT.NOPALETTE = ExtraitChaîne(sLig,2)
LANCEMENT.CD_BARRE_PROD = ExtraitChaîne(sLig,3)
LANCEMENT.DLUO = SAI_DLUO_PREV
LANCEMENT.LIB_LIGNE = ExtraitChaîne(sLig,5)
LANCEMENT.QTE_UVC = ExtraitChaîne(sLig,6)
HAjoute(LANCEMENT)
i++
sLig = ExtraitChaîne(sRet,i,CRLF)
FIN
SI i = 1 ALORS
Info("Aucun enregistrement")
RETOUR
FIN
iAperçu()
iImprimeEtat(ETAT_Lance)
// Passage en production
SI PAS gclLeServ:ExecSOAth(sRet,"PasseEnStock",PtrIaPr) ALORS
Erreur(sRet)
RETOUR
FIN

"jean daniel" <ns_jean-daniel.hoarau@laposte.net> a écrit dans le message de
news: mn.f5817d635d09609e.26715@laposte.net...
Georgy avait prétendu :
Bonjour
IImprimeEtat ouvre une nouvelle fenêtre indépendante, et le code ne
continue
pas. (comme quand on ouvre une fenetre normale)

A+

Bonjour,

Pris d'un gros doute, je viens de tester: LE CODE CONTINUE
(heureusement pour moi)

donc si Gérard pouvait mettre son code peut être que?... l'on pourait
mieux l'aider

JD
Posted on March, 30 2006 - 11:19 AM
ton erreur peut se trouver là dedans

SI PAS gclLeServ:ExecSOAth(sRet,"PasseEnStock",PtrIaPr) ALORS
....................^............................

Gérard - ASI a pensé très fort :
Voilà le code ...
Pour info je suis un client SOAP, et l'appel
gclLeServ:ExecSOAth(sRet,"Nom_Procedure"[[,param]])
appel une procedure sur un serveur SOAP.


// Edition
SI PAS gclLeServ:ExecSOAth(sRet,"DataLanceTout",PtrIaPr) ALORS
Erreur(sRet)
RETOUR
FIN
i est un entier = 1
sLig est une chaîne
HCréation(LANCEMENT)
sLig = ExtraitChaîne(sRet,i,CRLF)
TANTQUE sLig <> EOT
LANCEMENT.IDAPRODUIRE = ExtraitChaîne(sLig,1)
LANCEMENT.NOPALETTE = ExtraitChaîne(sLig,2)
LANCEMENT.CD_BARRE_PROD = ExtraitChaîne(sLig,3)
LANCEMENT.DLUO = SAI_DLUO_PREV
LANCEMENT.LIB_LIGNE = ExtraitChaîne(sLig,5)
LANCEMENT.QTE_UVC = ExtraitChaîne(sLig,6)
HAjoute(LANCEMENT)
i++
sLig = ExtraitChaîne(sRet,i,CRLF)
FIN
SI i = 1 ALORS
Info("Aucun enregistrement")
RETOUR
FIN
iAperçu()
iImprimeEtat(ETAT_Lance)
// Passage en production
SI PAS gclLeServ:ExecSOAth(sRet,"PasseEnStock",PtrIaPr) ALORS
Erreur(sRet)
RETOUR
FIN

"jean daniel" <ns_jean-daniel.hoarau@laposte.net> a écrit dans le message de
news: mn.f5817d635d09609e.26715@laposte.net...
Georgy avait prétendu :
Bonjour
IImprimeEtat ouvre une nouvelle fenêtre indépendante, et le code ne
continue
pas. (comme quand on ouvre une fenetre normale)

A+

Bonjour,

Pris d'un gros doute, je viens de tester: LE CODE CONTINUE
(heureusement pour moi)

donc si Gérard pouvait mettre son code peut être que?... l'on pourait
mieux l'aider

JD


--
Posted on March, 30 2006 - 11:53 AM
Non, j'ai mis un log dans le serveur, cette instruction n'est pas appelée.

"jean daniel" <ns_jean-daniel.hoarau@laposte.net> a écrit dans le message de
news: mn.fa397d63adb7a7b9.26715@laposte.net...

ton erreur peut se trouver là dedans

SI PAS gclLeServ:ExecSOAth(sRet,"PasseEnStock",PtrIaPr) ALORS
...................^............................

Gérard - ASI a pensé très fort :
Voilà le code ...
Pour info je suis un client SOAP, et l'appel
gclLeServ:ExecSOAth(sRet,"Nom_Procedure"[[,param]])
appel une procedure sur un serveur SOAP.


// Edition
SI PAS gclLeServ:ExecSOAth(sRet,"DataLanceTout",PtrIaPr) ALORS
Erreur(sRet)
RETOUR
FIN
i est un entier = 1
sLig est une chaîne
HCréation(LANCEMENT)
sLig = ExtraitChaîne(sRet,i,CRLF)
TANTQUE sLig <> EOT
LANCEMENT.IDAPRODUIRE = ExtraitChaîne(sLig,1)
LANCEMENT.NOPALETTE = ExtraitChaîne(sLig,2)
LANCEMENT.CD_BARRE_PROD = ExtraitChaîne(sLig,3)
LANCEMENT.DLUO = SAI_DLUO_PREV
LANCEMENT.LIB_LIGNE = ExtraitChaîne(sLig,5)
LANCEMENT.QTE_UVC = ExtraitChaîne(sLig,6)
HAjoute(LANCEMENT)
i++
sLig = ExtraitChaîne(sRet,i,CRLF)
FIN
SI i = 1 ALORS
Info("Aucun enregistrement")
RETOUR
FIN
iAperçu()
iImprimeEtat(ETAT_Lance)
// Passage en production
SI PAS gclLeServ:ExecSOAth(sRet,"PasseEnStock",PtrIaPr) ALORS
Erreur(sRet)
RETOUR
FIN

"jean daniel" <ns_jean-daniel.hoarau@laposte.net> a écrit dans le message
de
news: mn.f5817d635d09609e.26715@laposte.net...
Georgy avait prétendu :
Bonjour
IImprimeEtat ouvre une nouvelle fenêtre indépendante, et le code ne
continue
pas. (comme quand on ouvre une fenetre normale)

A+

Bonjour,

Pris d'un gros doute, je viens de tester: LE CODE CONTINUE
(heureusement pour moi)

donc si Gérard pouvait mettre son code peut être que?... l'on pourait
mieux l'aider

JD

--


Posted on March, 30 2006 - 6:04 PM
J'ajouterais encore 2 multitache() pour être sûr...bien que ton problème soit certainement dû à l'oubli de la ligne "iFinImprime()"

instruc 1
instruc 2
multitache()
iAperçu( i100 )
iImprimeEtat( xxx )
ifinimprime() //<-----------------
multitache()
Instruc 3
Instruc 4

Alain
Posted on March, 30 2006 - 9:45 PM
Bonjour
IImprimeEtat ouvre une nouvelle fenêtre indépendante, et le code ne continue pas. (comme quand on ouvre une fenetre normale)

A+
Posted on April, 03 2006 - 11:40 AM
Pour moi, il n'est pas nécessaire de faire un "iFinImprime" avec
iImprimeEtat, d'ailleurs, dans les exemples de la doc, il ne l'utilise pas.
iFinImprime va uniquement avec iImprime, pour terminer et lancer une
impression réalisée à la "main" sans le générateur d'état.
Et si c'était le cas, l'erreur serait permanante, alors que dans mon cas,
des fois c'est bon, des fois c'est pas bon !


"Alain" <topcom@thenet.ch> a écrit dans le message de news:
442d3517$1@news.pcsoft.fr...


J'ajouterais encore 2 multitache() pour être sûr...bien que ton problème
soit certainement dû à l'oubli de la ligne "iFinImprime()"

instruc 1
instruc 2
multitache()
iAperçu( i100 )
iImprimeEtat( xxx )
ifinimprime() //<-----------------
multitache()
Instruc 3
Instruc 4

Alain