[Résolu] Création d'un nouveau client
2 participants
- Monrake
- Nombre de messages : 10
Date d'inscription : 21/04/2009
[Résolu] Création d'un nouveau client
Jeu 20 Oct 2011 - 15:19
Bonjour,
J'ai fouillé dans l'aide de l'ODBC mais je trouve rien.
Je voudrais un exemple de code pour créer des nouveaux clients. Idéalement en PHP mais en VB me dérangerait pas, je veux juste voir les étapes et les champs qu'il me faut.
Merci.
J'ai fouillé dans l'aide de l'ODBC mais je trouve rien.
Je voudrais un exemple de code pour créer des nouveaux clients. Idéalement en PHP mais en VB me dérangerait pas, je veux juste voir les étapes et les champs qu'il me faut.
Merci.
- hench
- Nombre de messages : 163
Date d'inscription : 30/12/2008
Fiche d'Entreprise
Nom de l'entreprise:
Re: [Résolu] Création d'un nouveau client
Sam 22 Oct 2011 - 16:33
Voici un exemple VB par le SDK, cela vous donnera une idée des champs à prévoir
- Code:
'******************************************************************
'L'exemple Visual Basic suivant permet de faire la création d'un
'nouveau client. L'installation de la librairie du SDK,
'l'ouverture de la société ainsi que la connexion d'un usager
'doivent préalablement être faites.
'******************************************************************
Sub AddNewCustomer()
'Déclaration de l'interface Customer
Dim CustomerInt As New AcoSDK.Customer
'Déclaration des variables
Dim CardPos As Long
Dim Error As Long
'Choix du numéro du nouveau client, peut être
'tout autre numéro non utilisé par un client
CustomerInt.PKey_CuNumber = "7232289"
'Réservation de la clé primaire
Error = CustomerInt.ReserveCardNumber
If Error = 0 Then
'Initialisation des propriétés du client
CustomerInt.CuNumber = CustomerInt.PKey_CuNumber
CustomerInt.CuName = "Nom du client"
CustomerInt.CuActive = True
'Ajout de la fiche CustomerInt
Error = CustomerInt.AddCard
If Error = 0 Then
MsgBox "Ajout du client complété avec succès"
Else
MsgBox (Acomba.GetErrorMessage
(Error))
'Libération de la clé primaire réservée si
'l'ajout n'est pas complété
Error = CustomerInt.
FreeCardNumber
If Error <> 0 Then
MsgBox "Erreur : " & Acomba.
GetErrorMessage(Error)
End If
End If
Else
MsgBox "Erreur : " & Acomba.
GetErrorMessage(Error)
End If
End Sub
- Monrake
- Nombre de messages : 10
Date d'inscription : 21/04/2009
Re: [Résolu] Création d'un nouveau client
Lun 24 Oct 2011 - 9:42
Voici mon code en PHP pour créer un nouveau client. Je vérifie si le client existe, si ce n'est pas le cas, je le créais pour ensuite continuer ma facture :
- Code:
$req = 'SELECT * FROM Customer WHERE CuNumber=\'".$IDClient."\'';
$resultats = odbc_exec($conn, $req);
if (odbc_num_rows($resultats) > 0) {
$data = odbc_fetch_array($resultats);
$GroupeTaxe = $data['CuTaxGroupCP'];
if ($GroupeTaxe == "") { $GroupeTaxe = 0; }
}
else {
$Nom = $val["Nom"];
$AdresseP = $val["AdresseP"];
$VilleP = $val["VilleP"];
$CPP = $val["CPP"];
$AdresseFact = $val["AdresseFact"];
$VilleFact = $val["VilleFact"];
$CPFAct = $val["CPFAct"];
$req = 'INSERT into Customer (CuNumber, CuName, CuActive, CuOpeningDate, CuPostalCode,CuAddress,CuCity) VALUES (\'".$IDClient."\', \'".$Nom."\', -1, \'".$DateNow."\', \'".$CPFAct."\', \'".$AdresseFact."\', \'".$VilleFact."\')';
$resultats = odbc_exec($conn, $req);
if (!$resultats){
echo "Query failed " .odbc_error();
exit;
}
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum