Acomba (Forum)
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.
Connexion

Récupérer mon mot de passe


ASP créer une commande avec ACOMBA ?

Voir le sujet précédent Voir le sujet suivant Aller en bas

ASP créer une commande avec ACOMBA ?

Message  dloignon le Jeu 26 Fév 2009 - 16:27

Bonjour !

J'aimerais créer une commande en ASP avec ACOMBA
Ça fonctionne pour l'entête de la commande Very Happy MAIS

1) Il y a une erreur quand on ajoute des lignes ?
Quel est mon erreur ?

2) Ma commande est inactive pourquoi ?
confused

Merci !
Bonne journée

Code:



 0 Then
 
        'Initialisation des propriétés concernant le client
        'associé à la facture
      ' rstTransactionHeader ("InInvoicedToCP") = rstCustomerData ("CuInvoicedToCP")
       
        'Numéro du compte recevable du client auquel la facturation
        'est associée
      ' rstTransactionHeader ("InReceivableOffset") = rstCustomerData ("CuReceivable")
 
    'End If
    '**********************************************************
    'Étape 2 : Assigner le nombre total de lignes incluses
    '          dans la facturation à la propriété TANumLines
    '**********************************************************
 
    rstTransactionHeader ("TANumLines") = 1 ' Nombre de lignes associées à la facturation.
    rstTransactionHeader.Update

' LIGNES DE COMMANDES **************************************
rstTransactionDetail.Open "SELECT * FROM TransactionDetail where TaNum = 1", conn, 1, 3
Noduproduit = "ZM25"
rstTransactionDetail ("ILType") = 2 'ligne de facturation (Facture, Commande, Commande ouverte, Sousmission, Achat, Format, Transport, Taxe, Écriture comptable).
rstTransactionDetail ("ILLineNumber") = 1 ' Les numéros 991 à 998 (ILLineNumber = 991 à 998) sont réservés aux lignes de taxes et de frais de transport.
rstTransactionDetail ("ILProductNumber") = Noduproduit
rstProductData.Open "SELECT * FROM Product where PrNumber = '" & Noduproduit & "'", conn, 1, 3
If Not rstProductData.EOF Then
  rstTransactionDetail ("ILProductCP") = rstProductData ("RecCardPos") 'RecCardPos de la facturation à laquelle est associé cet enregistrement dans la table TransactionHeader. Ce champ est un élément composant l'identificateur unique pour cette table.
        rstTransactionDetail ("ILDescription") = rstProductData ("PrDescription1") 'Description de la ligne de facturation.
        rstTransactionDetail ("ILSellingPrice") = 12 'Dans le cas d'une ligne de saisie de produits, prix de vente du produit.
       
  rstTransactionDetail ("ILProductGroupCP") = rstProductData ("PrProductGroupCP") 'Le CardPos du groupe de produits correspond au champ RecCardPos de la table ProductGroup.
        'rstTransactionDetail ("ILInvoicedQty") = 2
        'Pour une commande
        rstTransactionDetail ("ILOrderedQty") = 2
Else
End If
rstTransactionDetail.Update
   
rstTransactionDetail.Close
rstProductData.Close
 
conn.Execute ("END_TRANSACTION_IN")
conn.Close
%>



dloignon

Nombre de messages : 6
Date d'inscription : 04/02/2009

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum