Forum d'entraide Acomba
Pourquoi ne pas devenir membre du forum ?

Identifiez-vous ou Inscrivez-vous afin d'accéder à l'inrégralité du forum:
Accès à toutes les catégories du forum,
Entraide entre les 6 500 membres, et ce nombre s'accroît quotidiennement!

Notez que ce forum est indépendant de la société Acceo Solutions, éditrice du logiciel Acomba.

Rejoignez le forum, c’est rapide et facile

Forum d'entraide Acomba
Pourquoi ne pas devenir membre du forum ?

Identifiez-vous ou Inscrivez-vous afin d'accéder à l'inrégralité du forum:
Accès à toutes les catégories du forum,
Entraide entre les 6 500 membres, et ce nombre s'accroît quotidiennement!

Notez que ce forum est indépendant de la société Acceo Solutions, éditrice du logiciel Acomba.
Forum d'entraide Acomba
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion
Le Deal du moment :
Cartes Pokémon 151 : où trouver le ...
Voir le deal

Aller en bas
avatar
bonneaupierrelouis
Nombre de messages : 27
Age : 34
Ville : Trois-Rivières
Date d'inscription : 20/08/2013

Fiche d'Entreprise
Nom de l'entreprise:

Listing des produits, prix décimales Empty Listing des produits, prix décimales

Jeu 3 Oct 2013 - 8:12
Bonjour, j'ai déjà écris à ce propos, on m'avait mentionné que c'était la version DEMO d'Acomba qui ne permettait pas de prendre les décimales d'un prix d'un produit. Toutefois, j'ai toujours le même problème sur la version full d'Acomba sur l'ordinateur de mon client. Je me demandais donc s'il y avait un paramètre de plus à passé à PrSellingPrice. À noté que je vais prendre le prix #1.

Merci à l'avance aux modérateurs ou utilisateurs d'éclairer ma lanterne.

Voici mon code (fonctionnel hormis le problème ci-dessus)

Code:

<%
Call response.AddHeader("Access-Control-Allow-Origin", "*")
Call response.AddHeader("Content-Type", "text/html;charset=iso-8859-1")
%>
<!--#include file="fct_connexion.asp"-->
<%

Sub FindProduct()
   Dim Interface_Product
   Set Interface_Product = Server.CreateObject("AcoSDK.Product")
   Dim ladescription
   Dim letitle
   Nombre_total_fiche = Interface_Product.NumCards()
   'response.write("nb.total:" & Nombre_total_fiche & "<br/>")
   For i=1 To Nombre_total_fiche
      If Interface_Product.GetCard(i) = 0 Then
         If Interface_Product.PrActive <> 0 Then
            ladescription = Interface_Product.PrDescription(1)
            letitle = Interface_Product.PrNumber
            leprix = Interface_Product.PrSellingPrice(0,1)
            response.write(letitle&":$"&leprix&":$"&ladescription&";!")
         End If
      End If
   Next   
End Sub
%>
<% call ConnectionUser() %>
<% call FindProduct()%>
avatar
bonneaupierrelouis
Nombre de messages : 27
Age : 34
Ville : Trois-Rivières
Date d'inscription : 20/08/2013

Fiche d'Entreprise
Nom de l'entreprise:

Listing des produits, prix décimales Empty Re: Listing des produits, prix décimales

Jeu 3 Oct 2013 - 9:35
J'ai finalement réglé mon problème, c'était un petit tweek à apporter au niveau des "," les transformer en "." pour l’insertion dans la database...
Revenir en haut
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum