Générer une réception qualité

Owned by Khouloud Achouri (Unlicensed)
02/08/2021

La fonction Reception_Qualite_Nouvelle de QUPMFOUR crée une nouvelle réception qualité.
Prototype de la fonction
Reception_Qualite_Nouvelle (Tiers, CompetDomCod, CompetCod2, Param_Recf)
Tiers : Code fournisseur
Paramètre obligatoire
CompetDomCod : Code domaine de compétence
Paramètre obligatoire
CompetCod2 : Code compétence
Paramètre obligatoire
Param_Recf
Chaine HMP décrivant le contexte de la réception fournisseur.
<FullCdNo> ou <commande> Numéro pièce commande fournisseur
<bl> Référence pièce BL pour le fournisseur
<serie> Numéro de lot réceptionné
<reference> Référence article réceptionné (objet du service en cas de sous-traitance)
<sref1> Sous référence article
<sref2> Sous référence article
<date> Date réception (facultatif : date du jour par défaut)
<eval> Niveau évaluation délai (facultatif : niveau « A » par défaut)
<retard> Nombre de jours de retard
Une séquence est appelée avant l'écriture de la réception qualité :
"Reception_Qualite_Nouvelle_Av"
Ce qui permet notamment de récupérer des paramètres supplémentaires par un
PingLocal ("QUPMFOUR_Reception_Qualite",Param_Recf)

Retour de la fonction
ReceptNo : Numéro réception qualité

  1. Aucune réception générée



La fonction Reception_Qualite_Delai de QUPMFOUR renvoie un niveau délai calculé selon le barême des jours de retard .
Prototype de la fonction
Reception_Qualite_Delai (JoRet)
JoRet : Nombre de jours de retard pour la réception fournisseur
Paramètre obligatoire
Retour de la fonction
EvalNiv : Niveau évaluation délai

  1. Niveau A
  2. Niveau B
  3. Niveau C
  4. Niveau D


Exemples :
Pour implémenter l'évaluation automatique du délai lors d'une réception Divalto, ajouter une séquence dans le traitement du programme de saisie BL fournisseur :
Public procedure "Reception_Qualite_enregistrer_Av"
1ParamHmpS
1joret10,0
1EvalNiv>qufdd.dhsd EvalNiv
Beginp
PingLocalReceive("GTPMPCE_Reception_Qualite",ParamHMP)
; Calcul du nombre de jours de retard spécifique  joret
…
EvalNiv = Reception_Qualite_Delai (joret)
ParamHMP &= '<eval>' & HMPencode(EvalNiv)
ParamHMP &= '<retard>' & HMPencode(joret)
PingLocal ("GTPMPCE_Reception_Qualite",ParamHMP)
Endp