Forum consacré aux développements d'applications interfacées avec les logiciels Sage
Modérateurs: Super Modérateur, Modérateurs
Règles du forum
Merci de prendre connaissance des
règles d'utilisation du forumAvant de poster un nouveau message, utilisez la fonction RECHERCHER. Indiquez la VERSION de votre logiciel et toutes informations utiles à la résolution de votre question. Ne rédigez pas vos messages en MAJUSCULES. Soyez courtois et pensez aux formules de POLITESSE d'usage. Les messages à vocation COMMERCIALE ou PUBLICITAIRE seront supprimés.
*** LORSQU'UN SUJET EST RESOLU, SON AUTEUR DOIT EDITER LE 1ER MESSAGE DU SUJET EN HAUT DE PAGE ET COCHER "SUJET RESOLU" ***
de XavierB » Jeu 12 Nov 2009 11:51
Bonjour,
je n'arrive pas Ă trouver comment faire pour savoir le modele de reglement d'un client.
je veux juste l'afficher ! mais c'est pas tres claire ...
Si quelqu'un peut m'aider ...
Cordialement
Dernière édition par
XavierB le Mer 3 Fév 2010 18:24, édité 1 fois.
-
XavierB
- Posteur actif

-
- Messages: 47
- Inscription: Ven 14 Nov 2008 11:50
de XavierB » Mer 3 FĂ©v 2010 18:12
La solution en windev pour récuperer les différents modes de règlements et initialiser un tableau avec....
//----------------------------------------------------------------------------------------------------------------------
paut_MonClient est un objet Automation dynamique
paut_ListReglement est un objet Automation dynamique
paut_UneCondition est un objet Automation dynamique
paut_UnReglement est un objet Automation dynamique
st_UnReglement est une str_SOMReglement
i est un entier
s_Condition est une chaîne
// ON se place sur le client
paut_MonClient = m_paut_BaseCompta>>FactoryTiers>>ReadNumero(s_NumeroClient)
// ON récupère ses conditions
paut_ListReglement = paut_MonClient>>FactoryTiersReglement>>List()
POUR i = 1 _A_ paut_ListReglement>>count()
paut_UneCondition = paut_ListReglement>>Item[i]
SELON paut_UneCondition>>Condition()
CAS 0 : s_Condition = "Jour net"
CAS 1 : s_Condition = "Fin de mois civil"
CAS 2 : s_Condition = "Fin de mois"
AUTRE CAS
// RIEN
FIN
// Initialisation de la structure Condition
// Condition
st_UnReglement:s_Condition = s_Condition
// Nombre de jour
st_UnReglement:e_NbJour = paut_UneCondition>>NbJour()
// jour de la tombée
st_UnReglement:e_JourTb = paut_UneCondition>>JourTb[1]
// Comment ... on étudie le type de reglement
// ------------------------------------------
paut_UnReglement = paut_UneCondition>>Reglement()
st_UnReglement:s_Intitule = paut_UnReglement>>R_Intitule()
SI EnModeTest() ALORS
Trace( st_UnReglement:e_NbJour + " jours" + st_UnReglement:s_Condition + " Le : " + st_UnReglement:e_JourTb + " " + paut_UnReglement>>R_Intitule())
FIN
TableauAjoute(t_SOMReglements,st_UnReglement)
FIN
RENVOYER Vrai
CAS EXCEPTION:
m_s_ErreurMessage = ExceptionInfo(errMessage)
RENVOYER Faux
-
XavierB
- Posteur actif

-
- Messages: 47
- Inscription: Ven 14 Nov 2008 11:50
Retourner vers Développements ODBC, Objets métiers, SQL
Qui est en ligne
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités