1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97
| // Variables lecture journées conventions
Datedebjour est une Date
Datefinjour est une Date
// Variables combo mois et année
Datedeb est une Date=DateDuJour()// Début de l'échelle Période
DateFinAnnee est une Date=DateDuJour()// Fin de l'échelle Période
SI COMBO_mois =13 ALORS
Datedeb..Jour=1
Datedeb..Mois=1
Datedeb..Année=COMBO_Année..ValeurAffichée
DateFinAnnee=DernierJourDuMois(COMBO_Année..ValeurAffichée,12)
SINON
Datedeb..Jour=1
Datedeb..Mois=COMBO_mois
Datedeb..Année=COMBO_Année..ValeurAffichée
DateFinAnnee=DernierJourDuMois(COMBO_Année..ValeurAffichée,COMBO_mois)
FIN
TableSupprimeTout(TABLEH_conventions)
//vMoiselect est un variant= COMBO_mois // variant accepte tout type de valeur pour pouvoir prendre la valeur NULL
REQ_convention_client.Param_date_deb=Datedeb
REQ_convention_client.Param_date_fin=DateFinAnnee
REQ_convention_client.Param_id_etablissement=COMBO_agence
REQ_convention_client.Param_proprietaire=COMBO_Collaborateur
HExécuteRequête(REQ_convention_client)// la requête recherche déjà les infos donc inutile de remettre HlitrecherchePremier
HLitPremier(REQ_convention_client)
TANTQUE PAS HEnDehors(REQ_convention_client)
TABLEH_conventions..ImageEnroulée ="convention_16.png"
TABLEH_conventions..ImageDéroulée ="convention_16.png"
NumParent=TableChercheFils(COL_Indice,REQ_convention_client.Société)// On recherche pour éviter de l'afficher en double
SI NumParent < 1 ALORS
// La catégorie contient le numéro du parent, donc l'enfant ira se mettre sous le parent dans la table
NumParent=TableAjouteFils(TABLEH_conventions,Null,REQ_convention_client.Société,"","","","","","","","","","","","","","","","","",REQ_convention_client.NumClient)// Null il n'a pas de parent on est à la racine
FIN
HLitRecherchePremier(Formateur,IDFORMATEUR,REQ_convention_client.IDFORMATEUR)
HLitRecherchePremier(Catégorie_de_formation,IDGROUPE,REQ_convention_client.IDGROUPE)// On cherche la valeur de l'IDGROUPE de la Requete Commande_client en remontant au fichier source Catégorie de formation
//On recherche les journées de la commande et on lit le premier jour et le dernier jour (car ils sont triés par date)
HExécuteRequête(REQ_Journees_commande,hRequêteDéfaut,REQ_convention_client.IDCommande)
HLitPremier(REQ_Journees_commande)
Datedebjour=REQ_Journees_commande.Date
HLitDernier(REQ_Journees_commande)
Datefinjour=REQ_Journees_commande.Date
moTotal_ttc est un monétaire=0
moTotaltva est un monétaire=0
moTotal_HT est un monétaire=0
moTOTALfinance est un monétaire=0
SI REQ_convention_client.Subrogation=2 ALORS
moTotal_HT=REQ_convention_client.Sous_total-REQ_convention_client.Sous_total_remise
moTOTALfinance =REQ_convention_client.Financement
moTotal_ttc=REQ_convention_client.Total_convention_TTC
moTotaltva=REQ_convention_client.tva_sous_total
SINON
moTotal_HT=REQ_convention_client.Sous_total-REQ_convention_client.Sous_total_remise
moTOTALfinance =REQ_convention_client.Financement
moTotaltva=REQ_convention_client.Total_tva
moTotal_ttc=REQ_convention_client.Total_TTC
FIN
NumFils=TableAjouteFils(TABLEH_conventions,NumParent,REQ_convention_client.Indice,"",-1,REQ_convention_client.NumContact,Formateur.Prenom+" "+Formateur.nom,REQ_convention_client.Datecde,Datedebjour,Datefinjour,REQ_convention_client.Intra_inter,Catégorie_de_formation.LIBGROUPE,REQ_convention_client.Intitule,REQ_convention_client.Nbre_jour,REQ_convention_client.DUREE_FORMATION,REQ_convention_client.Sous_total,moTotal_HT,moTotaltva,moTotal_ttc,moTOTALfinance,REQ_convention_client.IDCommande,REQ_convention_client.NumClient,REQ_convention_client.Statut,REQ_convention_client.Prof_part,REQ_convention_client.IDSESSION,REQ_convention_client.Nouv_commande)
//On met les icônes pour les stagiaires
TABLEH_conventions..ImageEnroulée ="client16.png"
TABLEH_conventions..ImageDéroulée ="client16.png"
HExécuteRequête(REQ_commande_client_stagiaire,hRequêteDéfaut,REQ_convention_client.IDCommande)
HLitPremier(REQ_commande_client_stagiaire)
TANTQUE PAS HEnDehors(REQ_commande_client_stagiaire)
//On ajoute les stagiaires de la formation
TableAjouteFils(TABLEH_conventions,NumFils,REQ_commande_client_stagiaire.Stagiaire,REQ_commande_client_stagiaire.Stagiaire,REQ_commande_client_stagiaire.NumContact,REQ_commande_client_stagiaire.IDCommande,"","","","","","","","","","","","","","",REQ_convention_client.IDCommande,REQ_convention_client.NumClient)
HLitSuivant(REQ_commande_client_stagiaire)
FIN
SI HNbEnr(REQ_commande_client_stagiaire) = 0 ALORS
TableAjouteFils(TABLEH_conventions,NumFils,"Identité des apprenants inconnue","","","","","","","","","","","",",,""","","","","","")
FIN
HLitSuivant(REQ_convention_client)
FIN |
Partager