QUAND EXCEPTION DANS

editer = Faux
SI editer = Faux ALORS
SAI_NUM_EXPEDITION_TOURNEE..CouleurFond = Transparent
FIN

OuvreFenêtreMobile(FEN_Pop_Attente,"Traitement en cours...")

SI SAI_NUM_EXPEDITION_TOURNEE <> "" ET SAI_CODE_PHARMACIE = "" ALORS

PL_AfficherExpeditionTournee()

Ferme(FEN_Pop_Attente)

SI ZoneRépétéeOccurrence(ZR_REQ_LISTE_PHARMACIE) <= 0 ALORS
TitreSuivant("Erreur")
Erreur("Aucune expédition client trouvée,","")
<COMPILE SI Configuration="Application Android">
    RepriseSaisie(SAI_NUM_EXPEDITION_TOURNEE)
    <FIN>
        RETOUR
        FIN

        <COMPILE SI Configuration="Application Android">
            RepriseSaisie(SAI_CODE_PHARMACIE)
            <FIN>

                RETOUR
                FIN


                SI SAI_CODE_PHARMACIE <> "" ALORS

                SI HLitRecherchePremier(CLIENT,CodeClient,SAI_CODE_PHARMACIE) = Faux ALORS
                Ferme(FEN_Pop_Attente)
                TitreSuivant("Erreur")
                Erreur("Code client inconnu !")
                <COMPILE SI Configuration="Application Android">
                    RepriseSaisie(MoiMême)
                    <FIN>
                        RETOUR
                        FIN

                        PL_AfficherExpeditionTournee()

                        Ferme(FEN_Pop_Attente)

                        SI ZoneRépétéeCherche(ATT_CODE_CLIENT,SAI_CODE_PHARMACIE) > 0 ALORS
                        OuvreFenêtreMobile(FEN_DETAIL_PHARMACIE,ZR_REQ_LISTE_PHARMACIE.ATT_ID_EXPEDITION_CLIENT,ZR_REQ_LISTE_PHARMACIE.ATT_NBRE_COLIS)
                        SINON
                        TitreSuivant("Erreur")
                        Erreur("Ce code client n'a aucune expédition client dans la liste !")
                        FIN
                        FIN

                        FAIRE
                        SI FenEtat(FEN_Pop_Attente) <> Inexistant ALORS
                        Ferme(FEN_Pop_Attente)
                        FIN
                        PG_Erreur_Exception()
                        FIN