PEMODSLO : Permet d'inhiber le msg de copie du complément lot sur les sous-lots

Permet de désactiver le message « Souhaitez vous copier ce complément lot sur les autres sous lots ? ».

La désactivation se fait par l intermédiaire de la  rubrique GPE  .

Si GPE =   0   le message est actif  (cas standard)

Si GPE <> 0   le message est inactif

Contexte et mode de fonctionnement

Classes fichiers et écrans disponibles

Mettre la variable globale GPE à 1 pour désactiver le message.

MOD_ENTL Permet de modifier le contenu du masque STOENTLOT

Permet de modifier le contenu du masque de saisie du complement lot : STOENTLOT

Contexte et mode de fonctionnement

Ce point d'entrée est situé à la fin de l'étiquette CHARGE-ENTL du traitement SUBENTL

il permet apres l initialisation standard du masque de la saisie du complément lot. ce PE permet de modifier et recalculer toutes les rubriques

exemple : si le besoin et de modifier la date de référence péremption il suffit de modifier la rubrique [M:ENTL]REFPER et de recalculer la date de péremption , la date limite utilisation et de recontrole en utilisant les sous-programmes du traitement STKLIB

CALPER pour la date de péremption

CALDLU pour la date limite utilisation

CALLTI pour la date de recontrole

exemple de programmation :

[M:ENTL]REFER = [JJ/MM/AAAA] (date spécifique)

Local Integer WCOD : WCOD = [F:ITM]EXYMGTCOD

Local Date WREF : WREF = [M:ENTL]REFER

Local Integer WSHL : WSHL = [M:ENTL]SHL

Local Integer WUOM : WUOM = [M:ENTL]SHLUOM

Local Decimal WDLU : WDLU = [M:ENTL]DLU

Local Date WPER

Local Date WEXY

Local Integer WLTI

Call CALPER(WCOD,WREF,WSHL,WUOM,"",WPER) From STKLIB

[M:ENTL]SHLDAT = WPER

WEXY = [M:ENTL]SHLDAT

Call CALDLU(WCOD,WREF,WEXY,WDLU,"",WPER,WLTI) From STKLIB

[M:ENTL]DLUDAT = WPER

[M:ENTL]DLULTI = WLTI

WSHL = [M:ENTL]SHLLTI

WUOM = [M:ENTL]SHLLTIUOM

Call CALLTI(WCOD,WREF,WSHL,WUOM,"",WPER) From STKLIB

[M:ENTL]NEWLTIDAT = WPER

OPENENTL Permet d'ouvrir le complément lot

Permet de modifier les variables  GOUVLOT et GOUVENT pour ouvrir la

fenêtre du complément lot

Contexte et mode de fonctionnement

Ce point d'entrée est situé au début  de l'étiquette INIT-ENTL du traitement SUBENTL

En standard, si un lot existe le complément lot ne s'ouvre pas automatiquement, meme si la transaction de saisie, permet de modifier les informations du lot (bloc "Lot"). Dans ce cas GOUVLOT est réinitialisée à 1.

Pour que la fenêtre du complément lot s'ouvre il convient de recalculer la variable GOUVLOT.


Dans le PE OPENENTL il faut écrire les lignes suivantes :

Call INIT_GOUVLOT(LTAB) From STKENT

If GOUVLOT > 1

   GOUVENT = 1

Endif


La variable LTAB doit être initialisée avec l'abréviation de la table des transactions.

SRT : transactions stocks                      : table STKTRS

PTR : transactions achats                     : table PURTRS

SLT :  transactions saisie ventes          : table SALTRS

BTS : transactions plans : table           : BENCHTRS

MTS : transactions saisie production : table MFGTRS

La variable PARAM(1) contient l'écran origine. L'écran origine permet de définir l'abréviation de la table des transactions.

PARAM(1) = SMR1,BBY0,DBY1,SSL1    abréviation = SRT

PARAM(1) = PTH1,PSTT                         abréviation = PTR

PARAM(1) = MBI,MBR                            abréviation = BTS

PARAM(1) = SIH4,SRH1,SRL1,SRS1      abréviation = SLT

PARAM(1) = MTK2                                 abréviation = MTS


La variable PARAM(3) contient le numéro de ligne du tableau de l'écran origine. Cela peut permettre d'avoir accès aux rubriques du tableau (Lot , sous-lot ....)