Discussion :

[SINTECH]

Bonjour à tous

Dans la description d'un bouton serveur, la destination du code (afficher des Etats par exemple) s'effectue dans un nouvel onglet du navigateur.
Mais lorsqu'il n'y a rien à imprimer dans mon Etat la page contenant mon bouton s'affiche à nouveau dans le nouvel onglet en question.

je voudrais refermer par programmation cet onglet et rester sur ma page initiale lorsqu'il n'y a rien à imprimer dans mes Etats.
J'ai ainsi cherché en ligne et dans l'aide de Webdev en vain.

je voudrais donc savoir s'il existe une fonction ou une astuce pour refermer ce nouvel onglet du navigateur.

Merci de me conseiller
Et bonne journée à toutes et à tous

[Voroltinquo]

Bonjour,
Une solution est de vérifier en amont (e.g. en exécutant la requête) s'il y a des données à imprimer

[SINTECH]

Ok je vais m'orienter sur cette voie
Merci beaucoup

[destifano]

Bonjour,
Une solution est de vérifier en amont (e.g. en exécutant la requête) s'il y a des données à imprimer

Bonjour, la solution ne marche pas, vu que le nouvel onglet s'ouvre en cliquant sur le bouton, donc avant l'exécution du code de vérification.

[SINTECH]

Bonjour, la solution ne marche pas, vu que le nouvel onglet s'ouvre en cliquant sur le bouton, donc avant l'exécution du code de vérification.

Effectivement,
Je cherche toujours une fonction ou un code pouvant remédier à cela

[Voroltinquo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
REQ_Client_R.pInitiale=SAI_Initiale
HExécuteRequête(REQ_Client_R)
iDestination(iPDFGénérique,"TestClient.pdf")
iImprimeEtat(ETAT_Client)
SI HNbEnr(REQ_Client_R)<>0 ALORS
	FichierAffiche("TestClient.PDF","application/pdf")
SINON
	Info("Aucun enregistrements à afficher")
FIN

[SINTECH]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
REQ_Client_R.pInitiale=SAI_Initiale
HExécuteRequête(REQ_Client_R)
iDestination(iPDFGénérique,"TestClient.pdf")
iImprimeEtat(ETAT_Client)
SI HNbEnr(REQ_Client_R)<>0 ALORS
	FichierAffiche("TestClient.PDF","application/pdf")
SINON
	Info("Aucun enregistrements à afficher")
FIN

Merci Beaucoup.
Le code est très clair et explicite.
Là où je reste perplexe c'est que le code se situe au niveau d'un bouton dont la destination est un nouvel onglet (voir image ci-jointe)
(Ce qui implique l'onglet s'ouvre avant même de tester le contenu de la requête. c'est ce qui me dérange dans mon code)



Voici le code du bouton d'affichage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
AI_Immat	= SansEspace(SAI_Immat,sscTout)
gsImmat		= SAI_Immat
 
HExécuteRequête(REQ_ContratAssurance,hRequêteDéfaut,gsImmat,gsCompagnie,gnIdAgence)
SI HNbEnr(REQ_ContratAssurance) <> 0 ALORS
	Affiche_ETAT_Contrat()
SINON
	Erreur("Aucun enregistrement à afficher")
FIN

// Affiche_Etat_Contrat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
// Création du nom de l'Etat
NomApercu = "cpa_" + gsImmat + "_" + DateSys() + HeureSys() + ".pdf"
// Création d'un nom de fichier unique
MonFichierUnique = ComplèteRep(sRépertoireImpression) + NomApercu
// Destination de l'état : Impression de l'état dans un fichier PDF
iDestination(iPDF, MonFichierUnique)
// Impression de l'état
iInitRequêteEtat(ETAT_Contrat,gsImmat)
iImprimeEtat(ETAT_Contrat)
// Affichage de l'état au format PDF - Procédure Navigateur
FichierAffiche(MonFichierUnique, "application/pdf")
//Suppression de l'Etat dans le répertoire _web
fSupprime(MonFichierUnique)

En FAIT:
L'onglet s'ouvre avant même que le code ne soit exécuté