Formulaire + remplir des champs automatiquement à partir d'une champ

Marsh Posté le 06-05-2009 à 14:02:21

Bonjour,

voila, j'ai un formulaire ou l'utilisateur renseigne un champ (code 8 chiffres) et à partir de ce code d'autres champs doivent s'affichées automatiquement. Puis l'utilisateur renseigne d'autres champs et la j'ai 2 champs qui son des champs calculés avec les valeurs renseignées par l'utilisateur auparavant et les valeurs qu'ont a affiché automatiquement.Enfin, l'utilisateur renseigne d'autres champs !

Donc en gros dans mon formulaire on des champs à saisir , des champs qui doivent être renseignés automatiquement et des champs calculés.

De plus il faut que j'insère tous les champs renseignés dans ma BDD.

Donc comment faire cela sans rafraîchir ma page et en ayant juste un bouton " envoyer le formulaire "

J'ai vu un peu sur le net qu'il fallait utiliser de l'ajax et du javascript mais mon problème c'est que je ne connais pas du tout ces langages de prog !

Donc si vous aviez une solution ca serait vraiment cool !!!

Je vous joins mon fichier avec mon formulaire et mon fichier ou il y a ma requete sql qui selection les données ralives à mon code :

formulaire

Code :

<html>
<head>
<meta http-equiv="Content-Language" content="fr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Formulaire de saisie des AVK</title>
<base target="contenu">
<style>
</style>
</head>
<body bgcolor="#EBEBE0" style="font-family: Arial; font-size: 12pt" text="#003366">
Saisissez les informations sur votre Avis de Variation de Consommation (AVK)
<a href="Mode%20opératoire%20formulaire%20AVK.pdf">Accédez ici au mode opératoire AVK</a>
<form method="post" action="Import_Formulaire_AVK.asp" target="_self" name="Saisie_AVK">
<table align="center" cellpadding="5" cellspacing="5" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="340">
*
Code article (8 caractères) :
<input name="Code_Article" size=8 maxlength=8>
</td>
<td width="340">
Désignation :
<% reponse.write RS("description" ) %>
</td>
</tr>
<td width="340">
Prix unitaire :
<% reponse.write RS("Coût STD" ) %>
</td>
<td width="340">
Délai d'approvisionnement :
<% reponse.write DelaiA %>
</td>
<tr>
<td width="340">
Consommation mensuelle moyenne actuelle :
<% reponse.write ConsoM %>
</td>
<td width="340">
</td>
</tr>
<tr>
<td colspan="2" width="682">
Soit :
consommation mensuelle moyenne à prévoir (exprimée dans l'unité de mesure standard PSFT) :
<input name="Conso_Mens_APrev" size=20 maxlength=30>
Soit :
cadencement / echéancier (exprimé dans l'unité de mesure standard PSFT) :
<% reponse.write RS("Unite" ) %>
<table border="1">
<tr>
<%
'on commence par déclarer les variables utiles
dim dateK 'variable contenant le mois correspondant à la cellule parcourue, au format date
dim dateFin 'variable contenant le dernier mois pour lequel il faut afficher une cellule
dim i 'variable contenant le numéro d'ordre de la cellule parcourue (i=1 pour la 1ère cellule, etc.)
dim dt 'variable contenant le mois correspondant à la cellule parcourue, au format "mm/aaaa"
'puis on initialise ces variables :
' - i = 1 (on commence par la première case, logique)
' - dateK = date du jour + 1 mois (la première case du tableau correspond au mois M+1)
' - dateFin = premier mois de l'année civile de (date du jour + 3 ans)
i = 1
dateK = DateAdd("m", 1, Now)
dateFin = cdate("01/01/" & (DatePart("yyyy", Now) + 3))
'pour chaque mois compris entre M+1 et décembre A+2...
do while dateK <= dateFin
'... on crée une nouvelle case...
response.write "<td align=""center"">"
'... on y indique le mois qui convient, au format "mm/aaaa", ainsi qu'un champ de saisie nommé
'd'après ce mois...
if len(month(dateK)) = 1 then
dt = "0" & Month(dateK) & "/" & Year(dateK)
response.write("0" & Month(dateK) & "/" & Year(dateK))
else
dt = Month(dateK) & "/" & Year(dateK)
response.write(Month(dateK) & "/" & Year(dateK))
end if
response.write " "
response.write "<input name=" & dt & " size=5 maxlength=30>"
'... et on n'oublie pas de clôturer la case
response.write "</td>"
'si on vient d'afficher la case correspondant au mois de décembre d'une année, on part sur une
'nouvelle ligne du tableau
if Month(DateK) = 12 then
response.write "</tr><tr>"
end if
'enfin, on incrémente les compteurs dateK (d'un mois) et i (d'une unité)
dateK = DateAdd("m", 1, dateK)
i = i + 1
loop
'%>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" width="682">
*
La consommation à prévoir...
<input type="radio" name="Conso_ARemplacer" value="Remplace">
remplace
<input type="radio" name="Conso_ARemplacer" value="Ajoute">
se rajoute
... (à) la consommation actuelle de la BU.
</td>
</tr>
<tr>
<td colspan="2" width="682">
*
Tendance
<input type="radio" name="Tendance" value="Hausse">
à la hausse
<input type="radio" name="Tendance" value="Baisse">
à la baisse
</td>
</tr>
<tr>
<td width="340">
*
Date de début de validité de l'AVK (jj/mm/aaaa) :
<input name="Date_Deb_Validite" size=10 maxlength=10 onKeyUp="masqueSaisieDate(this.form.Date_Deb_Validite)">
</td>
<td width="340">
*
Date de fin de validité de l'AVK (jj/mm/aaaa) :
<input name="Date_Fin_Validite" size=10 maxlength=10 onKeyUp="masqueSaisieDate(this.form.Date_Fin_Validite)">
</td>
</tr>
<td width="340">
*
Montant total de l'AVK sur l'ensemble de la période de validité :
</td>
<td width="340">
*
Evolution du coût par rapport à la consommation actuelle sur la période de validité :
</td>
<td colspan="2" width="682">
Adresse Mail du valideur :
<input type="text" name="Mail_Valideur" value="Y">
</td>
<tr>
<td width="340">
Série de matériel :
<input name="Serie" size=15 maxlength=30>
</td>
<td width="340">
Observation:
<textarea name="Observation" rows=2 cols="40"></textarea>
</td>
</tr>
<tr>
<td width="340">
*
BU émettrice de l'AVK :
<input name="BU_Expediteur" size=5 maxlength=5>
</td>
<td width="340">
*
Nom de l'émetteur de l'AVK :
<input name="Nom_Expediteur" size=20 maxlength=80>
</td>
</tr>
<tr>
<td width="340">
*
Tél SNCF de l'émetteur :
<input name="Num_Tel_Exped" size=6 maxlength=6>
</td>
<td width="340">
*
E-mail de l'émetteur :
<input name="AdMail_Exped" size=34 maxlenght=30>
</td>
</tr>
<tr>
<td width="340">
*
Motif AVK :
<select size="1" name="Motif_AVK">
<option selected>Sélectionner un motif</option>
<option value="Création d&#39;articles">Création d'articles</option>
<option value="Création d&#39;articles matériel neuf">Création d'articles matériel neuf</option>
<option value="Transfert de parc">Transfert de parc</option>
<option value="Maintenance suite à OM">Maintenance suite à OM</option>
<option value="Remise en état de parc">Remise en état de parc</option>
<option value="Potentiel">Potentiel</option>
<option value="ATP">ATP</option>
<option value="Noria">Noria</option>
<option value="Evolution des règles de maintenance">Evolution des règles de maintenance</option>
<option value="Evolution de la charge PRM (constituants PRM)">Evolution de la charge PRM (constituants PRM)</option>
<option value="Evolution de la charge engin (Technicentre Industriel)">Evolution de la charge engin (Technicentre Industriel)</option>
<option value="Transfert Centre d&#39;Excellence (PRM)">Transfert Centre d'Excellence (PRM)</option>
<option value="Usure prématurée">Usure prématurée</option>
<option value="Mise NPA">Mise NPA</option>
<option value="Radiation">Radiation</option>
<option value="Sur demande du CLI">Sur demande du CLI</option>
<option value="Autre (remplir cellule observation)">Autre (remplir cellule observation)</option>
</select>
</td>
<td width="340">
</td>
</tr>
<tr>
<td colspan="2" width="340">
Date de la demande :
<% response.write now %>
<input type="hidden" name="Date_Demande" value="<% response.write now %>">
</td>
</tr>
</table>
<input type="submit" value="Envoyer l'AVK" style="font-weight: bold">
</form>
</body>
</html>

Mon fichier contenant ma requete sql qui récupère les données grace à mon code Article

Code :

<%
' sélectionne les informations relatives à notre article renseigné dans le formulaire AVK
dim Cstd ,Cpmp,CpmpD,Gart,KvM,KV,DLERP,DAPP,Conso, coutU , DelaiA 'variable qui stocke le données selon les différentes cas
code= request.form("Code_Article" )
sql="select b.Description, b.[Coût STd], b.[Coût PMP], b.[Coût PMP déporté],a.[Groupe_art],a.[Unite],b.[Kv modifiée],b.[Kv],b.[Delai LREP (j)],b.[Delai d appro (j)]" & _
"from T_EXTR_BASAMONT b,T_CALCUL_ARTICLE_AMONT a " & _
"where A.ARTICLE = b.code_article and b.code_article ='" & code & "'"
set rs=conn.execute(sql)
do while not rs.EOF
Cstd=rs("Coût STd" )
Cpmp=rs("Coût PMP" )
CpmpD=rs("Coût PMP déporté" )
Gart=rs("Groupe_art" )
KvM=rs("Kv modifiée" )
KV=rs("KV" )
DLERP=rs("Delai LREP (j)" )
DAPP=rs("Delai d appro (j)" )
If Gart="MRPRM" or Gart="MRPRMD" then
coutU=Cstd
elseif CpmpD<>"" or CpmpD<>999999 then
coutU = CpmpD
else coutU=Cpmp
end if
If rs("Kv modifiée" )<>"" then
ConsoM = rs("Kv modifiée" )
Else
ConsoM = rs("Kv" )
End If
If rs("Delai LREP (j)" )<>"" then
DelaiA = rs("Delai LREP (j)" )
Else DelaiA=rs("Delai d appro (j)" )
End If
rs.movenext
Loop
Set rs=Nothing
Response.Write monRetourHTML
%>

Marsh Posté le 06-05-2009 à 14:02:21

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *