Traitement JALLIB : Jalonnement

SCDRMNTIM : Prise en compte des temps restants

Ce point d’entrée permet d’intervenir les temps restants pris en compte dans le jalonnement (réglage et opératoire).

Contexte et mode de fonctionnement

A la lecture de chaque opération dans le cadre du jalonnement.

Classes fichiers et écrans disponibles

Les classes MFO, SCH, MFG et ITF sont en ligne.

 Utilisation

Ce point d’entrée a été conçu pour permettre d’intervenir sur les temps restants de chaque opération.

Le code est le suivant :

#---------

  # PE pour modifier les temps restants

  # PE si GPE = 1

  GPE = 0

  GPOINT = "SCDRMNTIM"

  Gosub  ENTREE From EXEFNC

  #---------

 

  If !GPE

      WSETTIM(I)    = [F:MFO]EXTSETTIM - [F:MFO]CPLSETTIM

      WOPETIM(I)    = [F:MFO]EXTOPETIM - [F:MFO]CPLOPETIM

      WOPTTIM(I)    = WSETTIM(I) + WOPETIM(I)

  Endif

Les variables WSETTIM(I) , WOPETIM(I) et WOPTTIM(I) peuvent être alimentées par le point d’entrée en substitution de l’alimentation standard (GPE=1).

 

Tables ouvertes

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

Table	Contenu significatif	Intitulé Table
MFGHEAD	Oui	OF
MFGOPE	Oui	Opérations OF
SCHEDULING	Oui	Données de jalonnement OF
ITMFACILIT	Oui	Article/site
FACILITY	Oui	Sites

 

MATUPDDIS : Désactivation mise à jour des matières

Ce point d’entrée permet de désactiver la mise à jour des dates de besoin matières lors du jalonnement.

Contexte et mode de fonctionnement

Avant la mise à jour de l’ordre de fabrication suivant les résultats du jalonnement.

Classes fichiers et écrans disponibles

La classe MFG est en ligne.

Utilisation

Ce point d’entrée a été conçu pour permettre de désactiver la mise à jour des matières (dates besoin) dans le cadre du jalonnement.

Pour procéder à cette désactivation, positionner la variable globale GPE à la valeur 1.

Pour connaître le contexte (fonction appelante), tester la variable globale GFONCTION.

 

Tables ouvertes

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

Table	Contenu significatif	Intitulé Table
MFGHEAD	Oui	OF
MFGOPE	Non	Opérations OF
MFGMAT	Non	Matières OF
SCHEDULING	Non	Données de jalonnement OF
ITMFACILIT	Non	Article/site
FACILITY	Oui	Sites

 

INITSCD : Initialisation jalonnement

Ce point d’entrée permet d’initialiser certaines variables du jalonnement, particulièrement la dimension du tableau de calcul qui limite la durée maximum d’une fabrication.

Contexte et mode de fonctionnement

Ce point d’entrée est appelé dès l’entrée dans le sous-programme de jalonnement.  

Classes fichiers et écrans disponibles

La classe JALK est en ligne.

 Utilisation

Ce point d’entrée a été conçu pour permettre de modifier  la dimension de l’horizon de calcul du jalonnement.

Cette horizon est exprimé par la variable entière OFFSETCAL (initialisée par défaut à 200) . Cette marge limite la durée maximum d’une fabrication. Au-delà de ce seuil les opérations ne sont plus jalonnées.

Via ce point d’entrée, la marge peut être étendue afin de traiter des cas particuliers de fabrication longue.

 

ENDSCD : Fin jalonnement

Ce point d’entrée permet d’intervenir à la fin du jalonnement des OF planifiés et fermes juste après la mise à jour des tables.

Contexte et mode de fonctionnement

Ce point d’entrée est appelé après la mise à jour des tables dans le sous-programme de jalonnement.  

Classes fichiers et écrans disponibles

La classe JALK est en ligne.

 Utilisation

Ce point d’entrée a été conçu pour intervenir en fin de jalonnement.

Il est positionné juste après la mise à jour tables et avant l'instruction commit. 

INIT_JAL : Initialisation du jalonnement

Ce point d’entrée permet d’intervenir sur l'ensemble des opérations chargées en mémoire avant le calcul du jalonnement afin d'intervenir sur certaines valeurs.

Contexte et mode de fonctionnement

il s'agit ici d'intervenir sur la liste des opérations chargées en mémoire.

Les variables disponibles pour chaque opération sont:

Local Shortint WOPENUM (NBOPMX)           : # numéro oper
Local Shortint WOPESPLNUM (NBOPMX)        : # fract. oper
Local Char    WWST    (GLONWST) (NBOPMX)  : # poste
Local Char    WLAB    (GLONWST) (NBOPMX)  : # main d'oeuvre
Local Decimal WSETLABC(NBOPMX)            : # coeff réglage MO
Local Decimal WOPELABC(NBOPMX)            : # coeff oper MO
Local Integer WOPESTA (NBOPMX)            : # état opération
Local Date    WOPESTR (NBOPMX)            : # date début
Local Date    WOPEEND (NBOPMX)            : # date fin
Local Integer WWSTN   (NBOPMX)            : # nb de postes
Local Integer WLABN   (NBOPMX)            : # nb de personnes
Local Integer WPRPTIM (NBOPMX)            : # temps préparation
Local Decimal WSETTIM (NBOPMX)            : # temps réglage pour 1 ex
Local Decimal WOPETIM (NBOPMX)            : # temps opératoire pour 1 ex
Local Decimal WWAITIM (NBOPMX)            : # temps attente
Local Decimal WPSPTIM (NBOPMX)            : # temps post oper
Local Decimal WQTY (NBOPMX)               : # quantité restante
Local Date    WFRCSTRD (NBOPMX)           : # date début forcé
Local Decimal WFRCSTRH (NBOPMX)           : # Heure début forcé
Local Char    WFRCHOU(5)(NBOPMX)            # Heure forcée au format hh:mm          
Local Decimal WFRCSTRF(NBOPMX)            : # Fraction de jour début forcé
Local Integer WFRCFLG (NBOPMX)            : # Flag oper début forcé
Local Integer WWSTTYP (NBOPMX)            : # code sous-traitance
Local Decimal WSCOLTI (NBOPMX)            : # délai sous-traitance
Local Char    WWIPNUM (GLONVCR)(NBOPMX)   : # n° encours sous-traitance
Local Char    WSCOITMREF(GLONITM)(NBOPMX) : # article sous-traitance
Local Integer WSCDCOD (NBOPMX)            : # code jalonnement
Local Integer WNEXOPEN (NBOPMX)           : # no op suivante
Local Integer WNEXSPLN (NBOPMX)           : # fract. op suivante (créé dans PG)
Local Integer WOPERG (NBOPMX)             : # rang op
Local Integer WOPETRT (NBOPMX)            : # ope traitée en classement
Local Decimal WSCDPCT (NBOPMX)            : # % chev

 Utilisation

Exemple de code pour remplacer le délai d'achat articl d'un service de sous-traitance par le délai article/site:

$ACTION

Case ACTION

      When "INIT_JAL" : Gosub INIT_JAL

Endcase

Return

$INIT_JAL

For I = 0 To NBOP-1

   If WWSTTYP(I) = 3

       Read [ITF]ITF0=WSCOITMREF(I);WMFGFCY

       If !fstat : WSCOLTI(I)= [F:ITF]OFS : Endif

   Endif

Next I

Return