ASP Transact SQL help

**heoue** · 21/07/2008, 14h02

j'ai un petit souci je dois afficher un numero de fabrication dans la page ControlPlanQ6-1.asp. Ma requete sql qui permet d'afficher ma fabrication est

Code :

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

1
2
3
4
5
6
7
8
select 	top 1 prod_fab.fab_num ,
	prod_articles.cart,  prod_fab.fab_dateFin
from 
	prod_fab, 
	prod_articles 
where 
	prod_articles.cart=prod_fab.fab_codeArticle 
order by fab_dateFin desc

mais je sais pas comment faire pour dire si je selectionne le produit "toto" dans cette page ControlPlanQ1.asp je dois afficher le numero de la fabrication qui contient ce produit "toto" selectionner et qui a la date de fin la plus recente pour l'afficher dans la page ControlPlanQ6-1.asp

je vous explique :

on a plusieur atelier (4)

chaque atelier a une ou plusieur fabrication(autoincremente)

un produit peut appartenir a une ou plusieur fabrication.

j'ai une liste deroulante dans cette page ControlPlanQ1.asp

(premiere image dans doc1.doc)

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
<!--#include file = "conn.asp"-->
<!--#include file = "functionmail.asp"-->
 
<%
 
 
set rs = server.CreateObject("ADODB.recordset")
set rsc = server.CreateObject("ADODB.recordset")
 
if Request("operation")="validation" then
 
    Qualite_NomPlan			=	request("Qualite_NomPlan")
    Qualite_Description		=	request("Qualite_Description")
    Qualite_Auteur			=	request("Qualite_Auteur")
    Qualite_Type			=	request("Qualite_Type")
    Qualite_Usine			=	session ("Usine")
    Qualite_Produit			=	request("Qualite_Produit")
    lecodeatelier			=	request("codeatelier")
    'Qualite_Atelier         =   request("Qualite_Atelier")
    Qualite_Version         =   request("version")
 
//insertion dans la table qualite_PLANS
 
	sql= "exec GXO_INSERT_QUALITE_PLANS @PLAN_NAME='" & remplace(Qualite_NomPlan) & "',@PLAN_DESCR='" & remplace(Qualite_Description) & "',@PLAN_AUTEUR='" & Qualite_Auteur & "',@PLAN_VERSION='" & Qualite_Version & "', @PLAN_PROD_ID='" & Qualite_Produit & "',@PLAN_TYPE='" & Qualite_Type & "'"	
	set dll = server.CreateObject("XO.Template")
	set rsc = dll.FonctionGen(cstr(session("connexion")),cstr(sql))
    Session("planId")=Qualite_NomPlan
    id=rsc(0)
 
 
     tab=Request("tableau")
     resu=Split(tab,",")
     for t=0 to UBound(resu)
        sql= "exec GXO_INSERT_PLAN_ATELIER @PLAN_ID='" & id & "',@COD_ATELIER='" & resu(t) & "'"	
	    set dll = server.CreateObject("XO.Template")
	    set rsc = dll.FonctionGen(cstr(session("connexion")),cstr(sql))
     next
 
 
    Response.Redirect("ControlPlanQ1_Modification.asp?liste=plan&leID="&id&"")
    Response.End
end if
 
 
//fonction pour recuperer les nom et prenom des individus
sql="exec VISU#ref_individu @nom='"& nom &"', @profil='"& profil &"'"
set dll = server.CreateObject("XO.Template")
set rs = dll.FonctionGen(cstr(session("connexion")),cstr(sql))
 
listenom=""
while not rs.EOF
    if (rs("profil")="XO_Qualite" or rs("profil")="XO_Maintenance") then
    	    listenom=listenom & "<option value=" & rs("nom") & "  " & rs("Prenom") 
	end if
	listenom=listenom & " >"  & rs("nom") &" "& rs("Prenom")  & "</option>"
	rs.movenext
wend
rs.Close
 
 
 
 
sql="exec GXO_GET_PROD_USINE"
 
set dll = server.CreateObject("XO.Template")
set rs = dll.FonctionGen(cstr(session("connexion")),cstr(sql))
 
listesite=""
while not rs.EOF
    listesite=listesite & "<option value='" & rs("code") & "'"
	listesite=listesite & " >" & rs("usine")&"</option>"
	rs.movenext
wend
rs.Close
 
//fonction pour recuperer les noms de produit
sql="exec GXO_GET_CODE_PRODUI "
	set dll = server.CreateObject("XO.Template")
	set rs = dll.FonctionGen(cstr(session("connexion")),cstr(sql))
 
	codearticle=""
 
	while not rs.EOF
	    codearticle = codearticle & "<option value='" & rs("produit") & "'>" & rs("libile") & "</option>"
	    //codearticle = codearticle & "<option value='" & rs("cart") & "'>" & rs("liba") & "</option>"
        rs.MoveNext	
	wend
rs.Close
 
 
 
 
dim a
a= libelleChaine.Keys()
%>
 
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title>SG GYPSYM - GXO -</title>
<script language="JavaScript" type="text/javascript" src="JS/calendrier.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"/>
<link media="screen" href="css/ms.css" type="text/css" rel="stylesheet"/>
<link rel="stylesheet" href="Css/placo1.css" type="text/css"/>
</head>
 
<body text="#000000" background="images/fond.gif" bottommargin="0" leftMargin="0" link="navy" vlink="black" alink="red" topMargin="0" MARGINWIDTH="0" MARGINHEIGHT="0">
 
<form name = "Control_Qualite" action="controlplanQ1.asp?operation=Validation" id="Form1">
 
<table background="images/tablebg.jpg" width="100%" height="1%" align="center" border="0">
    <tr height="1%">
        <td nowrap width="30%"><font size="2" color="maroon">&nbsp;&nbsp;&nbsp;<b><%=ucase(trad("Plan d'action"))%> - <%=trad("Création")%></b></font></td>
        <td align=center width="20%"><font size="2" color="maroon"><%=trad("Usine")%> : </font><font color="#555555"><%=session("usine")%></font></td>
        <td align=center width="20%"><font size="2" color="maroon"><%=trad("Atelier")%> : </font><font color="#555555"><%=session("atelier")%></font></td>
        <td align=center width="20%"></font><font color=#555555></font></td>
        <td width="10%"></td>
		<td width="10%"></td>
        <td WIDTH="1%" nowrap><span style="FONT: xx-small Verdana; COLOR: navy"> GXO © </span></td>
    </tr>
</table><br/>
 
<table width="80%" align="center" id="Table2"  border="0">
<tr><td>
<blockquote>
	<fieldset>
		<legend>&nbsp;<%=trad("Création plan définition")%>&nbsp;
        <a href="javascript:Imprimer()" ><img border="0" alt="" src="images/btPrint.gif"/></a></legend>
		<center>
			<table border=0 id="Table3" style="width: 95%; height: 333px">
				<tr>
					<td style="width: 528px"><font size="2" color="maroon"><%=trad("Nom du plan")%> :</font></td>
					<td style="width: 715px">    <input type="text" id="Text1" name="Qualite_NomPlan" class="listerech" size="80" value="<%=nomPlan%>"/>&nbsp;
 
 
					</td>
				</tr>
				<tr>
					<td style="width: 528px"><font size="2" color="maroon"><%=trad("Brève description")%> :</font></td>
					<td style="width: 715px"><input type="text" id="Text2" name="Qualite_Description" class="listerech" size="80" value="<%=description %>"/>&nbsp;</td>
				</tr>
				<tr>
					<td style="width: 528px"><font size="2" color="maroon"><%=trad("Auteur")%> :</font></td>
					<td style="width: 715px">
					        <select name="Qualite_Auteur" class="listerech" onchange="">
					        <option selected="selected"></option>
					        <%=listenom%></select>		
                    </td>
 
				</tr>
				<tr>
					<td style="width: 528px"><font size="2" color="maroon"><%=trad("Version")%> :</font></td>
 
					<td style="width: 715px">
 
					    <input type="text"  id="Text5" name="Qualite_Version" class="listerech" size="80" value="<%=Valeur_Version%>"/>
 
                     </td>
 
				</tr>	
				<tr>
					<td style="height: 10px; width: 528px;"><font size="2" color="maroon"><%=trad("Type")%> :</font></td>
					<td id="BoutonRadio" style="width: 715px; height: 10px;">
					    <input type="radio" value="1" name="Qualite_Type" onclick="CacheEcran(this.value)" checked="checked" id="Radio1"/><font size="1"><%=trad("PRODUIT")%></font>
					    <input type="radio" value="2" name="Qualite_Type" onclick="CacheEcran(this.value)" id="Radio2"/><font size="1"><%=trad("MATIERE PREMIERE")%></font>
					    <input type="radio" value="3" name="Qualite_Type" onclick="CacheEcran(this.value)" id="Radio3"/><font size="1"><%=trad("AUCUN")%></font>
					</td>
 
				</tr>
 
				<tr >
					<td style="height: 86px; width: 528px;"><font size="2" color="maroon"><%=trad("Atelier")%> :</font>&nbsp;</td>
					<td style="width: 715px; height: 86px;">
					    <select name="Qualite_usine" class="listerech" multiple style="left: 0px; top: 5pt; width: 211px; height: 65px;" id="Select2"  ><%=listesite %></select></td>
				</tr>						
 
				<tr id = "ligne2">
					<td style="width: 528px"><font size="2" color="maroon"><%=trad("Produit")%> :</font></td>
					<td style="width: 715px">
 
					    <select name="Qualite_Produit" class="listerech" onchange=""  id="Select1" style="width: 357px">
					            <option selected="selected"></option>
								<%=codearticle %>
 
						</select>
 
					</td>
				</tr>
 
				<tr></tr><tr></tr><tr></tr><tr></tr><tr></tr><tr></tr><tr></tr><tr></tr>
 
 
				    <tr>
				        <td colspan="3" align="left">
 
					        <input type="button" class="BoutonDeclaration" onmouseover="this.style.cursor='hand'" onmouseout="this.style.cursor=''" value="<%=trad("Liste des plans")%>" onclick="javascript:listPlan()" id="Button4" name="Button""/>
					    </td>
				    </tr>		    
			</table>
		</center>
	</fieldset>
</blockquote>
 
 
</table>
 
 
<table id="Table4" width=85%>
<tr>
	<td  width="100%" align="right">
			  	<input type="button" class="BoutonDeclaration" onmouseover="this.style.cursor='hand'" onmouseout="this.style.cursor=''" value="<%=trad("ANNULER")%>" onclick="javascript:document.Control_Qualite.reset()" title="<%=trad("Annuler la saisie")%>" id="Button2" name="Button2"/>&nbsp;
				<input type="button" class="BoutonDeclaration" onmouseover="this.style.cursor='hand'" onmouseout="this.style.cursor=''" value="<%=trad("ENREGISTRER")%>" onclick="javascript:save()" id="Button3" name="Button3"/>		
			  </td>
			</tr>
</table>
<input type="hidden" name= "operation"/>
<input type="hidden" name= "atelier"/>
<input type="hidden" name= "codeatelier" />
<input type="hidden" name= "version" />
<input type="hidden" name= "tableau" />
<input type="hidden" name= "type"/>
 
</form>
 
</body>
</html>
<script language ="javascript">
 
<% if Imprimer="yes" then %>
window.print()
<% end if %>
 
function Imprimer()
{
   window.print()
}
 
 
function CacheEcran(id) 
{
	if ((id == 2) ||(id == 3))
	{
		//window.ligne1.style.visibility = "hidden"
		window.ligne2.style.visibility = "hidden"
	}
	else if (id==1)
	{
		//window.ligne1.style.visibility = "visible"
		window.ligne2.style.visibility = "visible"
	}
}
 
 
if ("<%=listenom%>"!="")
{
	document.Control_Qualite.Qualite_Auteur.value = "<%=Auteur%>"
}
if ("<%=Qualite_Type%>"!="")
{
	document.Control_Qualite.Qualite_Type.value = "<%=Qualite_Type%>"
}
if ("<%=Qualite_Atelier%>"!="")
{
	document.Control_Qualite.Qualite_Atelier.value = "<%=Qualite_Atelier%>"
}
if ("<%=codearticle%>"!="")
{
	document.Control_Qualite.Qualite_Produit.value = "<%=Qualite_Produit%>"
}
 
 
function save()
{
if (document.Control_Qualite.Qualite_NomPlan.value=='')
{
alert("<%=trad("Entrer le nom du plan") %>")
document.Control_Qualite.Qualite_NomPlan.focus()
return
}
if (document.Control_Qualite.Qualite_Auteur.value=='')
{
alert("<%=trad("Entrer le nom de l'auteur") %>")
document.Control_Qualite.Qualite_Auteur.focus()
return
}
if (document.Control_Qualite.Qualite_Version.value=='')
    {
    alert("<%=trad("Entrer la version") %>")
    document.Control_Qualite.Qualite_Version.focus()
    return
    }
if (document.Control_Qualite.Qualite_usine.value=='')
    {
    alert("<%=trad("Il faut sélectionne au moins un atelier") %>")
    document.Control_Qualite.Qualite_usine.focus()
    return
    }
document.Control_Qualite.type.value=document.Control_Qualite.Qualite_Type.value
 
 
if (document.Control_Qualite.Radio1.checked )
{
 
    if (document.Control_Qualite.Qualite_Produit.value=='')
    {
    alert("<%=trad("Entrer le nom du produit") %>")
    document.Control_Qualite.Qualite_Produit.focus()
    return
    }
 }
 
var selectedList = new Array();
var selectBox = document.Control_Qualite.Qualite_usine;
for (var i=0; i<selectBox.options.length; i++) {
  if (selectBox.options[i].selected) {
      selectedList.push(selectBox.options[i].value);
  }
}
document.Control_Qualite.tableau.value=selectedList
document.Control_Qualite.operation.value="validation"
 
document.Control_Qualite.version.value=document.Control_Qualite.Qualite_Version.value
window.document.Control_Qualite.action='ControlPlanQ1.asp'
window.document.Control_Qualite.target=''
document.Control_Qualite.submit()
}
 
 
function recherchearticle()
{
	chaine = document.Control_Qualite.atelier.value
	listemot = document.Control_Qualite.codeart.value
	window.open("LoupeServiceCodeArticle.asp?chaine="+chaine+"s&recherchearticle=" + listemot,"temp","height=300,width=600,resizable=yes,scrollbars=yes")
}
function listPlan()
{
    window.open("ControlPlanQ2.asp","MainFrame")
}
 
 
</Script>

Suite...

**heoue** · 21/07/2008, 14h06

...suite
quand je selectionne le produit, il doit prendre le le numero de fabrication qui a la date de fin la plus recente. Le numero de fabrication je doit l'afficher (voir encadrer rouge) dans la page ControlPlanQ6-1.asp . La ou il est ecrit en dur "1234" et le code produit deuxieme encadrer rouge

(deuxieme image dans doc1.doc)

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
<!--#include file = "conn.asp"-->
 
<%
set rs = server.CreateObject("ADODB.recordset")
set rsc = server.CreateObject("ADODB.recordset")
 
 
atelier=Request("atelier")
 
leid=Request("leID")
sql="exec GXO_GET_QUALITE_MESURE_BY_ID_TACHE @TCH_ID = "&leid&""
    ' Response.Write sql
    ' Response.End   
	set dll = server.CreateObject("XO.Template")
	set rs = dll.FonctionGen(cstr(session("connexion")),cstr(sql))
    while not rs.eof
        mesureID=rs("MES_ID")
        tacheID=rs("TCH_ID")
        nomTache=rs("TCH_NAME")
        modeOper=rs("TCH_DESC_OPER")
        modeProp=rs("TCH_INSTR_PRL")
        datePlanif=rs("PLANIF_DTH")
        dateEvent=rs("PLANIF_EVEN_DTH")
        etapeProcess=rs("TCH_ETAT_PROC")
        rs.movenext
	wend
	rs.close
 
if Request("operation")="validation" then
    nbrLigne=Request("count")
    tt=Request("tableau")
    tab=Split(tt,",")
    quant=Request("quantite")
    com=Request("commentaire")
 
    sql="exec GXO_UPDATE_QUALITE_MESURE_REMP_BY_ID_TACHE @TCH_ID ='"&leid&"',@TCH_QUAN='"&quant&"', @TCH_COMMENT='"&remplace(com)&"',@val1='"&remplace(tab(1))&"',@val2='"&remplace(tab(2))&"',@val3='"&remplace(tab(3))&"',@val4='"&remplace(tab(4))&"',@val5='"&remplace(tab(5))&"',@val6='"&remplace(tab(6))&"',@val7='"&remplace(tab(7))&"',@val8='"&remplace(tab(8))&"',@val9='"&remplace(tab(9))&"',@val10='"&remplace(tab(10))&"',@val11='"&remplace(tab(11))&"',@val12='"&remplace(tab(12))&"',@val13='"&remplace(tab(13))&"',@val14='"&remplace(tab(14))&"',@val15='"&remplace(tab(15))&"',@val16='"&remplace(tab(16))&"',@val17='"&remplace(tab(17))&"',@val18='"&remplace(tab(18))&"',@val19='"&remplace(tab(19))&"',@val20='"&remplace(tab(20))&"',@val21='"&remplace(tab(21))&"',@val22='"&remplace(tab(22))&"',@val23='"&remplace(tab(23))&"',@val24='"&remplace(tab(24))&"',@val25='"&remplace(tab(25))&"',@val26='"&remplace(tab(26))&"',@val27='"&remplace(tab(27))&"',@val28='"&remplace(tab(28))&"',@val29='"&remplace(tab(29))&"',@val30='"&remplace(tab(30))&"',@val31='"&remplace(tab(31))&"',@val32='"&remplace(tab(32))&"',@val33='"&remplace(tab(33))&"',@val34='"&remplace(tab(34))&"',@val35='"&remplace(tab(35))&"',@val36='"&remplace(tab(36))&"',@val37='"&remplace(tab(37))&"',@val38='"&remplace(tab(38))&"',@val39='"&remplace(tab(39))&"',@val40='"&remplace(tab(40))&"',@val41='"&remplace(tab(41))&"',@val42='"&remplace(tab(42))&"',@val43='"&remplace(tab(43))&"',@val44='"&remplace(tab(44))&"',@val45='"&remplace(tab(45))&"',@val46='"&remplace(tab(46))&"',@val47='"&remplace(tab(47))&"',@val48='"&remplace(tab(48))&"',@val49='"&remplace(tab(49))&"',@val50='"&remplace(tab(50))&"'"
 
    set dll = server.CreateObject("XO.Template")
	set rs = dll.FonctionGen(cstr(session("connexion")),cstr(sql))
 
    Response.Redirect("Visualisation-1.asp?atelier="&atelier&"&leid="&leid&"")
    Response.End	
end if
 
 
 
%>
 
 
 
<html>
 
<head>
 
<script language="JavaScript" src="JS/calendrier.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"/>
 
<% if excel<>1 then %>
<link media="screen" href="css/ms.css" type="text/css" rel="stylesheet"/>
<link rel="stylesheet" href="Css/placo1.css" type="text/css"/>
<title>SG GYPSYM ? GXO ?</title>
<% end if %>
 
</head>
<body text="#000000"  leftMargin="0"   topMargin="0" MARGINWIDTH="0" MARGINHEIGHT="0">
<form name="recherche" method="post" action="ControlPlanQ6-1.asp">
<table  cellSpacing="0" cellPadding="0" width="100%"  bgcolor=white id="TABLE1" border="0" align=center>
    <tr>
        <td nowrap width="30%"><font size="2" color="maroon">&nbsp;&nbsp;&nbsp;<b><%=ucase(trad("Allocation"))%> - <%=trad("Déclaration")%></b></font></td>
        <td align=center width="20%"><font size="2" color="maroon"><%=trad("Usine")%> : </font><font color=#555555><%=session("usine")%></font></td>
        <td align=center width="20%"><font size="2" color="maroon"><%=trad("Atelier")%> : </font><font color=#555555><%=atelier%></font></td>
        <td align=center width="20%"></font><font color=#555555></font></td>
    </tr>
</table><br/>
<table cellSpacing="0" cellPadding="0"  bgcolor=white id="TABLEP" border="0" align=center style="width:100%">
    <tr>
        <td valign="top" align="center">
            <blockquote>
                <fieldset>
                    <center>
                      <table cellSpacing="0" cellPadding="0"  bgcolor=white  border="0" align=center style="width:80%"> 
                            <tr>
                                <td><font size="2" color="maroon"><b><%=trad("Fabrication")%> N° : </b></font>
						            <input  size="10" name="numfab" readonly="readonly" class="affichesaisie2" value="1234" /></td>
						        <td><font size="2" color="maroon"><b><%=trad("Quantité utilisé")& " : "%></b></font>
						            <input type="text" name="qunatite_utli" size="8" class="listerech"  id="Text100" value=""/>&nbsp;<font size="2" color=navy><%=trad("Plaque")&"(s)" %></font></td>
						        <td style="width:20%">
						            <p id="ModePb">
						                <img  align="middle" src="images/inter1.jpg"/>
 
					                                <%
					                                sql ="exec VISU#PROD_UPLOAD @type='modeTaskProb',@id=" & leid
					                                set dll = server.CreateObject("XO.Template")
					                                set rs = dll.FonctionGen(cstr(session("connexion")),cstr(sql))
					                                reportModePb=""
					                                while not rs.EOF
						                                reportModePb = reportModePb & "," & rs("nomfichier")
					                                %>
					                                <a  href="javascript:appel('<%=rs("cheminfichier")%>','','toolbar=0,status=0,width=650,height=270')"><%=rs("nomfichier")%></a>
					                                <%
					                                rs.movenext
					                                wend
					                                reportModePb=mid(reportModePb,1,len(reportModePb))
					                                rs.close
					                                %>
						            </p>
						        </td>
						        <td style="width:20%">
						            <p id="ModeOp">
						                <img  align="middle" src="images/inter1.jpg"/>
		                                        <%
					                            sql ="exec VISU#PROD_UPLOAD @type='modeTaskOp',@id=" & leid
					                            set dll = server.CreateObject("XO.Template")
					                            set rs = dll.FonctionGen(cstr(session("connexion")),cstr(sql))
					                            reportModeOp=""
					                            while not rs.EOF
						                            reportModeOp = reportModeOp & "," & rs("nomfichier")
					                            %>
					                            <a href="javascript:appel('<%=rs("cheminfichier")%>','','toolbar=0,status=0,width=650,height:400')"><%=rs("nomfichier")%></a></td>
					                            <%
					                            rs.movenext
					                            wend
                            					reportModeOp=mid(reportModeOp,1,len(reportModeOp))
					                            rs.close
					                            %>
						            </p>
						        </td>   
 
						    </tr>
 
					  </table>
					  <table border="0" width="100%" bordercolor="DodgerBlue">
					    <tr>
					        <td width="100%" >
					            <table cellSpacing="0" cellPadding="0" width="100%" bgcolor=white  border="0">
					                <tr>
					                    <td>
					                        <!--<tr>
											    <td align="left" colspan="1" ><font size="2" color="maroon"><%=trad("Nom du Plan")%> </font></td>
											    <td align="left" colspan="1" ><input  size="32" name="codeproduit" readonly="readonly" class="affichesaisie2" value="<%=nomPlan%>" /></td>
											    </tr>-->
											    <tr>
												    <td align="left" colspan="1"><font size="2" color="maroon"><%=trad("Nom de la tache")%> </font></td>
												    <td align="left" colspan="1"><a href="javascript:redirection()"%><input name="nomproduit"  onmouseover="this.style.cursor='hand'" size="32" readonly class="affichesaisie2" value="<%=nomTache%>" /></a></td>													
											    </tr>
											    <tr>
												    <td align="left" colspan="1"><font size="2" color="maroon"><%=trad("Date de planification")%> </font></td>
												    <%if datePlanif<>"" then %>
												    <td align="left" colspan="1"><input name="empaquetage" size="32" readonly class="affichesaisie2" value="<%=datePlanif%>" />	</td>				
												    <%else %>
												    <td align="left" colspan="1"><input name="empaquetage" size="32" readonly class="affichesaisie2" value="<%=dateEvent%>" />	</td>				
												    <%end if %>
											    </tr>
											    <tr>
												    <td align="left" colspan="1" nowrap><font size="2" color="maroon"><%=trad("Famille de produit")%></font></td>
												    <td align="left" colspan="1"><input name="edge" size="32" readonly class="affichesaisie2" value="<%=trad("PLATRE")%>" /></td>					
											    </tr>
										        <tr>
										            <td ><font size="2" color="maroon"><%=trad("Article")%></font></td>
										            <td ><input name="edge" size="32" readonly="readonly" class="affichesaisie2" value="<%="BA 13.3"&trad("Mètres") %>" /></td>
										        </tr>
										         <tr>
										            <td ><font size="2" color="maroon"><%=trad("Etape")%></font></td>
										            <td ><input name="etap" size="32" readonly="readonly" class="affichesaisie2" value="<%=etapeProcess %>" /></td>
										        </tr>
					                    </td>
					                </tr>
					            </table>
					        </td>
					        <td>
					            <table border="0" width="100%" bordercolor="DodgerBlue">
								    <tr>
									   <th>
										    <table border="0" width="100%" bgcolor="white">
											    <tr><td align=left><font size="2" color="maroon"><b><%=trad("Mode opératoire")%></b></font></td></tr>
											    <tr><td WIDTH="100%"><textarea readonly class="listerech"  style="width : 250px; height : 110px ; align : left" id="textarea1" name="Rw_Observation"><%=modeOper%></textarea></td></tr>
										    </table>
									    </th>
								    </tr>
								</table>
					        </td>
					        <td>
					             <table border="0" width="100%" bordercolor="DodgerBlue">
								    <tr>
									   <th>
										    <table border="0" width="100%" bgcolor="white">
											    <tr><td align=left><font size="2" color="maroon"><b><%=trad("En cas de probléme")%></b></font></td></tr>
											    <tr><td WIDTH="100%"><textarea readonly class="listerech"  style="width : 250px; height : 110px ; align : left" id="textarea3" name="Rw_Observation"><%=modeProp%></textarea></td></tr>
										    </table>
									    </th>
								    </tr>
 
								</table>
					        </td>
					    </tr>
					  </table>
					  <table border="0" width="100%" bordercolor="DodgerBlue">
					     <th></th>
					  </table>
					  <table border="0" width="100%" bordercolor="DodgerBlue">
					     <tr>
					        <td style="width:100%">
					            <blockquote>
	                                <fieldset  style="width:100%;height:450%" >
		                                <legend>&nbsp;<%=trad("Resultats")%>&nbsp;</legend>
		                                <center>
		                                <table  width="100%" align=right>
    				                            <tr>
    				                                  <th class="thl" bgcolor="#ccccff" align="center" rowspan="2"><%=trad("Groupe")%></th>
					                                  <th class="thl" bgcolor="#ccccff" align="center" rowspan="2"><%=trad("MESURE")%></th>
					                                  <th class="thl" bgcolor="#ccccff" align="center" rowspan="2"><%=trad("RESULTATS")%></th>
					                                  <th class="thl" bgcolor="#ccccff" align="center" colspan="2"><%=trad("LIMITES")%></th>
 
				                                </tr>
				                                <tr>
				                                    <th class="thl" bgcolor="#ccccff" align="center"><%=trad("Min")%></th>
				                                    <th class="thl" bgcolor="#ccccff" align="center"><%=trad("Max")%></th>
				                                </tr>
				                                <% 
		    		                                sql="exec GXO_GET_QUALITE_MESURE_BY_ID_TACHE @TCH_ID = "&leid&""
 
                                                    set dll = server.CreateObject("XO.Template")
	                                                set rs = dll.FonctionGen(cstr(session("connexion")),cstr(sql))
	                                                count=0
                                                    while not rs.eof
                                                    count=count+1
				                                %>
				                                <tr>  
				                                      <td><font size="1" color="maroon"><%=rs("MES_GROUPE")%></font></td>  
				                                      <td><font size="1" color="maroon"><%=rs("MES_LIB")%></font></td>
					                                  <td ><input type="text" id="txt" name="Text<%=count %>" class="listerech" size="15" value=""/>&nbsp;<font size="1" color="maroon"><%=rs("MES_UNT")%></font></td>
 
					                                  <td><font size="1" color="maroon"><%=rs("MES_LIMITE")%></font></td>
					                                  <td><font size="1" color="maroon"><%=rs("MES_HAUTE")%></font></td>
				                                </tr>
				                                <% 
				                                rs.movenext
	                                            wend
	                                            rs.close
				                                %>
			                                </table>
		                                </center>
	                                </fieldset>
	                            </blockquote>
	                            <table  border="0" width="70%">
 
                                    <tr>
                                        <td align="center"><input type="button" class="BoutonDeclaration" onmouseover="this.style.cursor='hand'" onmouseout="this.style.cursor=''" value="<%=trad("Retour à la liste")%>" onclick="javascript:annuler()"% id="Button2" name="Button1" /></td>
                                        <td align="center"><input type="button" class="BoutonDeclaration" onmouseover="this.style.cursor='hand'" onmouseout="this.style.cursor=''" value="<%=trad("ENREGISTRER")%>" onclick="javascript:save()"% id="Button3" name="Button1"/></td>
                                    </tr>
                             </table>
					        </td>
					        <td valign="top" style="width:80%">
 
								<table border="0" width="100%" bordercolor="DodgerBlue">
								    <tr>
									   <th>
										    <table border="0" width="100%" bgcolor="white">
											    <tr><td align=left><font size="2" color="maroon"><b><%=trad("Commentaires")%></b></font></td></tr>
											    <tr><td WIDTH="100%" align="right"><textarea class="listerech"  style="width : 280px; height : 110px ; align : left" id="textarea2" name="Commentaire"></textarea></td></tr>
										    </table>
									    </th>
								    </tr>
								</table>
 
					        </td>
					     </tr>
					  </table>
					</center>	
                </fieldset>
            </blockquote>
        </td>
    </tr>
</table>
 
        <input type="hidden" name= "quantite"/>
        <input type="hidden" name= "operation"/>
        <input type="hidden" name= "count"/>
        <input type="hidden" name= "tableau" />
        <input type="hidden" name= "com" />
        <input type="hidden" name= "tempsPlani" />
        <input type="hidden" name= "leid" />
        <input type="hidden" name= "atelier" />
        <input type="hidden" name="reportModeOp" value="<%=reportModeOp%>"/>
        <input type="hidden" name="reportModePb" value="<%=reportModePb%>"/>
 
</form>
</body>
</html>
 
<script type="text/javascript"  language="Javascript">
 
 
function redirection()
{
    window.open("Detail_tache.asp?atelier=<%=atelier %>&leID=<%=leid %>","MainFrame")
}
 
function save()
{
    if(document.recherche.qunatite_utli.value=='')
    {
        alert("<%=trad("Entrer la quantité utilisé") %>")
        document.recherche.qunatite_utli.focus()
        return
    }
    var MonTableau = new Array(51)
    for(i=1;i<="<%=count %>";i++)
    {
        MonTableau[i]=eval("document.recherche.Text"+i+".value")
    }
 
 
     document.recherche.tempsPlani.value="<%=planifier %>"
     document.recherche.tableau.value=MonTableau
     document.recherche.count.value="<%=count %>"
     document.recherche.leid.value="<%=leid %>"
     document.recherche.atelier.value="<%=atelier %>"
     document.recherche.operation.value="validation"
     document.recherche.com.value=document.recherche.Commentaire.value
     document.recherche.quantite.value=document.recherche.qunatite_utli.value
     document.recherche.submit()
}
function annuler()
{
    window.open("Planification_Tache_Liste.asp?atelier=atelier&valAtelier=<%=atelier %>","MainFrame")
}
 
</script>

Je precise que je maintiens cette application et que c'est une personne avant moi qui etait dessus et veut pas etre contacte. Merci pour votre aide.

**TekP@f** · 21/07/2008, 18h00

Salut,

Si j'ai bien compris, c'est cette requête qui vient chercher les infos sur la fabrication :

Code :

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

1
2
3
4
5
6
7
8
select 	top 1 prod_fab.fab_num ,
	prod_articles.cart,  prod_fab.fab_dateFin
from 
	prod_fab, 
	prod_articles 
where 
	prod_articles.cart=prod_fab.fab_codeArticle 
order by fab_dateFin desc

Si oui, cette requête me semble bonne mais ne filtre pas les fabrications associées au produit. C'est à dire que tu as toujours le même résultat, peu importe le produit. Il faudrait ajouter une jointure sur la table produit pour ne prendre que les fabrications liées au produit.

**heoue** · 21/07/2008, 23h22

Merci d'avoir repondu. J'ai deux procedure stocke et je sais pas comment les integres dans le code asp comme expliquer precedement.

Code :

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

1
2
3
4
5
6
7
8
-- exec QUALITE_Tache_ListeProduit @tache_id=266
alter procedure QUALITE_Tache_ListeProduit @tache_id int
as
 
select * 
from plan_tache 
inner join Qualite_plans on plan_tache.pt_plan_id=Qualite_plans.plan_id
where pt_tch_id=@tache_id

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
SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO
 
ALTER   proc GXO_AffichNumFab 
 
	@CODE_PROD int 
as 
 
select top 1 prod_fab.fab_num ,
	prod_articles.cart  
from 
	prod_fab, 
	prod_articles 
where 
	prod_articles.cart=prod_fab.fab_codeArticle 
	and (@CODE_PROD is null or pro_cod=@CODE_PROD)
 
order by fab_dateFin desc 
 
 
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

**TekP@f** · 22/07/2008, 09h35

J'ai un peu de mal à comprendre là. Pour répondre à la question, pour exécuter une proc stockée dans le code, il faut exécuter le code suivant (par exemple) :

Code :

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

1
2
 
QUALITE_Tache_ListeProduit 266

ASP Transact SQL help

ASP

Vue hybride

Discussions similaires

Partager

Partager