<% ' Auteur Fabrice SUDAKA - fabrice_sudaka@hotmail.com 'On Error Resume Next Dim T, T1, Req_SQL, TestDevis, TestArticles_lies, max_articles_lies, Gabarit TestDevis = False TestClient = False TestArticles_lies = False message = Trim(Request("message")) ID_Devis = Trim(Request("ID_Devis")) Action = Trim(Request("B1")) Pas = Trim(Request("Pas")) Page = Trim(Request("Page")) Position = Trim(Request("Position")) Mode = Trim(Request("Mode")) ID_Client = Trim(Request("ID_Client")) Commercial = Trim(Request("Commercial")) ID_Article = Trim(Request("ID_Article")) Traite = Trim(Request("Traite")) Datedebut = Trim(Request("Datedebut")) Datefin = Trim(Request("Datefin")) Debutliste = Trim(Request("Debutliste")) TOTALCALCULE = Trim(Request("TOTALCALCULE")) TOTALCALCULE = Replace(TOTALCALCULE,".",",") Designation = Trim(Request("Designation")) Quantite_article = Trim(Request("Quantite_article")) Prix_article = Trim(Request("Prix_article")) Prix_article = Replace(Prix_article,".",",") Prix_total_article = Prix_article * Quantite_article Txt_Commercial = Trim(Request("Txt_Commercial")) Txt_Commercial = Replace(Txt_Commercial,"'","''") Req_SQL = "UPDATE DEVIS SET QUANTITE = '" & Quantite_article & "', LIB_ARTICLE = '" & Designation & "', TXT_COMMERCIAL = '" & Txt_Commercial & "', PU_HT = '" & Prix_article & "', TOTAL_HT = '" & TOTALCALCULE & "', DATE_MODIF = '" & Date() & "' WHERE ID_DEVIS = " & ID_Devis execRequete BaseName, Req_SQL For i = 1 To Request.Form("ID_ELEMENT_LIGNE").Count Item0 = Request.Form("Selection" & i) If Item0 = "" Then Item0 = 0 Else Item0 = 1 End If Item1 = Request.Form("ID_ELEMENT_LIGNE")(i) Item3 = Request.Form("Quantite")(i) Item4 = Request.Form("Prix")(i) Item4 = Replace(Item4,".",",") Item5 = Request.Form("Libre")(i) Item6 = Request.Form("Titre" & i) Item6 = Replace(Item6,"'","''") Item7 = Request.Form("Texte" & i) Item7 = Replace(Item7,"'","''") ' Item8 = Request.Form("Remise_Option")(i) If Item0 = 0 And Item5 = 0 Then Item3 = 0 ' Si option non sélectionnée alors Quantité forcée à 0 If Item5 = 0 Then ' n° d'article enregistré Req_SQL = "UPDATE DEVIS_ELEMENTS SET SELECTION = '" & Item0 & "', QUANTITE = '" & Item3 & "', PU_HT = '" & Item4 & "', TOTAL_HT = '" & (Item4 * Item3) & "' WHERE ID_COMMANDE = " & ID_Devis & " AND ID_ELEMENT = " & Item1 Else ' sinon élément libre Req_SQL = "UPDATE DEVIS_ELEMENTS SET SELECTION = '" & Item0 & "', LIB_ARTICLE = '" & Item6 & "', TXT_LIBRE = '" & Item7 & "', QUANTITE = '" & Item3 & "', PU_HT = '" & Item4 & "', TOTAL_HT = '" & (Item4 * Item3)& "' WHERE ID_COMMANDE = " & ID_Devis & " AND ID_ELEMENT = " & Item1 End If ExecRequete BaseName, Req_SQL Next Req_SQL = "SELECT * FROM DEVIS WHERE ID_DEVIS = " & Clng(ID_Devis) GetTable BaseName, Req_SQL, T If IsArray(T) Then TestDevis = True End If Req_SQL = "SELECT * FROM DEVIS_ELEMENTS WHERE ID_COMMANDE = " & Clng(ID_Devis) & " ORDER BY ID_ELEMENT " GetTable BaseName, Req_SQL, T1 If IsArray(T1) Then TestArticles_lies = True max_articles_lies = Ubound(T1,2) End If Req_SQL = "SELECT * FROM CLIENTS WHERE ID_CLIENT=" & T(2,0) GetTable BaseName, Req_SQL, TClient If IsArray(TClient) Then TestClient = True End If Req_SQL = "SELECT * FROM COMMERCIAUX WHERE ID_COMMERCIAL=" & TClient(5,0) GetTable BaseName, Req_SQL, TCommercial Params = "&Pas=" & Pas Params = Params & "&Page=" & Page Params = Params & "&Position=" & Position Params = Params & "&Mode=" & Mode Params = Params & "&ID_Client=" & ID_Client Params = Params & "&Commercial=" & Commercial Params = Params & "&ID_Article=" & ID_Article Params = Params & "&Traite=" & Traite Params = Params & "&Datedebut=" & Datedebut Params = Params & "&Datefin=" & Datefin Params = Params & "&Debutliste=" & Debutliste If Err.Number <> 0 Then Response.Redirect("Listdevis.asp?message=" & Server.UrlEncode("Erreur : " & Err.Description)) End if If Action = "Recalculer" Then Response.Redirect("Listdevis2.asp?ID_Devis=" & ID_Devis & Params) End if If Action = "Ajouter ligne" Then Req_SQL = "INSERT INTO DEVIS_ELEMENTS " & "(ID_COMMANDE, ID_CLIENT, ID_ARTICLE, LIB_ARTICLE, QUANTITE, SELECTION, LIBRE, TXT_LIBRE) VALUES (" & ID_Devis & "," & T(2,0) & ",0,'Titre libre',1,1,1,'Texte libre')" ' Response.write(Req_SQL) ExecRequete BaseName, Req_SQL Response.Redirect("Listdevis2.asp?ID_Devis=" & ID_Devis & Params) End if %> Fiche Devis Produit
<% If TestDevis Then %> <% Total_HT = T(10,0)*T(11,0)*(100-T(19,0))/100 End If If TestArticles_lies Then %> <% For i = 0 To max_articles_lies Change = Not(Change) If Change Then Fond = "#DDDDDD" Else Fond = "#EEEEEE" End If If T1(11,i) > 0 Or T1(12,i) > 0 Then %> <% Total_HT = Total_HT + T1(10,i) End If Next End If 'Total_Remise = Total_HT - (Total_HT * TClient(18,0)/100) %> <% If T(9,0) <> "" Then %> <% End If %>
Backoffice - enregistrement du devis <%=ID_Devis%> (créé le <%=T(15,0)%>)
  Pour modifier le devis, cliquez sur < Retour >. 
  Vous pouvez     le devis, pour le valider et l'envoyer cliquez sur < Valider >.
Client Commercial
  N° : <%=T(2,0)%>      Nom : <%=TClient(7,0)%>
  Adresse : <%=TClient(11,0)%> 
  CP: <%=TClient(13,0)%>  Ville : <%=TClient(12,0)%>
  Tél : <%=TClient(15,0)%>     Fax : <%=TClient(16,0)%>     Email :  <%=TClient(17,0)%>		 Commercial : <%=TCommercial(3,0)%>
Tél : <%=TCommercial(6,0)%>     Fax : <%=TCommercial(7,0)%> Email :  <%=TCommercial(8,0)%>
  <% If T(14,0) <> 0 Then %> Cette demande a été enregistrée et va être envoyée par mail. <% Else %> Cette demande n'a pas encore été traitée. <% End If %>
  Désignation du produit de base. Quantité Prix U.H.T Sous total H.T
  <%=T(8,0)%> <%=T(10,0)%> <% If T(11,0) <> 0 Then response.write ( FormatNumber(T(11,0),3)& " € ") else response.write ( "--   " ) end if %> <% If T(10,0)*T(11,0)*(100-T(19,0))/100 <> 0 Then response.write ( FormatNumber( T(10,0)*T(11,0)*(100-T(19,0))/100,2 )& " € ") else response.write ( "inclus   " ) end if %>
  <%=Left(T1(7,i),50)%> <% If T1(12,i) > 0 Then Response.write(FormateString(T1(13,i))) End If %>  <%=T1(8,i)%>   <% If T1(9,i) <> 0 Then response.write ( FormatNumber(T1(9,i),3)& " € ") else response.write ( "--   " ) end if %>   <% If T1(10,i) <> 0 Then response.write ( FormatNumber(T1(10,i),2)& " € ") else response.write ( "inclus   " ) end if %>
   

Total HT : 

 <%=FormatNumber(Total_HT,2)%> € 
<% Total_devis = Total_HT Total_tva = (Total_devis * 19.6) / 100 Total_TTC = Total_devis + Total_tva %>    

T.V.A 19,6 % :

<%=FormatNumber(Total_tva,2)%> € 
      TOTAL TTC   <%=FormatNumber(Total_TTC,2)%> € 
  Commentaires client :
  <%=FormateString(T(9,0))%>
  Commentaires du commercial DupliCD :
  <%=FormateString(T(16,0))%>