Générer un événement qualité

La fonction Evenement_Qualite_Generation de QUTMPBLE crée un nouvel événement qualité (QUEVT). Elle peut également rattacher automatiquement des fichiers joints à l'événement généré si 'IdlFic' contient une liste de fichiers joints. Si 'NoteSt' est positionné à 1, une note est créée ; il faudra au préalable avoir exécuté Qu_Note_chargement et remplit le fichier Rtf correspondant.
La fonction génère un flash s'il y a lieu selon le paramétrage du code événement utilisé.

Prototype de la fonction
Evenement_Qualite_Generation (EvtQual, Tiers, param_evt, IdlFic, NoteSt)
EvtQual
Code événement qualité
Paramètre obligatoire
TIERS
Code du tiers
Paramètre obligatoire
' ' ou le code du tiers
IDLFIC
Liste de fichiers joints (256 caractères)
Paramètre facultatif
Valeur par défaut à 0
NOTEST
Indicateur de création de note
Paramètre facultatif
Valeur par défaut positionné à 0
Valeurs possibles 1=Création de la note, 0=Pas de note
Param_Evt
Chaine HMP décrivant le contexte de déclenchement de l'événement.
<EVTLIB>Titre de l'événement
<GRREF>Article concerné par l'événement
<CONTACT> Code contact chez le tiers pour le suivi de l'événement
<EVTORICOD>Code support (Facultatif : « Divers » par défaut)
1=Divers2=Courrier3=Fax4=Téléphone5=Mèl6=CR réunion7=Rapport

<PIREF> Référence pièce associée au code support
<EVTDT> Date de l'événement (Facultatif : date du jour par défaut)
<USER>Code utilisateur à l'origine de l'événement (Facultatif : utilisateur courant par défaut)
<AFFAIRE> Code affaire associée à l'événement
Retour de la fonction
EvtNo
0Aucun événement n'a été crée
N° Numéro de l'événement généré