Discussion :

[olivierlsf]

Bonjour,

j'ai des difficultés avec la fermeture de ma page

Code :

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

1
2
3
 
  window.opener=null 
  window.close()

voir même

Code :

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

self.close

ne fonctionne pas lorsque la page est sous reseau (en site de confiance)

alors que cette fonction est ok lorsque je suis en poste de travail ...

Pour la config. Ie, elle est identique en poste de travail et en site de confiance

Quelqu'un aurait une petite idée svp ... ??

merci par avance

[ced600]

Postes tout ton code, et dis nous ce que tu fais.

[olivierlsf]

ced .. merci

Le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
<img border="0" src="C:\Program Files\Actaris\Image\21556.gif" width="190" height="70"></p>
<div align="left" style="width: 934; height: 535">
 
 
<form method="POST" name="Form">
<table border="0" width="980"
<tr>
<tr>
<td valign="top" width="410" height="29"> </td>
<td valign="top" width="386" align="center" height="29" colspan="2"><font face="Arial" size="5"><u>ETIQUETTE</u></font> </td>
<td valign="top" width="300" height="29"> </td>
<tr>
<td valign="top" width="410"> </td>
<td valign="top" width="386" colspan="2"> </td>
<td valign="top" width="300"> </td>
<tr>
<td valign="top" width="410"> </td>
<td valign="top" width="1"> </td>
<td valign="top" width="439"><font face="Arial" size="4"><i>Description</i></font><br><input type="text" size=25 name="Desc"> </td>
<td valign="top" width="300"> </td>
<tr>
<td valign="top" width="410"> </td>
<td valign="top" width="76"> </td>
<td valign="top" width="310"><i><font face="Arial" size="4">Référence</font></i><br><input type="text" size=20 name="Ref"> </td>
<tr>
<td valign="top" width="410"> </td>
<td valign="top" width="76"> </td>
<td valign="top" width="310"><font face="Arial" size="4"><i>Quantité par emballage</i></font><br><input type="text" size=25 name="Quantite"> </td>
<tr>
<td valign="top" width="410"> </td>
<td valign="top" width="76">
 </td>
<td valign="top" width="310"><font face="Arial" size="4"><i>Quantité étiquette(s)</i></font><br><input type="text" size="5" name="LAB_QUANTITY" value="1" </td>
 </td>
</table><br><br>
<table border="0" width="100%"<tr><td></table>
<BR><BR>
<div align="center"><center><font size="2" face="Arial">Imprimante </font>
<select SIZE="1" name="PrnList" Align = "baseline" border = "0" Width = "217" Height = "24" > 
	<option> Zebra Z4000 (300dpi),LPT1: </option> 
 
 
 
  </select>
 
<BR><BR>
 
  <table>
    <tr>
 
<td valign="top" width="472" align="center" height="2"><center>
  <font size="3">
<input type="button" name="CSCtrl" Width="400" Height="500"
value="IMPRESSION" style="position: relative; width: 213; height: 54; font-family: Arial; font-weight: bold">
  </font>
</center> </td>
 
 
<BR><BR>
 
 
 
<td valign="top" width="431" height="36"> <center>
  <font size="3">
<input type="button" name="CSCtrlQUITTER" Width="400" Height="500"
value="QUITTER"  style="position: relative; width: 179; height: 53; font-family: Arial; font-weight: bold">
  </font>
</center> </td>
 
 
</form>
    </table>
  </center>
  </div>
</div>
</body>

l'interface gère l'impression d'etiquette ....

Et le bouton Quitter permets à d'arreter de sortir de l'écran d'impression ....

Cette interface fonctionne en 'Poste de travail' - mais en site de consiance 'localHost' je ne peux pas sortir de l'interface ... le bouton quitter ne fonctionne pas .. pas de message d'erreur non plus ...

[ced600]

Ce n'est pas du code vbs c'est du code HTML.
Où est ton code VBS ?

[olivierlsf]

Désolé j'ai raté mon copier coller ....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
<script language="VBScript"><!--"
dim CSOBJ
Sub Window_onLoad()
	set CSOBJ = CreateObject("TkxBridge.Application")
End Sub
 
 
Sub Window_onUnload()
	CSOBJ.Quit
	set CSOBJ = Nothing
End Sub
 
 
Sub CSCtrl_onClick()
Dim doc
Dim Choice
 
 
	CSOBJ.Connect "HTML Form Generator"
	CSOBJ.OpenDocument "c:\progra~1\actaris\etique~1\kit.lab" 
	Choice =  Form.PrnList.selectedIndex 
	CSOBJ.SelectPrinter Form.PrnList.Options(Choice).Text
 
 
	CSOBJ.SetVariable "Desc", Form.Desc.Value
	CSOBJ.SetVariable "Quantite", Form.Quantite.Value
	CSOBJ.SetVariable "Ref", Form.Ref.Value
 
 
	CSOBJ.PrintDocument Form.LAB_QUANTITY.Value, "1", "1"
End Sub
 
sub CSCtrlQUITTER_onClick() 
  opener=null 
  close()
end sub  
 
--></script>

[ced600]

Bon c koi le problème ?
Une exception ?
Cela ne se ferme pas ?

Qu'est ce que opener ?