Tutoriel PowerApps - Développement from scratch d'une application de logistique

                        Initialiser vVisible
                        Mettre le focus sur le matricule

                        SI (MATRICULE = Space)
                        ALORS Afficher("Matricule Obligatoire")
                        SINON
                           Rechercher flag admin dans P8_Login avec Login=Matricule 
                            SI absent ALORS 
                                 Afficher ("Matricule n'existe pas")
                            SINON
                              Aller vers EMenu(admin)
                            FSI
                        FSI

                        UpdateContext({vVisible:Blank()});;SetFocus(MATRICULE)

                        If (IsBlank(Matricule.Text);Notify("Matricule obligatoire";Error);;SetFocus(MATRICULE); 
                        UpdateContext({vVisible: true});; 
                        UpdateContext({vAdmin: LookUp( '[schema].[P8_login]';Upper(Login) = Upper(Matricule.Text);admin)});; 
                        UpdateContext({vVisible: false});; 
                        If (IsBlank(vAdmin);Notify("Matricule inconnu";Error);;SetFocus(MATRICULE);Navigate(EMenu;Fade;{rAdmin:vAdmin})))

                            Aller vers Exxxx()

                        Navigate(Exxxxx)

                            Reset des contrôles et Retour arrière d'un écran

                            SI (ILoginAgent = Blanc ALORS Afficher("Le Login est obligatoire") 
                            SINON
                               SI (INomAgent = Blanc ALORS Afficher("Le nom est obligatoire"")
                               SINON
                                  Rechercher dans P8_Login ILoginAgent
                                  SI existe ALORS Afficher("Cet utilisateur existe déjà")
                                  SINON créer Utilisateur)))

                            SI (item.admin = TRUE ALORS YES SINON NO)

                            SI (item.admin = TRUE ALORS Vert SINON Rouge)

                            SI (item.admin = TRUE ALORS Modifier Table P8 (admin=false) ET Afficher NO ROUGE
                            SINON Modifier Table P8 (admin=true) ET Afficher YES VERT)

                            Compter le nombre lignes P8_Login
                            SI (compte=1 ALORS Afficher("Il doit rester un utilisateur au moins"")
                            SINON Supprimer la ligne de P8_Login)

                            Reset(IloginAgent);;Reset(INomAgent);;Reset(IAdmin);;Back()

                            If(IsBlank(ILoginAgent.Text);Notify("Le Login est obligatoire";Error);;SetFocus(IloginAgent);
                            If(IsBlank(INomAgent.Text);Notify("Le nom est obligatoire";Error);;SetFocus(INomAgent);
                            If (IsBlank(LookUp('[schema].[P8_Login]';Upper(Login)=Upper(ILoginAgent.Text);Login));UpdateContext({vVisible:true});;Collect('[schema].[P8_Login]';{Login:Upper(ILoginAgent.Text);nom:INomAgent.Text;admin:If(IAdmin.SelectedText.Value="YES";true;false)});;UpdateContext({vVisible:false});
                            Notify("Cet utilisateur existe déjà");SetFocus(IloginAgent))))

                            If (ThisItem.admin;"YES";"NO")

                            If (ThisItem.admin;Green;Red)

                            UpdateContext({vVisible:true});;Patch('[schema].[P8_login]';ThisItem;{admin:If (ThisItem.admin;false;true)});;UpdateContext({vVisible:false})

                            If (CountRows('[schema].[P8_login]') < 2;Notify("Il doit rester un utilisateur au moins";Error);;SetFocus(IloginAgent);
                            UpdateContext({vVisible:true});;Remove('[schema].[P8_login]';ThisItem);;UpdateContext({vVisible:false}))

                            Naviguer vers le menu

Navigate(EMenu)

Rechercher la liste de P8_Mouvements tels que la date de maj soit dans la date du jour.
Trier celle-ci par date décroissante

Reset des variables (hors casier) et du IScan
Afficher "Equipement ou Rangement"
                            Donner le focus à IScan

Reset du casier
Naviguer vers le menu

SI (casier=blanc ou équipement=blanc ALORS
                               SI (IScan n'est pas numérique ALORS 
                                  SI (Longueur de IScan = 5 ALORS
                                     casier = IScan
                                  SINON
                                      Afficher ("Scan invalide (Casier ?)"
                                  FSI
                               SINON
                                  Recherche équipement dans P8_Equipement avec P8.equipement = ISCAN
                                  SI (Non trouvé ALORS
                                     Afficher ("Scan invalide (Equipement ?)")
                                  SINON
                                     équipement = IScan
                                  FSI
                               FSI
                               SI (casier <> blanc ET équipement <> blanc ALORS Label = "Quantité"    FSI
                            SINON
                               SI (IScan = "0" ALORS
                                  Equipement = blanc
                                  Label = "Equipement ou Rangement"
                               SINON
                                  SI (IScan non numérique ALORS
                                     Afficher("Quantité non numérique")
                                  SINON
                                     Aller vers EIOIMaj (casier,équipement,quantité,type traitement)
                                  FSI
                               FSI
                            FSI

Sort(Filter('[schema].[P8_mouvement]';IsToday(DateMaj));DateMaj;SortOrder.Descending)

UpdateContext({vLabel:"Equipement ou Rangement"});;
UpdateContext({vEqpt:Blank()});;
UpdateContext({vQte:Blank()});;
UpdateContext({vDes:Blank()});;
UpdateContext({vEIOI:Blank()});;
Reset(IScan);;
SetFocus(IScan)

UpdateContext({vCasier:Blank()});;
Navigate(EMenu)

If (IsBlank(vCasier) Or IsBlank(vEqpt); 
                              If (Not IsNumeric(IScan.Text);
                              If (Len(IScan.Text) = 5;UpdateContext({vCasier:IScan.Text});Notify("Scan invalide (Casier   ?)";Error)); 
UpdateContext({vDes:LookUp('[schema].[P8_equipement]';Equipement=Value(IScan.Text);Designation)});;
                              If (IsBlank(vDes);Notify("Scan invalide (Equipement ?)";Error);
                                 UpdateContext({vEqpt:IScan.Text})));; 
                                 If (Not IsBlank(vEqpt) And Not IsBlank(vCasier);UpdateContext({vLabel:"Quantité"})); 
                                    If (IScan.Text = "0";UpdateContext({vEqpt:Blank()});;UpdateContext({vDes:Blank()});;UpdateContext({vLabel:"Equipement ou Rangement"});
                                       If (Not IsNumeric(IScan.Text);Notify("Quantité non numérique";Error);
                                           UpdateContext({vEIOI:"X"});; 
Navigate(EIOIMaj;Fade;{rCasier:vCasier;rEqpt:vEqpt;rQte:IScan.Text;rType:typeTrt}))));;Reset(IScan);;SetFocus(IScan)

                            SI (EIOI = "X" ALORS
                               vLabel = "Maj Mouvement"
                               Créer un enregistrement dans P8_mouvement 
                               vLabel = "Maj Stock"
                               Rechercher Stock avec Equipement et Casier
                               SI (stock n'existe pas ALORS 
                                     Créer Stock
                                     oldStock = rQte
                               SINON
                                     oldStock = stock.stock
                                  Mettre à jour stock.stock
                               FSI
                               vLabel = "Maj Equipement"
                               Rechercher Equipement
                               Mettre à jour equipement.qteStock
                               Reset EIOI
                               Déclencher BRetour

Retourner à EInOutInv

UpdateContext({vLabel:""});;
                        If(EIOI.Text="X";UpdateContext({vLabel:"Maj Mouvement"});; 
                            Collect('[schema].[P8_mouvement]';{Equipement:Value(rEqpt);Designation:LookUp('[schema].[P8_equipement]';Equipement= Value(rEqpt);Designation);Qte:Value(rQte);Casier:rCasier;Type:rType;Agent:Matricule.Text;DateMaj:Now()});; 
                            UpdateContext({vLabel:"Maj Stock"});; 
                            UpdateContext({stock:LookUp('[schema].[P8_stock]';Equipement=Value(rEqpt) And Casier=rCasier)});;
                            If (IsBlank(stock);Collect('[schema].[P8_stock]';{Equipement:Value(rEqpt);Casier:rCasier;Stock:Switch(rType;"E";Value(rQte);"S";Value(rQte)*-1;"I";Value(rQte))});;                                           UpdateContext({oldQte:Value(rQte)});
                            UpdateContext({oldQte:stock.Stock});; 
                            Patch('[schema].[P8_stock]';stock;{Stock:Switch(rType;"E";stock.Stock+Value(rQte);"S";stock.Stock-Value(rQte);"I";Value(rQte))}));; 
                            UpdateContext({vLabel:"Maj Equipement"});;
                            UpdateContext({tabEqpt:LookUp('[schema].[P8_equipement]';Equipement=Value(rEqpt))});;
                            Patch('[schema].[P8_equipement]';tabEqpt; {QteStock:Switch(rType;"E";tabEqpt.QteStock+Value(rQte);"S";tabEqpt.QteStock-Value(rQte);"I";tabEqpt.QteStock-oldQte + Value(rQte));QteRecue:If(rType="E";tabEqpt.QteRecue+Value(rQte);tabEqpt.QteRecue)});;
                            Reset(EIOI);; 
                            Select(BRetour))

Back()

vVisible=false
vPlus=false
Donner le focus à IStock

Effacer IStock
Effacer la liste
Retourner à menu

vVisible = true ' Rend visible la fenêtre "patientez..."
liste = Rechercher les stocks dont l'équipement correspond au N° d'équipement demandé et trier celle-ci par équipement, casier
vVisible = false ' Rend invisible la fenêtre "Patientez...."

vEqpt = Rechercher l'équipement correspondant au N° de l'équipement de la ligne de Gliste sélectionnée
vPlus= true ' Rend visible la popup

vPlus = false ' Rend invisible la popup
SetFocus(IStock)

UpdateContext({vVisible:false});;  
UpdateContext({vPlus:false});;
SetFocus(IStock)

Reset(IStock);;
Clear(liste);;
Navigate(EMenu)

UpdateContext({vVisible:true});;
ClearCollect(liste;SortByColumns(Filter('[Power].[P8_stock]';Equipement=Value(IStock.Text));"Equipement";Ascending;"Casier";Ascending));;UpdateContext({vVisible:false})

UpdateContext({vEqpt:LookUp('[Power].[P8_equipement]';Equipement=ThisItem.Equipement)});;
UpdateContext({vPlus:true})

UpdateContext({vPlus:false});;
SetFocus(IStock)

' Initialisations diverses
vDisabled = DisplayMode.Edit; ' Enable tous les contrôles concernés
vEdit = false; ' Rend invisible la popup de correction
vDetail = false; ' Idem pour le détail 
Donner le focus à ILogEqpt 
Ttexte = "Patientez ... La recherche est en cours"
vVisible = false ' Rendre invisible la fenêtre d'attente
SI ILog=X ALORS
vLog=Blanc; ' Interdit la maj
Clic sur BListe ' Relance une recherche pour prendre en compte les modifications
FSI

Effacer ILogTri, ILogFin, ILogDebut, ILogCasier, ILogEqpt
vLog = Blanc
Vider mvtListe et mvtLste
Retourner au menu

LogTri = Pour tous les critères sélectionnés : Si critère = "Date de Mouvement" ALORS LogTri = LogTri + "DateMaj" SINON LogTri = LogTri + critère FSI FPOUR ' On remplace Date de Mouvement par DateMaj, car c'est le nom de la colonne qui est attendu pour le tri
SI ((ILogEqpt <> Blanc OU ILogCasier <> Blanc) ET Stock Négatif 
ALORS 
Afficher ("Équipement ou Casier interdit avec Stock négatif")
Focus sur IlogEqpt
SINON 
vVisible = true ' Affiche Patientez...
mvtListe = Sélection des lignes P8_Mouvement telle que :
(ILogEqpt = Blanc OU ILogEqpt = P8_Mouvement.Equipement) ET
(ILogCasier = Blanc OU ILogCasier = P8_Mouvement.Casier) ET
(DateMaj - ILogDebut) >= 0 ET
(ILogFin - DateMaj) >= 0 ET
SI (Stock Négatif ALORS P8_Stock.Stock < 0 OU P8_Equipement.QteStock < 0) FSI
Ajouter Colonne MvtStock (Stock Casier)
Ajouter Colonne MvtEqpt (Stock Équipement)
Ajouter Colonne Détail avec Emoij Loupe
Ajoute Colonne Correction avec Emoij Crayon
vVisible = false ' faire disparaitre fenêtre patientez

SUIVANT Nombre de critères
SI 1 ALORS Trier sur le 1er critère,Descending FSI
SI 2 ALORS Trier sur 1er critère,Descending et sur le 2e critère,Descending FSI
DEFAUT Trier sur le 1er critère,Descending, sur le 2e critère,Descending et sur le 3e critère,Descending FDEFAUT
FSUIVANT

VEquipement = Trouver P8_equipement quand Equipement=Équipement sélectionné de DListe
vDetail = true ' On affiche la popup détail
vDisabled = Disabled ' On rend indisponibles tous les contrôles permettant une saisie

vEdit=true ' On rend visible la popup de correction
vDisabled = Disabled ' On rend indisponibles tous les contrôles permettant une saisie
Effacer INStock
Focus à INStock

vDetail = false ' Rend invisible la popup
vDisabled = Edit ' Rend disponibles les contrôles de saisie

SI (INStock est numérique) ALORS 
Activer l'icône ICloseCor
vLog = "X" ' Autorise la mise à jour
Aller vers EIOIMaj (Casier sélectionné de DListe,Équipement de P8_Equipement,Quantité renseignée,"I") ' Va vers l'écran de Mise à jour avec le type I(nventaire)
SINON
Afficher ("La quantité doit être numérique")
FSI

vEdit = false ' Fermer la popup de correction
vDisabled = Edit ' Rend disponible les contrôles de saisie

UpdateContext({vDisabled:DisplayMode.Edit});;
UpdateContext({vEdit:false});;
UpdateContext({vDetail:false});;
SetFocus(ILogEqpt);;
UpdateContext({vVisible:false});;
If(ILog.Text = "X";UpdateContext({vLog:Blank()});;
Select(BListe))

Reset(ILogTri);;
Reset(ILogFin);;
Reset(ILogDebut);;
Reset(ILogCasier);;
Reset(ILogEqpt);;
UpdateContext({vLog:Blank()});;
Clear(mvtLste);;
Clear(mvtListe);;
Navigate(EMenu)

ClearCollect(LogTri;
ForAll(ILogTri.SelectedItems;
If(Value="Date de Mouvement";{triValue:"DateMaj"};{triValue:Value})));;
If((Not IsBlank(ILogEqpt.Text) || Not IsBlank(ILogCasier.Text))  && ILogStock.SelectedText.Value = "Oui";Notify("Equipement ou Casier interdit avec Stock négatif";Error);SetFocus(ILogEqpt);
UpdateContext({vVisible:true});;
ClearCollect(mvtListe;
AddColumns(ClearCollect(mvtLste;
Filter(AddColumns('[Power].[P8_mouvement]' As Mvt;"MvtStock";LookUp('[Power].[P8_stock]' As Stock;Mvt.Equipement=Stock.Equipement And Mvt.Casier=Stock.Casier;Stock.Stock);"MvtEqpt";LookUp('[Power].[P8_equipement]' As Eqpt;Mvt.Equipement=Eqpt.Equipement;Eqpt.QteStock));
(IsBlank(ILogEqpt.Text) || Equipement=Value(ILogEqpt.Text)) &&
(IsBlank(ILogCasier.Text) || Upper(Casier) = Upper(ILogCasier.Text)) &&DateDiff(ILogDebut.SelectedDate;DateMaj) >= 0 && 
DateDiff(DateMaj;ILogFin.SelectedDate) >= 0  && 
If(ILogStock.SelectedText.Value = "Oui";MvtStock <= 0 || MvtEqpt <= 0;1=1)));
"Détail";"????"; "Correction";"??"));; UpdateContext({vVisible:false}))

Switch (CountRows(LogTri);
1;SortByColumns(mvtListe;First(LogTri).triValue;Descending);
2;SortByColumns(mvtListe;First(LogTri).triValue;Descending;Last(LogTri).triValue;Descending);
SortByColumns(mvtListe;First(LogTri).triValue;Descending;Last(FirstN(LogTri;2)).triValue;Descending;Last(LogTri).triValue;Descending))

UpdateContext({VEquipement:LookUp('[Power].[P8_equipement]';Equipement=DListe.Selected.Equipement)});;
UpdateContext({vDetail:true});;
UpdateContext({vDisabled:DisplayMode.Disabled})

UpdateContext({vEdit:true});;
UpdateContext({vDisabled:DisplayMode.Disabled});;
Reset(INStock);;
SetFocus(INStock)

UpdateContext({vDetail:false});;
UpdateContext({vDisabled:DisplayMode.Edit})

If (IsNumeric(INStock.Text);
Select(ICloseCor);;
UpdateContext({vLog:"X"});;
Navigate(EIOIMaj;Fade;{rCasier:DListe.Selected.Casier;rEqpt:Text(DListe.Selected.Equipement);rQte:INStock.Text;rType:"I"});
Notify("La quantité doit être numérique";Error))

UpdateContext({vEdit:false});;
UpdateContext({vDisabled:DisplayMode.Edit})