Posted on February, 17 2005 - 12:29 PM |
J'ai un système qui marche parfaitement lorsque cela part d'un champs
lien.
Le meme système avec le lien dans une ZR ne fn pas, pourquoi ????
Dans le lien, j'ai
-- Code navigateur ---
// je prépare la page et la taille de la popup selon le type de doc à
afficher.
SELON aTVD_TYPEACT
CAS 2,3,4,5
ChangeDestination("_blank")
CAS 9,13,14,15
ChangeDestination(OuvrePopup("","CentréeEcran"))
CAS 10
ChangeDestination(OuvrePopup("","CentréeEcran",0,0,400,300))
AUTRE CAS
FIN
-- Code Serveur --
.....
SELON aTVD_TYPEACT
CAS 2,3,4,5
//html, word,excel,pdf
PageAffiche(DisplayDoc,aTVD_ACTION,aTVD_TYPEACT)
CAS 7
PageAffiche(aTVD_ACTION)
CAS 13 //flash
PageAffiche(litVideoSon,aTVD_TYPEACT,CurDETW,aTVD_ACTION)
CAS 14 // video
PageAffiche(litVideoSon,aTVD_TYPEACT,CurDETW,aTVD_ACTION)
CAS 15 // son
PageAffiche(litVideoSon,aTVD_TYPEACT,CurDETW,aTVD_ACTION,CURHTMLIMG)
FIN
Donc selon le doc (tous les cas ne sont pas présentés), je vais
utiliser la page DisplayDoc ou litVideoSon.
Pour DisplayDoc, cela ouvre bien ds un nouveau navigateur.
Pour les cas 9,13,14,15 cela ouvre bien la popup mais vide. Cela ne
passe pas dans le code serveur
PageAffiche(litVideoSon,aTVD_TYPEACT,CurDETW,aTVD_ACTION) meme en
débug.
Je ne comprends pas pourquoi ??
Cela marche bien avec un lien externe à une ZR ???
code de la proc nav OuvrePopup
PROCEDURE
OuvrePopup(_NomPage="",_TypePosition="",_x=0,_y=0,peLarg@0,peHaut`0)
//Dimensions de la popup
eLarg, eHaut sont des entiers
eLarg = peLarg
eHaut = peHaut
SELON _TypePosition
CAS "CentréeEcran"
NavigateurOuvre(_NomPage,"POPUPWB",ONSimple+ONAscenseur,eLarg,eHaut,SysXRes()/2-eLarg/2,SysYRes()/2-eHaut/2)
CAS "PosPerso"
NavigateurOuvre(_NomPage,"POPUPWB",ONSimple+ONAscenseur,eLarg,eHaut,_x,_y)
CAS ""
NavigateurOuvre(_NomPage,"POPUPWB",ONSimple+ONAscenseur,eLarg,eHaut)
AUTRE CAS
NavigateurOuvre(_NomPage,"POPUPWB",ONSimple+ONAscenseur,eLarg,eHaut)
FIN
//Renvoie le nom du nouveau navigateur.
RENVOYER "POPUPWB"
--
Eric
Webmaster des Wtablettes
www.wtablettes.net |
| |
| |
|