Fonction calcul plan échantillonnage

Owned by Khouloud Achouri (Unlicensed)
27/07/2021


Soit le code mode de surveillance XXX,
la fonction doit se nommer XXX_Echantillonnage
Exemple ci-dessous pour un mode de surveillance RECEP01 :
public function char RECEP01_Echantillonnage(LotQte,&EchanNb,&Crit1,&Crit2)
; calcule le plan d'échantillonnage pour le mode de surveillance personnalisé RECEP01
1LotQteN; Taille du lot
1EchanNbN; Taille echantillonnage
1 Crit1 N;CRITERE ACCEPTATION
1 Crit2 N;CRITERE REFUS
beginf
switch LotQte
case vsw <= 1000
EchanNb = 5
Crit1 = 0
Crit2 = 1
case vsw <= 2000
EchanNb = 10
Crit1 = 0
Crit2 = 1
case vsw <= 5000
EchanNb = 15
Crit1 = 0
Crit2 = 1
case vsw <= 20000
EchanNb = 20
Crit1 = 0
Crit2 = 1
case vsw <= 100000
EchanNb = 30
Crit1 = 0
Crit2 = 1
default
EchanNb = 50
Crit1 = 0
Crit2 = 1
endswitch
freturn ('O')
endf