Objets métiers / reglement

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 forum

Avant 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" ***

Objets métiers / reglement

Messagede 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
Posteur actif
 
Messages: 47
Inscription: Ven 14 Nov 2008 11:50

Re: Objets métiers / reglement

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