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
| <html>
<head>
<title>VerifCohFerPreCommSilog</title>
</head>
<body background="../images/fond11.gif">
<p><font size="5"><b><u>Vérification cohérence entre l'état
"ferme/prévisionel" des commandes de vente</u></b></p>
<% Set conn = Server.CreateObject("ADODB.Connection")
connstring = "driver={SQL Server};" & "server=xxx;uid=xxx; pwd=xxx; database=xxx"
conn.open connstring %>
<% SQL = "select NoAccuseRecepto,CodeClient,NoCommande, NoLigneCommande,ResteExpedier,IndicateurObjet,CodeArticleprestto from COMC where QtePrevueOuFerme='P' and NoCommande in (select NoCommande from COME where Confirmee='O') union all select NoAccuseRecepto,CodeClient,NoCommande, NoLigneCommande,ResteExpedier,IndicateurObjet,CodeArticleprestto from COMC where QtePrevueOuFerme='F' and NoCommande in (select NoCommande from COME where Confirmee='N')"
set rs=server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
response.write "<table>"&vbcrlf _
&"<tr>"
for each i in rs.fields
response.write "<th>"& i.name &"</th>"
next
response.write"</tr>"&vbcrlf %>
<%OldCode = ""
DO WHILE not rs.eof
if OldCode <> rs("NoAccuseRecepto")then %>
<table>
<%for each element in rs.fields
response.write "<td>"& element.value &"</td>"
next
response.write "</tr>"&vbcrlf %>
<% OldCode = rs("NoAccuseRecepto")
end if %>
<% rs.MoveNext: loop %>
</table>
<%response.write "</table>"%>
<% conn.close
Set conn = Nothing%>
</font>
</body>
</html> |
Partager