ASP créer une commande avec ACOMBA ?

[dloignon]

Bonjour !

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

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

2) Ma commande est inactive pourquoi ?


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
%>