void AffichePropriétés(TreeNode Nod, string mClasse)
{
switch (mClasse.ToUpper().Trim())
{
case "USER":
{
//Recherche la liste des propriétés de la classe
Utilisateur user = new Utilisateur();
foreach (string str in user.ListeAttribut)
{
string libelle = Acces.Trouver_Attribut_Libelle(str);
TreeNode nod = new TreeNode(libelle);
nod.Name = Acces.type_UTILISATEUR.Code + "_" + str;
Nod.Nodes.Add(nod);
}
break;
}
case "PORTEUR":
{
//Recherche la liste des propriétés de la classe
Porteur Prt = new Porteur();
foreach (string str in Prt.ListeAttribut)
{
string libelle = Acces.Trouver_Attribut_Libelle(str);
TreeNode nod = new TreeNode(libelle);
nod.Name = Acces.type_PORTEUR.Code + "_" + str;
Nod.Nodes.Add(nod);
}
break;
}
case "FICHE_COMMANDE":
{
//Recherche la liste des propriétés de la classe
Fiche Fic = new Fiche();
foreach (string str in Fic.ListeAttribut)
{
string libelle = Acces.Trouver_Attribut_Libelle(str);
TreeNode nod = new TreeNode(libelle);
nod.Name = Acces.type_FICHE.Code + "_" + str;
Nod.Nodes.Add(nod);
}
break;
}
case "LIGNE_COMMANDE":
{
//Recherche la liste des propriétés de la classe
Fiche_Ligne fcl = new Fiche_Ligne();
foreach (string str in fcl.ListeAttribut)
{
string libelle = Acces.Trouver_Attribut_Libelle(str);
TreeNode nod = new TreeNode(libelle);
nod.Name = Acces.type_LIGNE.Code + "_" + str;
Nod.Nodes.Add(nod);
}
break;
}
case "DECISION":
{
/* 'Recherche la liste des propriétés de la classe
* Dim cls As New mdl_execution.Decision
* For Each P As System.Reflection.PropertyInfo In cls.GetType().GetProperties
* Dim Nd As New TreeNode(P.Name)
* Nd.Name = "EJ_" & P.Name.ToUpper
* Nod.Nodes.Add(Nd)
* Next*/
break;
}
case "ECHEANCE":
{
/* 'Recherche la liste des propriétés de la classe
* Dim cls As New mdl_execution.Echéance
* For Each P As System.Reflection.PropertyInfo In cls.GetType().GetProperties
* Dim Nd As New TreeNode(P.Name)
* Nd.Name = "ECHEANCE_" & P.Name.ToUpper
* Nod.Nodes.Add(Nd)
* Next*/
break;
}
case "LIQUIDATION":
{
/*'Recherche la liste des propriétés de la classe
* Dim cls As New mdl_execution.Liquidation
* For Each P As System.Reflection.PropertyInfo In cls.GetType().GetProperties
* Dim Nd As New TreeNode(P.Name)
* Nd.Name = "LIQUIDATION_" & P.Name.ToUpper
* Nod.Nodes.Add(Nd)
* Next*/
break;
}
case "ORDRE_PAIEMENT":
{
/*'Recherche la liste des propriétés de la classe
* Dim cls As New mdl_execution.Ordre_Paiement
* For Each P As System.Reflection.PropertyInfo In cls.GetType().GetProperties
* Dim Nd As New TreeNode(P.Name)
* Nd.Name = "ORDRE_PAIEMENT_" & P.Name.ToUpper
* Nod.Nodes.Add(Nd)
* Next*/
break;
}
}
}
