Traitement FUNMLINK : Plan d'affectation

ADDLIN : Renseignement de zones spécifiques

Ce point d’entrée permet de renseigner des champs spécifiques dans le plan de travail.

Il est appelé dans le traitement BENCHLIB.

Contexte et mode de fonctionnement

Transaction

Il n’y a pas de transaction en cours.

Fichier trace

Il n’y a pas de fichier trace ouvert.

Différents cas d’appel - Variables et masques disponibles

Ce point d’entrée est appelé en fin de boucle d’alimentation des lignes du tableau.

Il permet de prendre la main afin d’alimenter des champs spécifiques du tableau.

La classe écran MFGBENCHD/MTOLINKB(*) est ouverte au moment de l’appel du point d’entrée.

Tables ouvertes

Dans le tableau ci-dessous, le flag contenu significatif signifie que le contenu est en phase avec le contexte.

(*) Suivant les valeurs de GFONCTION respectivement FUNDBENCH/FUNMLINK

CUSSELFLT : Positionnement de filtres supplémentaires

Ce point d’entrée permet de prendre la main en création des filtres de sélections dans le traitement du plan d'affectation (fonction FUNMLINK).

La variable CUSFLT (255 caractères) permet de positionner des filtres sur des zones fichiers supplémentaires.

Le filtre s’applique exclusivement au fichier des encours articles (ORDERS  classe [F :ORD] ).

Contexte et mode de fonctionnement

Transaction

Il n’y a pas de transaction en cours.

Fichier trace

Il n’y a pas de fichier trace ouvert

Classes fichiers et écrans disponibles

Le  masque MTOLINKB est ouvert et les différentes sélections  sont chargées.

Tables ouvertes

Dans le tableau ci-dessous, le flag contenu significatif signifie que le contenu est en phase avec le contexte (…).

CHECKORD : Choix dans l'affichage des ordres sélectionnés

Ce point d’entrée permet de choisir les ordres à afficher dans le plan de travail parmi ceux qui ont déjà fait l’objet d’une sélection préalable.

Il est appelé dans le traitement BENCHLIB.

Contexte et mode de fonctionnement

Transaction

Il n’y a pas de transaction en cours.

Fichier trace

Il n’y a pas de fichier trace ouvert.

Différents cas d’appel

Ce point d’entrée est appelé en début de boucle d’alimentation des lignes du tableau, juste avant le trans-classe.

Le  masque MFGBENCHD/MTOLINKB est ouvert au moment de l’appel du point d’entrée.

Variables et masques disponibles

La variable GPE est utilisée. Elle est positionnée à la valeur 0 par défaut. Elle devra être positionnée à 1 dans le traitement spécifique lié au point d’entrée si on ne souhaite pas afficher l’enregistrement courant. De retour dans le traitement standard, la valeur de GPE est testée. Si elle est différente de 0, la partie concernant l’alimentation de la ligne est court-circuitée.

Tables ouvertes

Dans le tableau ci-dessous, le flag contenu significatif signifie que le contenu est en phase avec le contexte.

(*) Suivant les valeurs de GFONCTION respectivement FUNDBENCH/FUNMLINK

CUSSRT : Classements supplémentaires

Ce point d’entrée permet de prendre la main sur le tri des enregistrements du tableau dans le traitement du plan d'affectation (fonction FUNMLINK).

La variable WTRI (de type integer) permet de désactiver le tri standard si un tri spécifique a été mis en œuvre. Pour ce faire, positionner WTRI à la valeur 1.

Ce point d’entrée étant commun aux fonctions Planning global, plan de travail et regroupement, le traitement spécifique est unique et le contexte peut être déterminé via le test du type de transaction :

[F :BTS] BTSTYP = 51 pour le planning global

[F :BTS] BTSTYP = 52 pour le plan de travail

[F :BTS] BTSTYP = 53 pour le regroupement

Exemple de traitement spécifique :

$ACTION

Case ACTION

 When "CUSSRT"      : Gosub CUSSRT

Endcase

Return

 $CUSSRT

Case [F:BTS]BTSTYP

When 51: Sorta [M:MGB]NBLIG [M:MGB]NBLIG Order By [M:MGB]BPRNUM(indice)

    When 52: Sorta [M:MGD]NBLIG [M:MGD]NBLIG Order By [M:MGD]BPRNUM(indice)

    When 53: Sorta [M:MGP]NBLIG [M:MGP]NBLIG Order By [M:MGP]BPRNUM(indice)

Endcase   

WTRI = 1

Return

Contexte et mode de fonctionnement

Transaction

Il n’y a pas de transaction en cours.

Fichier trace

Il n’y a pas de fichier trace ouvert

Classes fichiers et écrans disponibles

Le  masque MTOLINKB est ouvert et les différentes sélections  sont chargées.

Tables ouvertes

Dans le tableau ci-dessous, le flag contenu significatif signifie que le contenu est en phase avec le contexte (…).

STRSTO : Stock initial

Ce point d’entrée permet de prendre la main sur le stock initial pris en compte dans le plan de travail.

Il est appelé dans le traitement BENCHLIB.

Contexte et mode de fonctionnement

Transaction

Il n’y a pas de transaction en cours.

Fichier trace

Il n’y a pas de fichier trace ouvert.

Classes fichiers et écrans disponibles

Le  masque MFGBENCHD/MTOLINKB est ouvert et les différentes sélections  sont chargées.

Le stock de départ est déjà calculé (variable WEXT)et peut être modifié suivant les besoins.

La classe [ITV] correspondant à l’enregistrement Cumuls Article/site est en ligne.

Tables ouvertes

Dans le tableau ci-dessous, le flag contenu significatif signifie que le contenu est en phase avec le contexte (…).

(*) Suivant les valeurs de GFONCTION respectivement FUNDBENCH/FUNMLINK

FILTER_TRS: Filtre supplémentaire sur transactions

Ce point d’entrée permet de prendre la main sur la liste des transactions proposées.

Contexte et mode de fonctionnement

Utilisation

La variable CRITERE contient des filtres standard. Il est possible d'ajouter un filtre complémentaire de la façon suivante:

CRITERE += "&find(BTSNUM,'AAA','BBB')

ADD_LIN: Alimentation du tableau des affectations

Ce point d’entrée permet d'intervenir lors de l'affectation manuelle pour compléter les informations affichées dans le tableau des affectations.

Contexte et mode de fonctionnement

Utilisation

La ligne courante est connue par l'indice L.

Le point d'entrée est appelé après le chargement standard de la ligne de tableau, avant incrémentation de la variable de bas de tableau NBLIG1.

Exemple d'alimentation d'une information complémentaire:

[M:MLB]XXXX1(L) = "xxxxxxxx"

LOAD_LINK: Chargement des affectations

Ce point d’entrée permet d'intervenir suite à la sélection d'une ligne du tableau des encours.

Après sélection d'une ligne, le système recherche les allocations et affectations existantes pour constituer puis afficher le tableau des affectations.

Ce point d'entrée permet d'intervenir sur ces éléments.

Contexte et mode de fonctionnement

Utilisation

Le point d'entrée est appelé à l'issue du chargement du tableau des affectations.

La variable de bas de tableau NBLIG1 est à jour.

La variable K pointe sur la ligne d'encours sélectionnée.

CUS_ASSIGN_PRP: Proposition dynamique d'affectation

Ce point d’entrée permet d'intervenir suite à la sélection d'une ligne du tableau des encours.

Si l'ordre sélectionné dispose d'un reste à affecter, le système recherche et propose automatiquement les ordres pouvant lui être affecté.

Cette proposition se matérialise par l'affichage d'un icône représentant un cadenas fermé.

Ce point d'entrée permet d'intervenir sur le choix des ordres affectables à la ligne sélectionnée.

Contexte et mode de fonctionnement

Utilisation

Variables disponibles:

Un ordre est sélectionné si [M:MLB]ISSEL > 0 ou [M:MLB]PECFLG(indice) ="210"

Le type de l'ordre sélectionné est connu par:

- [M:MLB]ISDEM (=2) si type "demande"

- [M:MLB]ISRESS (=2) si type "ressource"

Si un ordre peut être affecté à l'ordre sélectionné: [M:MLB]ICOLINK(indice) = "167"

Si un ordre est déjà affecté à l'ordre sélectionné en mode 1 pour 1: [M:MLB]ICOLINK(indice) = "211"

Exemple de code:

#----------------------------------------------------------------------------------
$ACTION
Case ACTION
 When "CUS_ASSIGN_PRP"         : Gosub CUS_ASSIGN_PRP
Endcase
Return

#----------------------------------------------------------------------------------
$CUS_ASSIGN_PRP
# go through all lines
For I =0 To [M:MLB]NBLIG - 1
     # if no order selected, exit
    If [M:MLB]ISSEL > 0   
        # if line marked "assignable" by standard process
        If [M:MLB]ICOLINK(I) = "167"
            # just testing exclusion
            If pat([M:MLB]XUSRFLD(I), "*noassignment*") : [M:MLB]ICOLINK(I) = "" : Endif
        Endif
    Endif
Next I
Return